sslug-teknik team mailing list archive

["Jesper Wisborg Krogh" <wisborg2@xxxxxxxxxx>]

Du kan også skrive et perl script, så du undgår at bruge
mail-programmet. Du kan indbygge scriptet i dit eget. Jeg har et, der
ser sådan ud:

# -------------------- try use Perl script for sending mail
perl <<PERLMAIL
    use Mail::Mailer;

    undef \$/;
    open (FILE, "< auto.log") || die "Can't open auto.log";
    \$message = <FILE>;
    close (FILE);

    \$subject = "$HNAME _ $UNAME _ $NAME _ $VERSION";
    \$sender = "$CONTACT";
    \$receiver = 'test@xxxxxxxxxxxxxxxxxx';

    \$remote = Mail::Mailer->new("smtp", "$SERVER");
    \$remote->open({ From    => \$sender,
                     To      => \$receiver,
                     Subject => \$subject,  }) or die "Can't open:
\$!\n";

    print \$remote "\$message\n";

    \$remote->close();

PERLMAIL

Med venlig hilsen

Jesper Krogh