cc/testclearcase.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use FindBin;
   6 use Term::ANSIColor qw(:constants);
   7
   8 use lib "$FindBin::Bin/../lib";
   9
  10 use Clearcase;
  11 use Display;
  12
  13 my ($status, @output) = $Clearcase::CC->execute ('pwv');
  14
  15 error 'Clearcase is not installed on this system', 1
  16   if $status;
  17
  18 display YELLOW . "Global Clearcase Variables\n" . RESET;
  19
  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;
  25
  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;
  31
  32 display CYAN    . "\nGlobal Clearcase Configuration\n" . RESET;
  33
  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;
  42
  43 display GREEN . "\nCleartool Access\n" . RESET;
  44
  45 display_nolf MAGENTA . "Views:\t" . RESET;
  46
  47 ($status, @output) = $Clearcase::CC->execute ("lsview -s");
  48
  49 display scalar @output;
  50
  51 display_nolf MAGENTA . "VOBs:\t" . RESET;
  52
  53 ($status, @output) = $Clearcase::CC->execute ("lsvob -s");
  54
  55 display scalar @output;