JW wrote:

Hi.

How can you generate a list of networker clients which have unsuccesful
backups the laset 24hours, last week etc ?  That is only a list of
unsuccessful jobs without information about the successful ones.

Is that possible with mminfo ?

JW

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

--

-- Yaron.

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

#!/usr/bin/perl


open(EXCLUDE,"</usr/local/TAUSRC/Local/dailyreport/excludelist");

while(<EXCLUDE>)
{
  chomp;
  push(@exclude,$_);  
}

open(MMINFO,"mminfo -a -xc, -r client,name,nsavetime,level |");

$header = <MMINFO>;

while ($line = <MMINFO>)
{
  chop($line);
  ($client,$ssname,$time,$level) = split(/,/,$line);
  $ssname =~ s/\\//;
  $ss = $client.':'.$ssname;
  $count{$ss}++;
  $sstimeo{$ss} = max($sstimeo{$ss},$time);
  next unless $level eq 'full';
  $countf{$ss}++;
  $sstime{$ss} = max($sstime{$ss},$time);
  #if ($sstime{$ss} == undef)
  #{
    #$sstime{$ss} = $time;
    #next;
  #}
  #if ($sstime{$ss} < $time)
  #{
    #$sstime{$ss} = $time;
  #}
}

$monthago = time() - 35*24*60*60;
foreach $ssx (sort keys %sstime)
{
  if ($sstime{$ssx} <= $monthago)
  {
    #($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
localtime($sstime{$ssx});
    @l = grep { $ssx =~ /$_/ } @exclude;
    #print "$ssx $countf{$ssx}/$count{$ss} $mday/",$mon+1,"/",1900+$year,"\n" 
unless $#l >= 0;
    print "$ssx $countf{$ssx}/$count{$ss} ".datex($sstime{$ssx})." 
".datex($sstimeo{$ssx})."\n" unless $#l >= 0;
  }
}

sub max

{
  my($a) = @_; shift;
  my($b) = @_; 
  return $b if ($a == undef);
  return $a if ($b == undef);
  return ($a > $b)?$a:$b;
}

sub datex
{
  my($t) = @_;
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t);
  my $y = 1900 + $year;
  my $m = $mon + 1;
  return $mday."/".$m."/".$y;
}

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