6 use Term::ANSIColor qw(:constants);
8 use lib "$FindBin::Bin/../lib";
13 my ($status, @output) = $Clearcase::CC->execute ('pwv');
15 error 'Clearcase is not installed on this system', 1
18 display YELLOW . "Global Clearcase Variables\n" . RESET;
20 my $view_drive = $Clearcase::VIEW_DRIVE;
21 my $vob_mount = $Clearcase::VOB_MOUNT;
22 my $win_vob_prefix = $Clearcase::WIN_VOB_PREFIX;
23 my $vobtag_prefix = $Clearcase::VOBTAG_PREFIX;
24 my $countdb = $Clearcase::COUNTDB;
26 display MAGENTA . "View Drive:\t\t" . RESET . $view_drive;
27 display MAGENTA . "VOB Mount:\t\t" . RESET . $vob_mount;
28 display MAGENTA . "Windows VOB prefix:\t" . RESET . $win_vob_prefix;
29 display MAGENTA . "VOB Tag Prefix:\t\t" . RESET . $vobtag_prefix;
30 display MAGENTA . "CountDB:\t\t" . RESET . $countdb;
32 display CYAN . "\nGlobal Clearcase Configuration\n" . RESET;
34 display MAGENTA . "Client:\t\t\t" . RESET . $Clearcase::CC->client;
35 display MAGENTA . "Hardware type:\t\t" . RESET . $Clearcase::CC->hardware_type;
36 display MAGENTA . "License host:\t\t" . RESET . $Clearcase::CC->license_host;
37 display MAGENTA . "OS:\t\t\t" . RESET . $Clearcase::CC->os;
38 display MAGENTA . "Region:\t\t\t" . RESET . $Clearcase::CC->region;
39 display MAGENTA . "Registry host:\t\t" . RESET . $Clearcase::CC->registry_host;
40 display MAGENTA . "Sitename:\t\t" . RESET . $Clearcase::CC->sitename;
41 display MAGENTA . "Version:\t\t" . RESET . $Clearcase::CC->version;
43 display GREEN . "\nCleartool Access\n" . RESET;
45 display_nolf MAGENTA . "Views:\t" . RESET;
47 ($status, @output) = $Clearcase::CC->execute ("lsview -s");
49 display scalar @output;
51 display_nolf MAGENTA . "VOBs:\t" . RESET;
53 ($status, @output) = $Clearcase::CC->execute ("lsvob -s");
55 display scalar @output;