3 # Author: Alan J. Pippin
4 # Description: This script parses logfiles generated by the following zfs scripts:
8 $startdate=shift(@ARGV);
11 print "Usage: $0 <log file> <date>\n";
14 if(! -f "$logfile") { &usage; }
18 $giga = 1024 * 1024 * 1024;
21 my ($hour,$minute,$sec) = @_;
22 $seconds = ($hour * 60 * 60) + ($minute * 60) + ($sec);
28 if($duration > 3600) { $duration=int($duration/3600); $duration.="h"; }
29 elsif($duration > 60) { $duration=int($duration/60); $duration.="m"; }
30 else { $duration.="s"; }
36 if($data > ($giga)) { $data = int($data / $giga); $data = "$data"."Gb"; }
37 elsif($data > ($mega)) { $data = int($data / $mega); $data = "$data"."Mb"; }
38 elsif($data > ($kilo)) { $data = int($data / $kilo); $data = "$data"."Kb"; }
42 sub parse_replicate_logfile {
48 if(($in_replicate == 0) && ("$startdate" ne "") && ($line !~ /$startdate/)) { next; }
49 if($line =~ /(\S+)\s+(\S+)\s+(\d+)\s+(\d+):(\d+):(\d+)\s+(\S+)\s+(\S+)/) {
50 $dayname=$1; $month=$2; $daynum=$3; $hour=$4; $minute=$5; $sec=$6; $year=$8;
51 if(($in_replicate == 0) && ($line =~ /lock obtained/)) {
53 $date="$dayname $month $daynum $hour:$minute:$sec $year";
54 $totals{$date}{data} = 0;
55 $totals{$date}{transfertime} = 0;
56 $totals{$date}{duration} = time_to_seconds($hour,$minute,$sec);
58 elsif(($in_replicate == 1) && ($line=~ /lock released/)) {
60 $totals{$date}{duration} = time_to_seconds($hour,$minute,$sec) - $totals{$date}{duration};
63 if(($in_replicate == 1) && ($line =~ /received ([\d\.]+)(\w+)/)) {
64 $data = $1; $size = $2;
65 if($size =~ /Kb/i) { $data = $data * $kilo; }
66 if($size =~ /Mb/i) { $data = $data * $mega; }
67 if($size =~ /Gb/i) { $data = $data * $giga; }
69 $totals{$date}{data} += $data;
71 if(($in_replicate == 1) && ($line =~ /in (\d+) seconds/)) {
73 $totals{$date}{transfertime} += $transfertime;
77 foreach $date (keys %totals) {
78 $duration=adjust_duration($totals{$date}{duration});
79 $data=adjust_data($totals{$date}{data});
80 $transfertime=adjust_duration($totals{$date}{transfertime});
81 $rate = adjust_data(int($totals{$date}{data}/$totals{$date}{transfertime}));
82 print "$date: data=${data} transfertime=$transfertime rate=${rate}/sec duration=$duration\n";
89 #print "-> Parsing $logfile\n";
90 open(FILE,"$logfile") || die "-E- Unable to open $logfile\n";
92 if($logfile =~ /replicate/) { parse_replicate_logfile(); }