使用net::smtp 邮件通知用户登录

用户登录时，Bash 首先执行全局登录脚本(由 root 建立) /etc/profile，然后在用户起始目录下依次寻找 .bash_profile、.bash_login、.profile 三个文件，执行最先找到的一个。可以用这种办法像 Netware 一样为不同的用户定制运行环境。
此外，用户退出登录时还可以运行 .bash_logout 脚本。

 

 

#!/usr/bin/perl
use strict;
my $user=`whoami`;
use Net::SMTP;
my $ipaddress;
my $time;
open(FH,"w|");
foreach my $data (<FH>){
   if(!($data=~/days/)){
         if(!($data=~/USER/)){
         my(@arr)=split " ",$data;
          if($user==$arr[0]){
                  $ipaddress=$arr[2];
                  $time=$arr[3];
           }
           }
    }
}
close FH;
my $mailhost='127.0.0.1';
        my $mailfrom='support@test.bitsearch.com';
        my $host=`hostname`;
        my @mailto = ('liukai@bitsearch.com', 'changyz@bitsearch.com','guoyq@bitsearch.com');
        my $subject="Who login!";
        foreach my $mailto (@mailto) {
                my $smtp = Net::SMTP->new($mailhost,Hello =>"localhost",Timeout => 30,Debug => 0,);
                $smtp->mail($mailfrom);
                $smtp->to($mailto);
                $smtp->data();
                $smtp->datasend("To: $mailto\n");
                $smtp->datasend("From: $mailfrom\n");
                $smtp->datasend("Subject: $subject\n");
                $smtp->datasend("\n");
                $smtp->datasend("$host\n $user login $ipaddress at $time\n");
                $smtp->dataend();
                $smtp->quit;
}

 

 

注：本文根据网络文章修改而成。