#!/usr/local/bin/perl -w

#======================================================================
# Program: Program to retrieve data from an Oracle database
#          and create a line chart image for the web.
#
# Author:  Ron Bueler
#
# Date:    April 22, 2001
#
#
# Revision History:
# 
#
#
#======================================================================
use strict;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;                                # Oracle DBI module
use GD::Graph::Data;                    # Gathering data easily
use GD::Graph::lines;                   # Generating the graphs 

#======================================================================
# Don't buffer I/O...
#----------------------------------------------------------------------

select (STDOUT); $|=1;

#======================================================================
# Declare some variables...
#----------------------------------------------------------------------

my ($q)         = new CGI;
my ($command)   = "/var/smart/cgi-bin/host_cpu.cgi ";
my (@hosts)     = ( qw { gm01ms gm02ms gm01rl gm02rl pm01rg pm02rg 
                         pm01sm pm02sm pm03sm pm04sm pm05sm pm06sm
                         um01ds um02ds um01ms um02ms um03rl um04rl });

#======================================================================
# Start of /var/smart/cgi-bin/report.cgi
#----------------------------------------------------------------------

print $q->header;
print $q->start_html("SMARTS Reporting Web Page");

print "<h1><center>SMARTS Reporting Web Page</center></h1>\n";
print "<hr>\n";

#print $q->startform("post");
print $q->startform(-method=>"post",
                    -action=>"host_cpu.cgi");

print "<table border=1 cellspacing=1 cellpadding=3 width=100%>";

print "<tr>";
print "<td width=100><b>Hosts</b>";
print $q->popup_menu(-name=>'host', 
                     -values=>[ qw{ gm01ms gm02ms gm01rl gm02rl pm01rg pm02rg
                                    pm01sm pm02sm pm03sm pm04sm pm05sm pm06sm
                                    um01ds um02ds um01ms um02ms um03rl um04rl }],
                     -default=>'pm02rg');
print "</td>";
print "<td width=125><b>Reports<br></b>";
print $q->radio_group(-name=>'report',
                      -values=>['cpu', 'memory', 'disk', 'network'],
                      -linebreak=>'true',
                      -defaults=>'cpu');
print "</td>";

print "<td width=*><b>Duration in Days<br></b>";
print $q->radio_group(-name=>'duration',
                      -values=>['1', '7', '30'],
                      -linebreak=>'true',
                      -defaults=>'1');
print "</td>";
print "</tr>";
print "</table>";

print "<hr>\n";

print $q->submit('Run report');
print $q->endform();

print "<hr>\n";
print "<IMG SRC=\"http://pm02rg.rst.cw.net:7777/cgi-bin/host_cpu.cgi\">";
print "<hr>\n";

if ($q->param) {
    print "The host you selected is ", $q->param('host'), "<br>";
    print "The report you selected is ", $q->param('report'), "<br>";
    print "The duration you selected is ", $q->param('duration'), "<br>";
}

#======================================================================
# End of /var/smart/cgi-bin/reports.cgi
#======================================================================