#!/usr/bin/perl -w

use strict 'refs';
use lib '..';
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
use File::Copy;

$today = `date +%Y/%m/%d`;
chop ($today);

$query = new CGI;
print $query->header (-type=>'text/html', -expires=>'+5m'),
      $query->start_html (-title=>"FMBB Usage Monitor Page"),
      $query->h1 ("FMBB Usage Monitor Page");

print $query->start_multipart_form(), 
      $query->scrolling_list (-name=>'auth', 
		-values=>['auth1', 'auth2'], -default=>'auth1',
		-size=>2, -multiple=>'true'),
      $query->scrolling_list (-name=>'when', 
		-values=>['today', 'all'], -default=>'today',
		-size=>2, -multiple=>'false'),
      "Expression: ",
      $query->textfield (-name=>'expression', -size=>20), 
      $query->br,
      $query->p,
      $query->submit(-name=>'retrieve'),
      $query->endform, "\n";

$expression = $query->param ('expression');
$when = $query->param ('when');
@selected = $query->param ('auth');
if (@selected eq 0) {
    @selected = ('auth1');
    $when = 'today';
}

foreach $auth (@selected) {
   print $query->start_table ({-border=>undef}),
         $query->Tr ({-align=>CENTER,-valign=>TOP}, 
		$query->th (["NAI", "Last Seen", "Last Status", 
		"Last Location", "Count", "Last Reason"])),
	 "\n";
    if (open (FILE, "</var/log/mis/fmbb-$auth.txt")) {
        while (<FILE>) {
	    chop;
	    if ($expression) {
	        next unless (/$expression/);
	    }
	    next unless (s/^\s*(\S+)\s+(\S+\s+\S+)\s+(\S+)\s+(\S+)\s+(\d+)//);
	    $nai = $1;
            $last_time{$nai} = $2;
            $last_status{$nai} = $3;
            $last_from{$nai} = $4;
            $use{$nai} = $5;
	    if ($when eq 'today') {
		$last_time{$nai} =~ /^(\S+)\s+(\S+)$/;
#		print "[$1]", " ", "[$today]", "\n";
	        next unless ($1 eq $today);
	    }
            $last_reason{$nai} = "-";
            if (s/^\s*\((.*)\)//) {
                $last_reason{$nai} = $1;
	    }
            print $query->Tr ({-align=>RIGHT,-valign=>TOP},
		$query->td ([$nai,
		$last_time{$nai}, $last_status{$nai}, $last_from{$nai},
		$use{$nai}, $last_reason{$nai}])),
	    "\n";
        }
        close (FILE);
	print $query->end_table ();
    }
    else {
        print $query->strong ("can not load $auth data."),
	    $query->br;
    }
}

print $query->hr (),
      $query->address($query->a ({href=>"mailto:info\@fmbb.org"},
		 "FMBB Secretariat")),
      $query->address ($query->a ({href=>"http://www.fmbb.org"},
		 "Fukuoka Mobile BroadBand")),
      $query->end_html;

exit (0);