#!/usr/bin/perl ################ # User configuarble paramaters go here # # Number of days in your tapecycle (that is, number of days between a 0 # dump). # in my case, tapecycle is 2 weeks (== 2*7 days) $tapecycle = 14; # month starts at 1 @Month = ("", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"); use Date::Calc qw( Weeks_in_Year Monday_of_Week Date_to_Text Date_to_Text_Long Add_Delta_Days Today Week_of_Year ); ($y,$m,$d) = Today(); for($i =0; $i < $tapecycle; $i++){ ($py,$pm,$pd) = Add_Delta_Days($y,$m,$d,$i-$tapecycle); $match[$tapecycle-$i] = sprintf "%4d-%02d-%02d", $py,$pm,$pd; } print < backup status for $d-$Month[$m]-$y

backup status for $d-$Month[$m]-$y

Header for($i=0; $i < $tapecycle; $i++){ print "\t\t"; } print "\n"; while(<>){ for($i=0; $i < $tapecycle; $i++){ ($date,$host,$disk,$level,$tape,$image,$status) = split; if($match[$tapecycle - $i] eq $date){ $found{"$host:$disk"} = 1; $backups{"$host:$disk"}[$tapecycle - $i] = "$level:$tape:$image:$status"; } } } foreach ( sort keys %found ) { ($host,$disk) = split /:/; if($host ne $oldhost){ print "\n"; $oldhost = $host; } # check to see if we have (at least) 1 level 0 dump $havezero = 0; for($i=0; $i < $tapecycle; $i++){ if($backups{$_}[$tapecycle - $i] ){ ($level,$tape,$image,$status) = split /:/ , $backups{$_}[$tapecycle - $i] ; if(!$level){ $havezero = 1; } } } if($havezero){ print "\n"; } else { print "\n"; } for($i=0; $i < $tapecycle; $i++){ if($backups{$_}[$tapecycle - $i] ){ ($level,$tape,$image,$status) = split /:/ , $backups{$_}[$tapecycle - $i] ; # Limited fancy formatting, level 0 dumps are marked Bold, # Failed dumps are marked RED, If you have no level 0 dumps # within tapecycle days, the whole line is marked red (and # italic) if($level){ $extra = ""; $extraend = ""; } else { $extra = ""; $extraend = ""; } if($status eq "FAILED"){ $extra = "$extra "; $extraend = " $extra"; $image = "---"; } if(!$havezero){ $extra = "$extra "; $extraend = " $extra"; }else{ $extra = "$extra "; $extraend = " $extra"; } print "\n\t" ; print "\n\t" ; print "\n\t" ; print "\n\t" ; }else{ print "\n"; } } print "
\n"; } print "

disk	", $match[$tapecycle-$i] , "
$host
$disk
$disk	$extra $level $extraend	$extra $tape $extraend	$extra $image $extraend	$extra $status $extraend	--\t