#!/usr/local/bin/perl

use CGI qw( :standard );
#use CGI;
push(@INC, "/home/users/d002/mps/html/sysinfo/bin");

my %action_handler;
my $action = param('forminfo');

print header;

CASE:{
	# A hostname (Host with FQDN)
	$action =~ /.*\..*/ && do {
		&get_infofiles( $action );
		last CASE; };
	$action =~ /^isg/ && do {
		&get_infofiles( $action );
		last CASE; };
	$action =~ /^Select/ && do {
		&initial_form( $action );
		last CASE; };
	# Must be an action selected.
	$action =~ /..*/ && do {
		if ( ! defined($action_handler{$action}) ) {
			if ( -f "bin/handler.${action}.pl" ) {
				require "bin/handler.${action}.pl";
				$handler_name = "handler_$action";
				$action_handler{$action} = \&$handler_name;
			}
			else{
				$action_handler{$action} =
					\&default_info_handler;
			}
		}
		&{ $action_handler{ $action }}( $action );
		last CASE; };
	# Default action.
	&initial_form();
}
open(FOOTER, "< etc/stdfooter.html");
print <FOOTER>;
print end_form, end_html;
exit;

sub initial_form {
	print start_html( -bgcolor=>'#FFFFFF', -text=>'#000000',
							-title=>"Get Host Information");
	print start_form( -action=>"" );
	print h1("Get Host Information");
	print "<p>
			 Information may be gathered about various system
			 configuration and parameters for the following machines: <br>
			 <ul>\n";
	opendir(MACHINES, "machines") || die "$!";
	while( my $dirname = readdir(MACHINES) ){
		next if $dirname =~ /^\./;
		print li,
		      pre( submit(-name=>'forminfo', -value=>"$dirname"));
		open (HEADINFO, "machines/$dirname/HEADER");
		while(<HEADINFO>){
			chomp;
			print "$_", br;
		}
		print br, hr;
		close(HEADINFO);
	}
	print "</ul>";
}

sub get_infofiles {
	my $selected_machine = shift;
	print start_html( -bgcolor=>'#FFFFFF', -text=>'#000000',
		-title=>"Host Information for: $selected_machine");
	print start_form( -action=>"" );
	print h1("Select information to display for $selected_machine");
	my $infoname;
	opendir(STATFILES, "machines/$selected_machine");
	print "<pre>";
	my $button_count = 0;
	while( $infoname = readdir(STATFILES) ){
		next if $infoname =~ /^\./;
		next if $infoname =~ /^HEAD/;
		($infoname) = split('\.', $infoname);
		print submit(-name=>'forminfo', -value=>"$infoname");
		print " ";
		$button_count++;
		if ( $button_count > 4 ) {
			print "\n";
			$button_count = 0;
		}
	}
	print "</pre>";
	print hidden(-name=>'machine', -value=>"$selected_machine");
	print "</ul>";
	close(STATFILES);
}

sub default_info_handler{
	my $info_type = shift;
	my $selected_machine = param('machine');
	print start_html( -bgcolor=>'#FFFFFF', -text=>'#000000',
		-title=>"Information for: $selected_machine - $info_type");
	print start_form( -action=>"" );
	print h1("Select one button for additional information.");
	print "<pre>";
	print submit(-name=>'forminfo', -value=>"$selected_machine");
	print " ";
	print submit(-name=>'forminfo', -value=>'Select Another Machine');
	print "</pre>";
	print h1("Requested information is below.");
	print hr;
	print h1("Selected $info_type information for: $selected_machine");
	open(INFOFILE, "machines/$selected_machine/${info_type}.dat");
	print "<pre>";
	while(<INFOFILE>){
		print "$_";
	}
	print "</pre>";
}