test/testvob.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::Vobs;
  20 use Clearcase::Vob;
  21 use Display;
  22
  23 my $vobs = new Clearcase::Vobs;
  24
  25 my @vob_list    = $vobs->vobs;
  26
  27 my $vob;
  28 my $i           = 0;
  29
  30 $vob = new Clearcase::Vob (tag => $vob_list[$i++]);
  31
  32 display YELLOW . "Clearcase VOB\n" . RESET;
  33
  34 display MAGENTA . "Tag:\t\t"            . RESET . $vob->tag;
  35 display MAGENTA . "Global path:\t"      . RESET . $vob->gpath;
  36 display MAGENTA . "Sever host:\t"       . RESET . $vob->shost;
  37 display MAGENTA . "Access:\t\t"         . RESET . $vob->access;
  38 display MAGENTA . "Mount options:\t"    . RESET . $vob->mopts;
  39 display MAGENTA . "Region:\t\t"         . RESET . $vob->region;
  40 display MAGENTA . "Active:\t\t"         . RESET . $vob->active;
  41 display MAGENTA . "Replica UUID:\t"     . RESET . $vob->replica_uuid;
  42 display MAGENTA . "Host:\t\t"           . RESET . $vob->host;
  43 display MAGENTA . "Access path:\t"      . RESET . $vob->access_path;
  44 display MAGENTA . "Family UUID:\t"      . RESET . $vob->family_uuid;
  45
  46 display YELLOW  . "\nVOB Statistics\n"  . RESET;
  47 display MAGENTA . "Elements:\t"         . RESET . $vob->elements;
  48 display MAGENTA . "Branches:\t"         . RESET . $vob->branches;
  49 display MAGENTA . "Versions:\t"         . RESET . $vob->versions;
  50 display MAGENTA . "DB Size:\t"          . RESET . $vob->dbsize;
  51 display MAGENTA . "Adm Size:\t"         . RESET . $vob->admsize;
  52 display MAGENTA . "CT Size:\t"          . RESET . $vob->ctsize;
  53 display MAGENTA . "DO Size:\t"          . RESET . $vob->dbsize;
  54 display MAGENTA . "Src Size:\t"         . RESET . $vob->srcsize;
  55 display MAGENTA . "Size:\t\t"           . RESET . $vob->size;
  56
  57 display YELLOW  . "\nVOB manipulation\n" . RESET;
  58
  59 display "Umounting " . $vob->tag . "...";
  60
  61 $vob->umount;
  62
  63 display "Mounting " . $vob->tag . "...";
  64
  65 $vob->mount;