#!/usr/bin/perl
$contents = $ENV{'QUERY_STRING'} ;
@contents=split(/=/,$contents);
open(FILE,"$contents[1]") || die "Cannot open file $!";
@file=<FILE>;
foreach (@file)
{
                @newfile=split(/\|/,$_);
                $hash{$newfile[0]}=$newfile[1];
}
@toponame=keys(%hash);
chomp(@toponame);
$num_rows=scalar @toponame;
$current_time=`export TZ=UTC ; date +%H:%M`;
chomp($current_time);
@hour=(00 .. 23);
@min=(00 .. 59);

use CGI;
$cgi = new CGI;
print $cgi->header,
$cgi->start_html
(
        -title=>'Farm Job',
         -style=>{'src'=>'http://slc00amf.us.oracle.com/css/default.css'},
),
$cgi->start_form
(
        -name=>'form1',
        -method=>'get',
        -action=>'ankit2.pl',
        -align=>'left',
        -class=>'bod'

),"\n",
$cgi->h1('Farm Job Scheduler'),
$cgi->br,
$cgi->start_fieldset(),
$cgi->legend('Enter details'),

$cgi->strong("Operating System ") ,
$cgi->scrolling_list
(
        -name=>'os',
        -size=>1,
        -values=>['LINUX.X64', 'Solaris', 'AIX'],
        -defaults=>['LINUX.X64'],
        -align=>'center',
        -class=>'red',
),
$cgi->br,$cgi->br,

$cgi->strong("Product "),
$cgi->scrolling_list
(
        -name=>'product',
        -size=>1,
        -values=>['as11_idm'],
        -defaults=>['as11_idm'],
        -class=>'red'
),
$cgi->br,$cgi->br,

$cgi->strong("Release ") ,
$cgi->textfield
(
        -name=>'release',
        -size=>25,
        -class=>'red'
),
$cgi->br,$cgi->br,

$cgi->strong("Label ") ,
$cgi->textfield
(
        -name=>'label',
        -size=>25,
        -class=>'red'
),
$cgi->br,$cgi->br,
$cgi->hidden
(
        -name=>'file',
        -value=>"$contents[1]",

),

$cgi->strong("Email ") ,
$cgi->textfield
(
        -name=>'email',
        -size=>25,
        -class=>'red'
),
$cgi->br,$cgi->br,

$cgi->strong("GUID ") ,
$cgi->textfield
(
        -name=>'guid',
        -size=>25,
        -class=>'red'
),
$cgi->br,$cgi->br,

$cgi->strong("Shiphome "),
$cgi->textfield
(
        -name=>'shiphome',
        -size=>25,
        -class=>'red'
),
$cgi->br,$cgi->br,

$cgi->strong("JAVA Home ") ,
$cgi->textfield
(
        -name=>'java_home',
        -size=>25,
        -class=>'red',
),
$cgi->br,$cgi->br,
$cgi->checkbox
(
       -name=>'All',
       -onClick=>"selectAll()",
),
$cgi->br,
$cgi->checkbox_group
(
        -name=>'toponame',
        -values=>\@toponame,
        -linebreak=>'true',
        -class=>'none'
),
$cgi->br,$cgi->br,
$cgi->checkbox
(
        -name=>'noshutdown',
),
$cgi->br,
$cgi->checkbox
(
        -name=>'hoursafter',
),
$cgi->br,$cgi->br,

"Enter Time When you want the job to be run :",
$cgi->scrolling_list
(
        -name=>'hour',
        -size=>1,
        -values=>[@hour],
),
$cgi->scrolling_list
(
        -name=>'min',
        -size=>1,
        -values=>[@min],
),
$cgi->br,$cgi->br,
"Current time is $current_time", $cgi->br,$cgi->br,

$cgi->submit (-value=>'Submit'),
$cgi->reset, "\n",

$cgi->end_form;

$cgi->end_html;
exit;

$JSCRIPT=<<END;
<script language="text/javascript">
function selectAll {
        alert('Hello');
}
</script>
END