5 my $windows = $^O =~ /MSWin/ ? "yes" : "no";
6 my $vob_server = "rtnlprod01";
13 if ($windows eq "yes") {
14 @space = `cleartool space $vob 2>&1`;
16 @space = `cleartool space \\$vob 2>&1`;
39 ---- ----------------------- -----------
42 @>>) @<<<<<<<<<<<<<<<<<<<<<< @>>>>>> Meg
47 ---- ----------------------- -----------
51 Total vob size: @>>>>>> Meg
55 my @vobs = `cleartool lsvob -short -host $vob_server`;
57 foreach $vob (sort (@vobs)) {
59 chomp $vob; chop $vob if $vob =~ /\r/;