#!/usr/bin/perl

# mrtgindex.cgi v 1.1
# (c) 1997, Mick Ghazey mick@lowdown.com
# Thanks to Dave Rand, Peter W. Osel and Tobias Oetiker.

# Why CGI?
# Mrtgindx.cgi has features that only CGI can provide. 

# Runtime index:
# The index page is built every time the page is requested.
# Changes to config files are visible on the next update.

# Clickable graphs:
# Each graph is a clickable hyperlink to more information.

# Automatic updates:
# The index page automatically updates every 5 minutes.
# Modify $interval to adjust this period.

# Timely updates:
# Mrtgindx.cgi predicts when to update based on when the
# current graphs were completed.
# Updates occurs shortly after the graphs are completed
# regardless of when the page was initially requested.
# Modify $guardband to adjust this period.
# If the guardband is too small you run the risk of attempting
# an update while a graph is under construction. 

# Predictable graph order:
# Graphs appear in the same order as Titles in the config files.
# If there are multiple config files graphs from the first config
# file appear before those from the second, etc.

# Customizable graph order:
# If you want your index ordered differently than your
# config files you can use a dummy config file. Mrtgindex.cgi is
# only interested in "Title" statements. You could, for example,
# have different dummy config files for different arangements
# of graphs.

# Web based graph order selection:
# Click Top, Up, Down, or Bot to change the position of a graph.

# Multiple config files:
# Mrtgindex.cgi supports multiple config files. Some users
# run mrtg with more than one config file. The reason may be
# because certain events are run on a different schedules, 
# 5 and 10 minute intervals for example.
# Or perhaps multiple instances of mrtg are run
# to assure completion within a 5 minute interval.
# Ping-probes have longer run times than measuring traffic
# on local routers, for example. However, CPU load is similar.
# Modify the @config_files array below to suit your environment.

# Runs fast:
# Mrtgindx.cgi is fast because it doesn't create graph files or
# maintain log files. In addition, web based graph order changes
# benefit from browser cacheing of graphs.

# Index.cgi:
# You might want to rename this file "index.cgi". Then it
# will load automatically when when the directory is browsed -
# much as index.html loads automatically. You might have to
# modify "DirectoryIndex" in srm.conf if you're using Apache
# to allow CGI programs to be index files.

# CGI.pm required:
# Mrtgindex.cgi requires CGI.pm by Lincoln Stein
# http://www-genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html

#-------------------------------------------------------
# Modify this statement to match your configuration
@config_files = ('mrtg.cfg'); # Single config file

#@config_files = ('mrtg.cfg', 'mrtg-ping.cfg'); # Two config files
#@config_files = ('mrtg.cfg', 'yahoo.ping', 'netscape.ping', 'msn..ping', 
#                   'att.ping'); # anal retentive

#-------------------------------------------------------

require 'stat.pl';
use CGI ':all';
use CGI::Carp qw(fatalsToBrowser);
#use diagnostics;

$gifdone = 0; # Scan for newest graph and save info for later
while(@config_files > 0){
    open(In, $cfg = shift @config_files) ||
	die "Can't open $cfg. Check \@config_files array.\n";
    while(<In>){
	chdir($1) if /^WorkDir:\s*(.+)$/;
	next unless /^Title\[(.*)\]:\s*(.+)$/; # Look for a title keyword

	$router = lc $1;
	Stat("$router-day.png");
	@$router = ($st_mtime, $2); # Save the mod date and title
	push @routers, $router; # Remember the router name so we can find above info
	$gifdone = $st_mtime if $st_mtime > $gifdone; # Find the newest file
    }
    close In;
}

# Time the next update to occur a little while after the next interval completes
$interval = 300; # 5 min update interval
$guardband = 15; # updates occur this many seconds after predicted gif completion
$refresh = $interval + $guardband + $gifdone - time; # predict how long until next update
$refresh = $interval if $refresh <= $guardband;
$expires = gmtime (time + $interval * 2 + $guardband);

print header, start_html(-TITLE=>'Daily Stats', -BGCOLOR=>'#e6e6e6'),
    "\n",
    "\n",
    "\n",

    table({-width=>"100\%"}, TR(
#-------------------------------------------------------
    # Uncomment the following line if you have Count.cgi installed.
    # td({-align=>left, width=>"25\%"}, img({-src=>"/cgi-bin/Count.cgi?display=clock"})),
#-------------------------------------------------------

    td("Click graph for more info")));

@router_order = (0..$#routers);
@router_order = split /:/, param('ord') if defined param('ord');
$selfurl = url;
$selfurl =~ s/\?.*//; # Remove arguments

for $index (0..$#routers){
    @spliced = @router_order;
    $router_num = splice @spliced, $index, 1; # Router removed
    $router = $routers[$router_num];
    $time = localtime $$router[0]; # $st_mtime saved in above loop
    ($time) = $time =~ /(\d+:\d+:\d+)/; # Just the time
    print hr, "\n";

    print a({-name=>$index});
    # Print re-ordering links top, bot, up, dn
    $mv_dn = $mv_up = "";
    $" = ':';
    if($index > 0){
	@top = ($router_num, @spliced);
	@up = @spliced;
	$indxup = $index - 1;
	splice @up, $indxup, 0, $router_num;

	$mv_up = sprintf "%s %s ", a({-href=>"$selfurl?ord=@top#0"}, "Top"), # move to top
	a({-href=>"$selfurl?ord=@up#$indxup"}, "Up"); # move up
    }
    if($index < $#routers){
	@bot = (@spliced, $router_num);
	@down = @spliced;
	$indxdn = $index + 1;
	splice @down, $indxdn, 0, $router_num;

	$indxbot = @routers - 3;
	while($indxbot < 0){$indxbot += 1}
	$mv_dn = sprintf "%s %s ", a({-href=>"$selfurl?ord=@down#$indxdn"}, "Down"), # move down
	a({-href=>"$selfurl?ord=@bot#$indxbot"}, "Bot"); # move to bottom
    }
    undef $";

    print table({-width=>"100\%"}, 
		TR(td({-align=>"left",-width=>"20\%"}, "$mv_up $mv_dn"),
		   td({-align=>"left"}, b($$router[1]), " $time")));

    print a({-href=>"$router.html"}, img{-src=>"$router-day.png"});

}

print "\n",hr,"Direct questions and feedback to Mick Ghazey: ",
    a({-href=>"mailto:mick\@lowdown.com"}, "mick\@lowdown.com"),
    end_html;
