6 use Term::ANSIColor qw(:constants);
11 $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
13 die "Unable to find libraries\n"
22 my ($status, @output) = $Clearcase::CC->execute ('-ver');
24 error 'Clearcase is not installed on this system', 1
27 display YELLOW . "Global Clearcase Variables\n" . RESET;
29 my $view_drive = $Clearcase::VIEW_DRIVE;
30 my $vob_mount = $Clearcase::VOB_MOUNT;
31 my $win_vob_prefix = $Clearcase::WIN_VOB_PREFIX;
32 my $vobtag_prefix = $Clearcase::VOBTAG_PREFIX;
33 my $countdb = $Clearcase::COUNTDB;
35 display MAGENTA . "View Drive:\t\t" . RESET . $view_drive;
36 display MAGENTA . "VOB Mount:\t\t" . RESET . $vob_mount;
37 display MAGENTA . "Windows VOB prefix:\t" . RESET . $win_vob_prefix;
38 display MAGENTA . "VOB Tag Prefix:\t\t" . RESET . $vobtag_prefix;
39 display MAGENTA . "CountDB:\t\t" . RESET . $countdb;
41 display CYAN . "\nGlobal Clearcase Configuration\n" . RESET;
43 display MAGENTA . "Client:\t\t\t" . RESET . $Clearcase::CC->client;
44 display MAGENTA . "Hardware type:\t\t" . RESET . $Clearcase::CC->hardware_type;
45 display MAGENTA . "License host:\t\t" . RESET . $Clearcase::CC->license_host;
46 display MAGENTA . "OS:\t\t\t" . RESET . $Clearcase::CC->os;
47 display MAGENTA . "Region:\t\t\t" . RESET . $Clearcase::CC->region;
48 display MAGENTA . "Registry host:\t\t" . RESET . $Clearcase::CC->registry_host;
49 display MAGENTA . "Sitename:\t\t" . RESET . $Clearcase::CC->sitename;
50 display MAGENTA . "Version:\t\t" . RESET . $Clearcase::CC->version;
52 display GREEN . "\nCleartool Access\n" . RESET;
54 display_nolf MAGENTA . "Views:\t" . RESET;
56 ($status, @output) = $Clearcase::CC->execute ("lsview -s");
58 display scalar @output;
60 display_nolf MAGENTA . "VOBs:\t" . RESET;
62 ($status, @output) = $Clearcase::CC->execute ("lsvob -s");
64 display scalar @output;
66 ($status, @output) = $Clearcase::CC->execute ("invalid command");
68 display $_ foreach (@output);