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;
22 sub DisplayViewInfo ($) {
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;
31 display_nolf MAGENTA . "Additional groups:\t";
33 foreach ($view->additional_groups) {
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;
58 display_nolf MAGENTA . "Type:\t\t\t" . RESET;
60 if ($view->snapshot) {
61 display_nolf "snapshot";
63 display_nolf "dynamic";
72 display MAGENTA . "UUID:\t\t\t" . RESET . $view->uuid;
75 error "Usage $0 <view tag>", 1 if !$ARGV[0];
78 my $view = new Clearcase::View (tag => $_);
80 DisplayViewInfo $view;