test/testview.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use FindBin;
   6 use Term::ANSIColor qw(:constants);
   7
   8 my $libs;
   9
  10 BEGIN {
  11   $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
  12
  13   die "Unable to find libraries\n" if !$libs and !-d $libs;
  14 } # BEGIN
  15
  16 use lib $libs;
  17
  18 use Clearcase;
  19 use Clearcase::View;
  20 use Display;
  21
  22 sub DisplayViewInfo ($) {
  23   my ($view) = @_;
  24
  25   display YELLOW        . "View:\t\t \t"        . RESET . $view->tag;
  26   display MAGENTA       . "Accessed by:\t\t"    . RESET . $view->accessed_by;
  27   display MAGENTA       . "Accessed date:\t\t"  . RESET . $view->accessed_date;
  28   display MAGENTA       . "Access path:\t\t"    . RESET . $view->access_path;
  29   display MAGENTA       . "Active:\t\t\t"       . RESET . $view->active;
  30
  31   display_nolf MAGENTA  . "Additional groups:\t";
  32
  33   foreach ($view->additional_groups) {
  34     display_nolf "$_ ";
  35   } # foreach
  36
  37   display "";
  38
  39   display MAGENTA       . "Created by:\t\t"     . RESET . $view->created_by;
  40   display MAGENTA       . "Created date:\t\t"   . RESET . $view->created_date;
  41   display MAGENTA       . "CS updated by:\t\t"  . RESET . $view->cs_updated_by;
  42   display MAGENTA       . "CS updated date:\t"  . RESET . $view->cs_updated_date;
  43   display MAGENTA       . "Global path:\t\t"    . RESET . $view->gpath;
  44   display MAGENTA       . "Group:\t\t\t"        . RESET . $view->group;
  45   display MAGENTA       . "Group mode:\t\t"     . RESET . $view->group_mode;
  46   display MAGENTA       . "Host:\t\t\t"         . RESET . $view->host;
  47   display MAGENTA       . "Mode:\t\t\t"         . RESET . $view->mode;
  48   display MAGENTA       . "Modified by:\t\t"    . RESET . $view->modified_by;
  49   display MAGENTA       . "Modified date:\t\t"  . RESET . $view->modified_date;
  50   display MAGENTA       . "Other mode:\t\t"     . RESET . $view->other_mode;
  51   display MAGENTA       . "Owner:\t\t\t"        . RESET . $view->owner;
  52   display MAGENTA       . "Owner mode:\t\t"     . RESET . $view->owner_mode;
  53   display MAGENTA       . "Properties:\t\t"     . RESET . $view->properties;
  54   display MAGENTA       . "Region:\t\t\t"       . RESET . $view->region;
  55   display MAGENTA       . "Server host:\t\t"    . RESET . $view->shost;
  56   display MAGENTA       . "Text mode:\t\t"      . RESET . $view->text_mode;
  57
  58   display_nolf MAGENTA  . "Type:\t\t\t"         . RESET;
  59
  60   if ($view->snapshot) {
  61     display_nolf "snapshot";
  62   } else {
  63     display_nolf "dynamic";
  64   } # if
  65
  66   if ($view->ucm) {
  67     display_nolf ",ucm";
  68   } # if
  69
  70   display "";
  71
  72   display MAGENTA       . "UUID:\t\t\t"         . RESET . $view->uuid;
  73 } # DisplayViewInfo
  74
  75 error "Usage $0 <view tag>", 1 if !$ARGV[0];
  76
  77 foreach (@ARGV) {
  78   my $view = new Clearcase::View (tag => $_);
  79
  80   DisplayViewInfo $view;
  81 } # foreach
  82