change_owner.pl

复制内容到剪贴板

代码:

@rem= 'PERL for Windows NT - ccperl must be in search path
@echo off
ccperl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';

$COMPUTERNAME           = $ENV{COMPUTERNAME};

$VOB            = $ENV{CLEARCASE_VOB_PN};
$filename       = $ENV{CLEARCASE_PN};

$owner = `cleartool describe -long VOB:$VOB | findstr owner | findstr \/v ownership`;
$owner =~ s/owner //g;
$owner =~ s/ //g;
chop $owner;

if (!($owner eq ""))
        {
        $status = system("cleartool protect -chown $owner \"$filename\"");
        exit $status;
        }
fi

# End of Perl section

__END__
:endofperl

deliver_complete.pl

复制内容到剪贴板

代码:

use Net::SMTP;

my $from ='ccadm@rational.com';      # from mail account
my $site = 'test.rd.com';          # mail server
my $smtp_host = 'test.rd.com';     #  connect to an SMTP server
my $to ='pm01@rational.com';         # to mail account


my $smtp =Net::SMTP->new($smtp_host,Hello=>$site);
print "begin...";

print $ENV{CLEARCASE_PN};
$smtp->mail($from);
$smtp->to($to);
$smtp->data();

$smtp->datasend("To: $to\n");
my $subject = "Subject: Delivery complete";
$smtp->datasend($subject);
$smtp->datasend("\n");

my $body = join '', ("\n",
                "UCM Project: ", $ENV{CLEARCASE_PROJECT}, "\n",
                "UCM source stream: ", $ENV{CLEARCASE_SRC_STREAM}, "\n",
                "UCM destination stream: ", $ENV{CLEARCASE_STREAM}, "\n",
                "UCM integration activity: ", $ENV{CLEARCASE_ACTIVITY}, "\n",
                "UCM activities delivered: ", $ENV{CLEARCASE_DLVR_ACTS}, "\n",
                "UCM view: ", $ENV{CLEARCASE_VIEW_TAG}, "\n"
        );

$smtp->datasend("\n");
$smtp->datasend($body);

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

好！支持！
懂你 继续发布好东东给大家呀^_^

谢谢懂你！：）

不错，谢谢，期待更多的好东东

不用下载的帖，都是好帖，学习了

嘿嘿，不做附件。。。访问多

x非常好 感谢老大！～
～

谢谢老大，都保存了：）

太好了，居然不用下载，谢谢！