Select Code to Download

/vobs/cs_test_scripts
/vobs/openwall_pam_userpass_rel
...
/v_dialerclient
/v_dialer_rel
/scm

#!/usr/bin/perl -w
$arg=$ARGV[0];
$cmd="cleartool lsvob $arg"
$arr=`$cmd`;
print "$arr\n";

* /vobs/cs_test_scripts /usr/add-on/puccase_vob01/ccvob01/cs_test_scri
+pts.vbs public (replicated)
* /scm /usr/add-on/puccase_vob01/ccvob01/scm.test.vbs

#!/usr/bin/perl
$arg=$ARGV[0];
...
print "$storage2\n";
$storage3=$1 if($arr=~/^*\s+\/\w+\/\w+\s+(.+)\s+\w+|^*\s+\/\w+\s+(.+)\
+s+\w+/);
print "$storage3\n";

* /vobs/cs_test_scripts /usr/add-on/puccase_vob01/ccvob01/cs_test_scri
+pts.vbs public (replicated)
#match storage1 /usr/add-on/puccase_vob01/ccvob01/cs_test_scripts.vbs
* /scm                 /usr/add-on/puccase_vob01/ccvob01/scm.vbs publi
+c (replicated)

#storage2 /usr/add-on/puccase_vob01/ccvob01/scm.vbs