6 use Term::ANSIColor qw(:constants);
11 $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
13 die "Unable to find libraries\n" if !$libs and !-d $libs;
22 my $vobs = new Clearcase::Vobs;
24 my $nbr_vobs = $vobs->vobs;
25 my @vob_list = $vobs->vobs;
27 display YELLOW . "Clearcase VOBs\n" . RESET;
29 display MAGENTA . "Number of vobs:\t\t" . RESET . $nbr_vobs;
30 display MAGENTA . "VOB list:\n" . RESET;
32 display "\t$_" foreach (@vob_list);
35 display "Unmounted all vobs";
39 display "Mounted all vobs";