#!/usr/bin/perl
use strict;
#use CGI qw/:standard/;
#use CGI qw( :html *p);
use CGI qw(:cgi-lib :standard);
&ReadParse(*input);
use CGI qw( :html *p);
use CGI::Pretty;
print header,
start_html('Utilization');
my $cgi_obj = new CGI();
my $power_on = $cgi_obj->param('power_on');
my $power_off = $cgi_obj->param('power_off');
if($power_off){
Change::change_file("INFO", "$power_off", "POWER_STATUS", "OFF");
}
if($power_on){
Change::change_file("INFO", "$power_on", "POWER_STATUS", "ON");
}

my $h = "<h3><font color=\"#0B0B61\"><center><b>System Management Page</b></center></font color> </h3>";

   $h .= "<table border=\"1\">\n<tr>\n";</p>

        $h .= "<td WIDTH=50 bgcolor=\"#0101DF\"><font color=\"#FFFFFF\"><strong><center>Serial No.</center></strong></td>\n";
        $h .= "<td WIDTH=200 bgcolor=\"#0101DF\"><font color=\"#FFFFFF\"><strong><center>NAME</center></strong></td>\n";
        $h .= "<td WIDTH=200 bgcolor=\"#0101DF\"><font color=\"#FFFFFF\"><strong><center>IP</center></strong></td>\n";
        $h .= "<td WIDTH=200 bgcolor=\"#0101DF\"><font color=\"#FFFFFF\"><strong><center>State_ON_OFF</center></strong></td>\n";
        $h .= "<td WIDTH=200 bgcolor=\"#0101DF\"><font color=\"#FFFFFF\"><strong><center>Used state</center></strong></td>\n"; 
$h .= "</tr>";
                        <p>open(my $FH,"INFO") or die ("$!");</p>
 <p>   my $ref={};</p>
<p>my    $i = 1;</p>
  <p>  while(<$FH>){</p>
   <p>my ($NAME,$IP,$POWER_OFF_ON,$USED_STATE)=split(/,/);</p>
        $h .= "<tr>";
        $h .= "<td WIDTH=50 bgcolor=\"#BCF5A9\"><center>$i.</center></td>";
        $h .= "<td WIDTH=150 bgcolor=\"#BCF5A9\"><center>$NAME</center></td>";
        $h .= "<td WIDTH=150 bgcolor=\"#BCF5A9\"><center>$IP</center></td>";
             if ( $POWER_OFF_ON eq "OFF"){
                $h .= "<form name=\"ON\" method=\"get\" action=\"tool.cgi\"><br>";
                $h .= "<td WIDTH=250 bgcolor=\"#BCF5A9\"><center>$POWER_OFF_ON<br>";
               $h .= "<input type=\"hidden\" name=\"power_off\" value=\"$NAME\">";
               $h .= "<center><input type=\"submit\" value=\"SWITCH ON\"></center</td>";
                $h .= "</form>";
               }
               else {
               $h .= "<form name=\"OFF\" method=\"get\" action=\"tool.cgi\"><br>";
               $h .= "<td WIDTH=250 bgcolor=\"#BCF5A9\"><center>$POWER_OFF_ON<br>";
                           $h .= "<input type=\"hidden\" name=\"power_off\" value=\"$NAME\">";
               $h .= "<center><input type=\"submit\" value=\"SWITCH OFF\"></center</td>";
        $h .= "</form>";
               }


        $h .= "<td WIDTH=150 bgcolor=\"#BCF5A9\"><center>$USED_STATE</center></td>";
 $h .= "</tr>";

$i++;
}

        print "$h";
print $cgi_obj->end_html();

exit;