Here's one that I wrote a few years ago to do this.
#!/usr/bin/perl
use Getopt::Std;
my %opts;
getopts('s:', \%opts);
#$ENV{"LC_TIME"}="LC_TIME=en_GB.ISO8859-15";
$ENV{PATH}="/bin:/usr/bin:/usr/sbin:/opt/networker/bin";
open MMINFO, "mminfo -s $opts{'s'} -q \"!incomplete,level=full\" -r
\"nsavetime,savetime,client,totalsize(9),name\" |";
while (<MMINFO>) {
next if /^ save time /;
($nsavetime, $savetime, $client, $size, $mult, @name) = split;
$name = join " ", @name;
if (defined $latestnsavetime{$client}{$name}) {
$l_nsavetime = $latestnsavetime{$client}{$name};
if ($nsavetime gt $l_nsavetime) {
$latestnsavetime{$client}{$name} = $nsavetime;
$latestsavetime{$client}{$name} = $savetime;
$latestsize{$client}{$name} = "$size $mult";
}
else {
};
}
else {
$latestnsavetime{$client}{$name} = $nsavetime;
$latestsavetime{$client}{$name} = $savetime;
$latestsize{$client}{$name} = "$size $mult";
};
};
for $client (sort keys %latestnsavetime) {
for $name (sort keys %{ $latestnsavetime{$client} } ) {
printf "%10s %-15s%-40s%-10s%8s\n",
$latestnsavetime{$client}{$name}, $client, $name,
$latestsavetime{$client}{$name}, $latestsize{$client}{$name};
};
};
To sign off this list, send email to listserv AT listserv.temple DOT edu and
type "signoff networker" in the body of the email. Please write to
networker-request AT listserv.temple DOT edu if you have any problems with this
list. You can access the archives at
http://listserv.temple.edu/archives/networker.html or
via RSS at http://listserv.temple.edu/cgi-bin/wa?RSS&L=NETWORKER
|