perl发邮件代码（备份）

 保存一下，在你的代码中require它即可

=head
need install module Net::SMTP_auth,
you can type the following command at
your shell prompt
cpan -i Net::SMTP_auth
=cut

use Net::SMTP;
use Fcntl qw/:DEFAULT :flock/;

sub sendmail {
    my $msg = shift;

    my $smtp = Net::SMTP->new(
                              Host    => 'smtp.163.com',
                              Timeout => 120,
                              Debug   => 1
                             );

    if (defined $smtp) {
        $smtp->auth("xxx","xxx");
        $smtp->mail("xxx\@163.com");
        $smtp->to("xxx\@126.com");
        $smtp->data();

        $smtp->datasend("From: Server Monitor <xxx\@163.com>\n");
        $smtp->datasend("To: SA team <sa\@abc.com>\n");
        $smtp->datasend("Subject: Server Warnings\n");
        $smtp->datasend("\n");
        $smtp->datasend("$msg\n");

        $smtp->datasend();
        $smtp->quit;

    }
}

sub printlog {
    my $str = shift;
    open LOG,'>>','log.txt' or die "$!\n";
    flock LOG,LOCK_EX;
    print LOG "$str\n";
    flock LOG,LOCK_UN;
    close LOG;
}

sub daemon {
    my $pid = fork();
    die "can't fork progress: $!\n" unless defined $pid;
    exit 0 if $pid;
    setsid() or die "can't create a new session: $!\n";

    open STDIN,'<','/dev/null';
    open STDOUT,'>','/dev/null';
    open STDERR,'>&',STDOUT;

    chdir "/";
    umask 022;
    $ENV{'PATH'} = '/bin:/sbin:/usr/bin:/usr/sbin';

    return $$;
}

1;