Re: [PERL] sende post

[Flemming Mahler Larsen <sslug@sslug>]

Simon wrote:

> Hvordan får jeg et Perlscript til at sende mig en email? Kan jeg bruge
> sendmail med diverse parametre?

TIMTOWTDI: Du kan også bruge Net::SMTP:

      #!/usr/local/bin/perl
      use Net::SMTP;

      my $smtp = Net::SMTP->new('localhost');
      $smtp->mail('sslug@sslug');
      $smtp->to('sslug@sslug);
      $smtp->data();
      $smtp->datasend("To: sslug@sslug");
      $smtp->datasend("From: sslug@sslug");
      $smtp->datasend("Subject: Test\n\n");

      $smtp->datasend("Test mail\n");
      $smtp->datasend("Test mail, linje 2\n");

      $smtp->quit;

// Flemming

--
Flemming Mahler Larsen, KsL @ TDC Internet
http://projekt.tele.dk.net/about/mahler.html // +45 3527 9013