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;
19 use Clearcase::Element;
22 error "Usage: $0 <pname>", 1 if !$ARGV[0];
24 my $element = new Clearcase::Element (pname => $ARGV[0]);
26 display MAGENTA . "Element:\t" . RESET . $element->pname;
27 display MAGENTA . "Version:\t" . RESET . $element->version;
28 display MAGENTA . "Pred:\t\t" . RESET . $element->pred;
30 display MAGENTA . "Activities:" . RESET;
32 if (my %activities = $element->activities) {
33 display "\t\t$_: $activities{$_}" foreach (keys %activities);
35 display CYAN . "\t\tNone" . RESET;
38 display MAGENTA . "Attributes:" . RESET;
40 if (my %attributes = $element->attributes) {
41 display "\t\t$_=$attributes{$_}" foreach (keys %attributes);
43 display CYAN . "\t\tNone" . RESET;
46 display MAGENTA . "Hyperlinks:" . RESET;
48 if (my @hyperlinks = $element->hyperlinks) {
49 display "\t\t$_" foreach (@hyperlinks);
51 display CYAN . "\t\tNone" . RESET;
54 display MAGENTA . "Comments:" . RESET . $element->comments;
55 display MAGENTA . "Create_date:\t" . RESET . $element->create_date;
56 display MAGENTA . "User:\t\t" . RESET . $element->user;
57 display MAGENTA . "Group:\t\t" . RESET . $element->group;
58 display MAGENTA . "User_mode:\t" . RESET . $element->user_mode;
59 display MAGENTA . "Group_mode:\t" . RESET . $element->group_mode;
60 display MAGENTA . "Other_mode:\t" . RESET . $element->other_mode;
61 display MAGENTA . "Mode:\t\t" . RESET . $element->mode;
63 display MAGENTA . "Labels:" . RESET;
65 if (my @labels = $element->labels) {
66 display "\t\t$_" foreach (@labels);
68 display CYAN . "\t\tNone" . RESET;
71 display MAGENTA . "Rule:\t\t" . RESET . $element->rule;
72 display MAGENTA . "Xname:\t\t" . RESET . $element->xname;