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;
23 my $vobs = new Clearcase::Vobs;
25 my @vob_list = $vobs->vobs;
30 $vob = new Clearcase::Vob (tag => $vob_list[$i++]);
32 display YELLOW . "Clearcase VOB\n" . RESET;
34 display MAGENTA . "Tag:\t\t" . RESET . $vob->tag;
35 display MAGENTA . "Global path:\t" . RESET . $vob->gpath;
36 display MAGENTA . "Sever host:\t" . RESET . $vob->shost;
37 display MAGENTA . "Access:\t\t" . RESET . $vob->access;
38 display MAGENTA . "Mount options:\t" . RESET . $vob->mopts;
39 display MAGENTA . "Region:\t\t" . RESET . $vob->region;
40 display MAGENTA . "Active:\t\t" . RESET . $vob->active;
41 display MAGENTA . "Replica UUID:\t" . RESET . $vob->replica_uuid;
42 display MAGENTA . "Host:\t\t" . RESET . $vob->host;
43 display MAGENTA . "Access path:\t" . RESET . $vob->access_path;
44 display MAGENTA . "Family UUID:\t" . RESET . $vob->family_uuid;
46 display YELLOW . "\nVOB Statistics\n" . RESET;
47 display MAGENTA . "Elements:\t" . RESET . $vob->elements;
48 display MAGENTA . "Branches:\t" . RESET . $vob->branches;
49 display MAGENTA . "Versions:\t" . RESET . $vob->versions;
50 display MAGENTA . "DB Size:\t" . RESET . $vob->dbsize;
51 display MAGENTA . "Adm Size:\t" . RESET . $vob->admsize;
52 display MAGENTA . "CT Size:\t" . RESET . $vob->ctsize;
53 display MAGENTA . "DO Size:\t" . RESET . $vob->dbsize;
54 display MAGENTA . "Src Size:\t" . RESET . $vob->srcsize;
55 display MAGENTA . "Size:\t\t" . RESET . $vob->size;
57 display YELLOW . "\nVOB manipulation\n" . RESET;
59 display "Umounting " . $vob->tag . "...";
63 display "Mounting " . $vob->tag . "...";