Here's a snippet of my large script, which is a part of an
effort to create a comprehensive stats on NB clients and
the kitchen sink.  Hopefully, I can make it public domain
, with the powers willing...

-ravi

    @NbImageList=
        `$NbAdmDir/bpimagelist -client $Machine -d 01/01/00 -e $Date
2>/dev/null >&
1`;
    print "Available BP Images:\n\n";
    printf("\n%-20s%-20s%-8s%-8s%-8s%-5s",
            "BP-start","BP-end","BP-sz","BP-ela","BP-fls","BP-tput");
    printf("\n%-20s%-20s%-8s%-8s%-8s%-5s",
            "--------","------","-----","-------","------","-------");
    @NbImageData=();
    if ($#NbImageList < 0 ) {
        print "\n*****\tNo BP Images for this machine\t*****\n";
        print_dashes("-",78);
        next;
    }
    foreach $NbImage (@NbImageList) {
        next unless ($NbImage =~ "IMAGE"); 
        chomp($NbImage);
        @NbImageData=split(/\s+/,$NbImage);
        if ($#NbImageData > -1) {
            $NbImgStart=Get_Time_String($NbImageData[13]);
            $NbImgElapse=$NbImageData[14];
            $NbImgExpire=Get_Time_String($NbImageData[15]);
            $NbImgSize=$NbImageData[18];
            $NbImgFiles=$NbImageData[19];
            $NbTput=($NbImgSize/$NbImgElapse)/1024;
            printf("\n%-20s%-20s%-8d%-8d%-8d%-2.3f",
$NbImgStart,$NbImgExpire,$NbImgSize,$NbImgElapse,$NbImgFiles,$NbTput);
        }
    }

sub Get_Time_String {
    my ($Time)=@_;
    my ($Tm,$FDate);
    $Tm=localtime($Time);
    $FDate=sprintf("%02d/%02d/%4d %02d:%02d:%02d",
$Tm->mon+1,$Tm->mday,$Tm->year+1900,$Tm->hour,$Tm->min,$Tm->sec);
    return($FDate);
}

sub print_dashes {
        my($char,$count)=@_;
        my $line=($char)x($count);
        print $line,"\n";
        return(0);
}


On Mon, 14 Aug 2000, Ayaz Mudarris wrote:

ayaz>Ryan,
ayaz>
ayaz>The NT Administration GUI gives you a MB/s output.
ayaz>
ayaz>Ayaz
ayaz>
ayaz>> -----Original Message-----
ayaz>> From: veritas-bu-admin AT Eng.Auburn DOT EDU
ayaz>> [mailto:veritas-bu-admin AT Eng.Auburn DOT EDU]On Behalf Of RYAN C. 
ANDERSON
ayaz>> Sent: Sunday, November 12, 2000 12:46 PM
ayaz>> To: Veritas NBU
ayaz>> Subject: [Veritas-bu] Advanced reporting?
ayaz>> 
ayaz>> 
ayaz>> Has anyone found or made an automated way of reporting backup times &
ayaz>> MB/second in a report via a shell/perl script or otherwise?  Without
ayaz>> knowing much about Veritas Advanced Reporter, I would *assume* it
ayaz>> provides this, but buying it isn't an option. 
ayaz>> 
ayaz>> Right now I've got a way to output our backup report into a csv file,
ayaz>> which can then be opened and manipulated in Excel or StarOffice, but it
ayaz>> still requires a *lot* of work to get what I want.  I just want to track
ayaz>> historical data of how much is being backed up, how long its taking, and
ayaz>> the MB/second its doing it in.  Any suggestions?
ayaz>> 
ayaz>> 
ayaz>> Regards,
ayaz>> 
ayaz>> RCA
ayaz>> --
ayaz>> Ryan C. Anderson        |   United Defense L.P.    
ayaz>> Unix Administrator      |   763.572.6684 (desk)
ayaz>> ryan_anderson AT udlp DOT com  |   612.235.9936 (pager)
ayaz>> _______________________________________________
ayaz>> Veritas-bu maillist  -  Veritas-bu AT mailman.eng.auburn DOT edu
ayaz>> http://mailman.eng.auburn.edu/mailman/listinfo/veritas-bu
ayaz>> 
ayaz>_______________________________________________
ayaz>Veritas-bu maillist  -  Veritas-bu AT mailman.eng.auburn DOT edu
ayaz>http://mailman.eng.auburn.edu/mailman/listinfo/veritas-bu
ayaz>