标题: Auto Merge
详细信息:项目组所有人在做Merge之前通知Manager
平台:windows
语言工具:Perl/Vbscript
其他信息:
已实现情况见下:
cleartool mktrtype -element -all -nc -postop mkhlink -hltype Merge
-execwin "ccperl D:\tt\trigger\Send e-mail.pl" -nc POST_MERGE_NOTIFY_TRIG@\dev
send e-mail.pl content:
CC Trigger Send E-mail Sample
# file: SendEmail.pl
# Simple example showing how to send email in Perl
use chilkat;
$mailman = new chilkat::CkMailMan();
$mailman->UnlockComponent('anything for 30-day trial');
# Set the SMTP server hostname
$mailman->put_SmtpHost('smtp.comcast.net');
# If your SMTP server requires a login, set username/password
# $mailman->put_SmtpUsername('myUsername');
# $mailman->put_SmtpPassword('myPassword');
# Create a simple email
$email = new chilkat::CkEmail();
$email->put_Subject('Sending mail from Perl');
$email->put_Body('This email was sent from a Perl program');
$email->put_From('Chilkat Support <
support@chilkatsoft.com>');
# Add a few recipients
$email->AddTo('Manager','ta@sina.com.cn');
$success = $mailman->SendEmail($email);
if (! $success)
{
$mailman->SaveLastError('lastError.txt');
}
高手请帮忙修改.