复制内容到剪贴板
代码:
#!/usr/bin/env perl -w
#filename release.pl
#copyright among
#www.scmlife.com
$res=5; ##设置保留的license数据，即可用数目少于此数字才开始release;eg 5
$mins=15; ##设置timeout的时间，这里的时间为你在控制面板中设置的time out时间减去你设置的time out时间，如30-15=15
$ccstate=`clearlicense -product ClearCase`;
$allowccuser=$1 if($ccstate=~m/Available licenses: (\d+)/);
if ($allowccuser le $res) ##<=
{
my @releaseid=qw//;
@ccstate=`clearlicense -product ClearCase`;
foreach (@ccstate)
{
if ($_=~m/(\S+)\s+(\d)\s+(\d+)\s+minutes/)
{
push(@releaseid,$1) if(($2 ne 1)&&($3 le $mins)); #$2 ne 1, $3 le $mins
}
}
$userlist=join (" ",@releaseid);
print $userlist;
system qq(clearlicense -product ClearCase -release $userlist) if ($userlist ne "");
}
else
{
exit 0
}自动release的代码，我也没有经过严格的测试，有此产生的系统和任何一切问题本人概不负责。
设置clearcase schedule，自动运行！建议时间最小也要为5分钟一次。
cc文档有这样一句话：To discourage license battles among users,
albd_server prevents this option from being used an excessive number of times during any single day.
我也不知道运行起来会怎么样。运行结果本人概不负责！请大家帮忙测试，及时跟贴！
