1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#!/usr/bin/env perl
#
# rsynclogparse-extended.pl, version 1.0
# Script for producing daily or hourly stats from an rsync.log, in
# plain text or XML output formats
#
# (C) Tim Haynes <gentoo@stirfried.vegetable.org.uk>, February 2003
# Redistributable under the terms of the BSD licence
# <http://www.opensource.org/licenses/bsd-license.php>
#
$|=1;
#Determine whether we have a commandline option or not
$arg="";
$arg=shift
if $ARGV[0]=~/^-/;
#Hash of variables to be output and descriptions
%outputVars=(
"mirrorid" => "which mirror name this box is",
"contact" => "email address to contact the server administrator",
"read" => "total bytes read",
"wrote" => "total bytes served",
"total" => "total bytes both directions",
"count" => "number of connections",
"meanxfer" => "mean transfer size",
"biggestXfer" => "biggest individual transfer",
"speedupavg" => "mean speedup-a-like ratio for all conns",
"avgbandwidth" => "mean bandwith reequirement over 1d",
"interval" => "most recent n-seconds' worth of data",
"maxconns" => "number of times max-conns reached",
"percmaxconns" => "percentage of connections rejected",
"configmaxconns" => "max concurrent connections configured",
"timestamp" => "Current time these stats were generated"
);
#Initialise all the above to 0
map { $$_ =0 ; } keys %outputVars;
#Set fields for this specific server
$mirrorid="rsync1.uk.gentoo.org";
$contact="gentoo\@stirfried.vegetable.org.uk";
$configmaxconns=5;
$timestamp=time();
#Determine if we're doing a daily or hourly thing
$interval=3600;
$interval=2600*24
if $arg=~/d/;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time);
$now=dateToTstamp(sprintf("%04d/%02d/%02d %02d:%02d:%02d",
$year+1900, $mon+1, $mday, $hour, $min, $sec));
#Read in all remaining files on commandline and stdin
while (<>) {
chomp;
if (m#^((\d+)/(\d+)/(\d+) (\d+):(\d+):(\d+))#) {
$tstamp=dateToTstamp($1);
}
next # skip too-old log entries
if $tstamp < ($now-$interval);
$maxconns++
if /max connections .\d+. reached/oi;
/wrote (\d+) bytes.*read (\d+) bytes.*size (\d+)/oi
or next;
$wrote+=$1; #running total of outgoing
$read+=$2; #running total of incoming
$volumesize=$3; #total size of the volume, serversize
$localtotal=$1 + $2;
$speedupsum+=$volumesize/$localtotal; #running total of "speedup" ratios
$count++;
$biggestXfer=($localtotal>$biggestXfer)?$localtotal:$biggestXfer;
}
#Compute a few things
$total=$read+$wrote;
$speedupavg=$speedupsum/$count; #average speedup ratio
$meanxfer=$total/$count; #mean-size xfer per connection
$avgbandwidth=$total/$interval; #mean bandwith consumed over this interval
$percmaxconns=100*$maxconns/($count+$maxconns);
#Choice of output format
$arg =~/xml/ ? &outputXML : &outputText;
1;
################
sub outputText {
foreach $i ( keys %outputVars ) {
printf("%-20s: $$i\n", $i);
}
}
sub outputXML {
print "<xml>\n <rsyncstats>\n";
foreach $i ( keys %outputVars ) {
if ($arg=~/v/o) {
print " <$i desc=\"$outputVars{$i}\">$$i</$i>\n";
} else {
print " <$i>$$i</$i>\n";
}
}
print " </rsyncstats>\n</xml>\n";
}
sub dateToTstamp {
my $str=shift;
$str =~ m#^(\d+)/(\d+)/(\d+) (\d+):(\d+):(\d+)#;
$tstamp=$6 + 60*$5 + 3600*$4 + 3600*24*$3 +
3600*24*31*$2 + 3600*24*365*($1-1975);
return $tstamp;
}
|
GitWeb