加入收藏 | 设为首页 | Life家族 | SCMLife | RMLife | PMLife | SQALife | TESTLife | 企业VIP专区 | 中文化荣誉殿堂
 
发新话题
打印

[原创] 回复tindi的CC Script需求( 此文章被查看:1766次,被回复:5篇!! )

回复tindi的CC Script需求

引用:
标题: 将vob中某一个目录的下新添加文件的主组统一成一个组


标题: 将vob中某一个目录的下新添加文件的主组统一成一个组
详细说明:在一个vob中允许两个主组的人在一个目录下添加文件,添加文件之后发现文件的主组也不一样,所以需要将文件的主组统一。
平台:AIX,windows混合平台
语言要求:可用perl
其它信息:做成clearcase trigger
今天闲着没事,觉得这个好写,临时写了一个perl script,我在windows平台下测试过了可以正常使用,AIX底下我没有环境。tindi你要是愿意,下来测试一下,给我一个回复好吗?

以下是代码:gpath 要使用共享的路径名称 triggername你自己写啦。注:我的primary group 改成了CMO,使用的时候要保证这个组是在VOB的additional group里面的。你根据你的需要改一下吧。还有就是我同时将权限改成了770。

tindi记得给我一个回复,站内消息最好了。
引用:
################################################################
# Trigger: chg_elem_group.pl
# Purpose: transfer the element's primary group
# Usage: cleartool mktrtype -element -all -postop mkelem -execwin
#        "ccperl gpath" triggername
# Author: Kerry
# Date: 15-Jan-2006
################################################################
#! /users/bin/perl -w
$group = $ENV{CLEARCASE_CHGRP};
$primary_grp = 'CMO';
$path = $ENV{CLEARCASE_PN};
if($group ne $primary_grp){
system ("cleartool protect -chgrp $primary_grp -chmod 770 $path");
}
[ 本帖最后由 jo-kerry 于 2007-1-15 17:17 编辑 ]
本帖最近评分记录
  • among 金钱 +8 原创内容 2007-1-15 17:18



© 本文为 jo-kerrySCMLife 共同所有,未经同意,请勿转载 ©如该文侵犯了您的版权,请联系管理员

TOP

先加分支持,再说其他的



© 本文为 amongSCMLife 共同所有,未经同意,请勿转载 ©如该文侵犯了您的版权,请联系管理员
Where are we ?

TOP

引用:
原帖由 among 于 2007-1-15 17:17 发表
先加分支持,再说其他的
版主,你给我加多少分阿?!!



© 本文为 jo-kerrySCMLife 共同所有,未经同意,请勿转载 ©如该文侵犯了您的版权,请联系管理员

TOP

复制内容到剪贴板
代码:
cleartool mktrtype -element -all -postop mkelem \
-execunix cleartool protect -chgrp GROUP_NAME $CLEARCASE_PN; cleartool protect -chmod 775 $CLEARCASE_PN \
-execwin cmd /c cleartool  protect -chgrp GROUP_NAME %CLEARCASE_PN% && cleartool protect -chmod 775 %CLEARCASE_PN% \
fix_group_trigger
本帖最近评分记录
  • 懂你 金钱 +6 另一种解决方案. 2007-3-20 22:24

© 本文为 zixiu2008 所有,未经同意,请勿转载
©如该文侵犯了您的版权,请联系管理员

TOP

回复 #4 zixiu2008 的帖子

也想过这样的做法,这样就不需要调用perl了。不错。合并一下execunix 和 execwin执行的命令会更简短一点.

© 本文为 jo-kerry 所有,未经同意,请勿转载
©如该文侵犯了您的版权,请联系管理员

TOP

你们的perl好厉害,要努力学习......

© 本文为 lisaliu 所有,未经同意,请勿转载
©如该文侵犯了您的版权,请联系管理员

TOP

发新话题