#!/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;


##</code><code>##


my ($name, $selected_system, $value_to_change, $new_val) = @_;
my $ref;
   my ($NAME,$IP,$POWER_OFF_ON,$USED_STATE);
       rename $name, "$name~"
          or die "Cannot rename: $!";
        open FH1, "<$name~"
          or die "Cannot open: $!";
        open FH2, ">$name"
          or die "Cannot create: $!";
        while (<FH1>) {

    ($NAME,$IP,$POWER_OFF_ON,$USED_STATE)=split(/;/);
   $ref->{$NAME}{FILER_IP}=$FILER_IP;
   $ref->{$NAME}{FILER_RLM_IP}=$FILER_RLM_IP;
   $ref->{$NAME}{POWER_OFF_ON}=$POWER_OFF_ON;
   $ref->{$NAME}{OWNER}=$OWNER;
   $ref->{$NAME}{DETAILS}=$DETAILS;
   $ref->{$NAME}{RESERVED_BY}=$RESERVED_BY;
          print "$NAME",";","$ref->{$NAME}{FILER_IP}",";","$ref->{$NAME}{FILER_RLM_IP}",";","$ref->{$NAME}{POWER_OFF_ON}",";","$ref->{$NAME}{OWNER}",";","$ref->{$FILER_NAME}{DETAILS}",";","$ref->{$FILER_NAME}{RESERVED_BY}";

         print "$NAME",";","$ref->{$NAME}{FILER_IP}",";","$ref->{$NAME}{FILER_RLM_IP}",";","$ref->{$NAME}{POWER_OFF_ON}",";","$ref->{$NAME}{OWNER}",";","$ref->{$FILER_NAME}{DETAILS}",";","$ref->{$FILER_NAME}{RESERVED_BY}";

          if (!($NAME eq "$selected_system")){
          print FH2 $_;
  }
         elsif ($value_to_change eq "POWER_STATUS"){
         print FH2  "$NAME",",","$ref->{$NAME}{IP}",",","$new_val",",","$ref->{$NAME}{USED_STATE}","\n";
 
                }
}