/[rrd-simple-monitoring]/cgi-bin/rrd-browse.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /cgi-bin/rrd-browse.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by dpavlin, Thu Jul 16 18:48:19 2009 UTC revision 4 by dpavlin, Thu Jul 16 20:01:16 2009 UTC
# Line 22  Line 22 
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
# Line 315  my $template = HTML::Template::Expr->new Line 315  my $template = HTML::Template::Expr->new
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 {
# Line 369  sub slurp { Line 370  sub slurp {
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 {

Legend:
Removed from v.1  
changed lines
  Added in v.4

  ViewVC Help
Powered by ViewVC 1.1.26