利用perl模塊發郵件

vim sendmail.pl
#!/usr/bin/perl -w
use MIME::Lite;

sub perl_sendmail {
        my $mail_to=shift;
        #my $mail_to="$_[0]";
        my $from=shift;
        #my $from = "$_[1]";
        my $subject=shift;
        #my $subject = "$_[2]";
        my $data=shift;
        #my $data = "$_[3]";

        $sendmail = MIME::Lite->new(
                        From     => $from,
                        To       => $mail_to,
                        Subject  => $subject,
                        Data     => $data
                        );

        $sendmail->attr("content-type" => "text/html");
        $sendmail->send;
}
perl_sendmail(@ARGV);

vim databases.sh
#!/bin/bash

OP_MAILBOX="[email protected],[email protected]"
phone_lu=15800329316
phone_xia=15121132075
[ -d /tmp/db ] || mkdir /tmp/db



function database()
{
        local data_file vale num 
        vale=60
        data_file="/tmp/php_db.log"
        while read line
        do 
                num=`echo $line|awk -F'=' '{print $2}'`
                title=`echo $line|awk -F']' '{print $2}'|awk '{print $1}'`
                [ -f /tmp/db/$title ] && content=`cat /tmp/db/$title` && ret=`echo $content|awk -F'=' '{print $2}'`
                if [ "x$num" != "x" -a $num -lt $vale ]
                then 
                        echo "$title=1" > /tmp/db/$title
                        sendmailx "$line <br>一小時檢測一次，連續報警兩次，請通知以下運維人員<br>盧李明:$phone_lu<br>夏志培:$phone_xia" "數據異常" 
                elif [ "x$content" != "x" ]
                then
                        if [ $ret -eq 1 -a $num -gt $vale ]
                        then 
                                echo "$title=0" > /tmp/db/$title
                                sendmailx "$line <br>這是恢復郵件，您可以安心休息了。" "數據恢復"
                        fi
                fi
        done < $data_file 
}

function sendmailx()
{
        local mail_msg mail_from
        mail_msg=$1
        mail_title=$2
        mail_from="[email protected]"
        for mailbox in `echo $OP_MAILBOX|sed 's/,/ /g'`
        do
              /path/to/sendmail.pl "$mailbox" "$mail_from" "$mail_title" "$mail_msg"
              sleep 0.5
        done
}
database