perl 执行一个系统命令(svn info),发一封邮件
use.NET::SMTP;
system("svn info
http://x.x.x.x>>num1");
open (FILE1,"num1")||die "Couldn't open num1";
$num1=<FILE1>;#print $num1;
$num2=<FILE1>;#print $num2;
$num3=<FILE1>;#print $num3;
$num4=<FILE1>;#print $num4;
$num5=<FILE1>;#print $num5;
$num6=<FILE1>;#print $num6;
my ($name,$a) = splIT(//:/, $num5);
system("svn info
http://x.x.x.x>>num2");
open (FILE2,"num2")||die "Couldn't open num2";
$num1=<FILE2>;#print $num1;
$num2=<FILE2>;#print $num2;
$num3=<FILE2>;#print $num3;
$num4=<FILE2>;#print $num4;
$num5=<FILE2>;#print $num5;
$num6=<FILE2>;#print $num6;
my ($name,$b) = split(//:/, $num5);
if (1){
notify();
close FILE1;
close FILE2;
}
sub notify()
{
my $subject = subvision;
my $message = "Currently local subversion number is $a Currently Remote subversion number is $b";
my $mailhost = mial server name;
$smtp = Net::SMTP->new($mailhost);
#$mailto is recipient of the email
$mailto = "
x@x.x.x";
#$mailfrom is sender of the email
$mailfrom = "
x@x.x.x";
$smtp->mail($mailfrom) or $emailstatus = 0;
$smtp->to($mailto, $mailcc) or $emailstatus = 0;
$smtp->data() or $emailstatus = 0;
$smtp->datasend("From: $mailfrom/n") or $emailstatus = 0;
$smtp->datasend("To: $mailto/n") or $emailstatus = 0;
$smtp->datasend("Cc: $mailcc/n") or $emailstatus = 0;
$smtp->datasend("Subject: $subject/n") or $emailstatus = 0;
$smtp->datasend("/n") or $emailstatus = 0;
$smtp->datasend("$message/n/n") or $emailstatus = 0;
$smtp->datasend() or $emailstatus = 0;
$smtp->quit() or $emailstatus = 0;
}
unlink num1;
unlink num2;
相关推荐
svn提交自动邮件提醒 commit-email.pl+钩子程序
ubuntu SVN命令大全 ubuntu SVN命令大全 ubuntu SVN命令大全 ubuntu SVN命令大全
Windows系统下如何搭建svn服务器; 实现SVN自动邮件提醒版本变化
配置SVN自动发送邮件,一般情况下我们希望在提交代码后, Subversion可以自动发送邮件给组里的每个成员。资源包含详细配置说明及要用到的工具脚本
Svn自动发邮件配置脚本及时提醒相关开发人员
SVN变化发送邮件(Python实现) 实现了svn一但有变化将发送邮件
linux下svn命令大全
svn命令集
SVN 邮件通知钩子脚本,需要配合blat.exe来发送邮件
svn 回退/更新/取消至某个版本命令详解
linux系统下svn服务器操作命令, 初学者ubuntu系统下可以使用,希望对大家有帮助
svn服务用svnsync命令双机热备
最近将SVN某项目 迁移到新的服务器,用到了dump 和 load命令。
svn在linux下的使用(svn命令)
svn常用命令介绍
svn启动命令
svn 客户端命令 以下是svn客户端常用命令一览:
Windows和Mac操作系统下SVN基本操作命令
本文档主要介绍在window下安装svn服务,通过apache访问与权限控制,以及svn钩子脚本的自动更新与提交格式限制和邮件转发功能
SVN 命令使用手册.pdf pdf格式 汇集命令与一手