22 |
# vim:ts=4:sw=4:tw=78 |
# vim:ts=4:sw=4:tw=78 |
23 |
|
|
24 |
# User defined constants |
# User defined constants |
25 |
use constant BASEDIR => '/home/nicolaw/webroot/www/rrd.me.uk'; |
use constant BASEDIR => '/var/www/rrd'; |
26 |
use constant RRDURL => ''; |
use constant RRDURL => ''; |
27 |
|
|
28 |
# Caching |
# Caching |
315 |
die_on_bad_params => 0, |
die_on_bad_params => 0, |
316 |
functions => { |
functions => { |
317 |
slurp => \&slurp, |
slurp => \&slurp, |
318 |
|
table => \&table, |
319 |
like => sub { return defined($_[0]) && defined($_[1]) && $_[0] =~ /$_[1]/i ? 1 : 0; }, |
like => sub { return defined($_[0]) && defined($_[1]) && $_[0] =~ /$_[1]/i ? 1 : 0; }, |
320 |
not => sub { return !$_[0]; }, |
not => sub { return !$_[0]; }, |
321 |
equal_or_like => sub { |
equal_or_like => sub { |
370 |
return $rtn; |
return $rtn; |
371 |
} |
} |
372 |
|
|
373 |
|
sub table { |
374 |
|
my $file = shift; |
375 |
|
my @rows = split(/[\n\r]+/, slurp($file)); |
376 |
|
use Data::Dump qw/dump/; |
377 |
|
warn dump( @rows ); |
378 |
|
return |
379 |
|
qq|<tr><th colspan=4>| . shift(@rows) . qq|</th><tr>| |
380 |
|
. qq|<tr><th></th><th>min</th><th>max</th><th>last</th></tr>| |
381 |
|
. join("\n", map { |
382 |
|
qq|<tr><td>| |
383 |
|
. join(qq|</td><td align=right>|, split(/,?\s+\w+:\s+/, $_)) |
384 |
|
. qq|</tr><td>| |
385 |
|
} @rows |
386 |
|
) |
387 |
|
; |
388 |
|
} |
389 |
|
|
390 |
# Sort by domain |
# Sort by domain |
391 |
sub by_domain { |
sub by_domain { |
392 |
sub split_domain { |
sub split_domain { |