Here's the main perl-cgi script which prints the form as a table:
#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use Fcntl qw(:flock :seek);
print header;
#Java Script Code:
my $JSCRIPT=<<END;
var commandURL = "page24.cgi?";
var commandURL2 = "page25.cgi?";
function sendURL(url)
{
window.open (url);
}
function runScript(element1, element2, element3) {
//document.form1.result1.value = "pass/fail";
var params = "scriptname=" + element1;
params += "&clientname=" + element2;
params += "&pathname=" + element3;
sendURL (commandURL + params);
return false;
}
function runScript2(element1) {
//alert("here");
var params = "file=" + element1;
sendURL (commandURL2 + params);
return false;
}
END
print start_html (-title=>'USER SELECTION CONFIRMED',
-script=>$JSCRIPT);
my @script_names; #store the script names
my @client_names; #stores the client names
my @paths; #path address of scripts
my $outfile;
my $i;
my $size; #size of all arrays
&get_script_client_names;
&store_info;
&display;
print end_html;
sub get_script_client_names {
my @param_names; #store the param_names
# the hidden values passed on to it
my @variables = param('name');
my $count = scalar(@variables);
$count = $count -1; #adjustment for filename
#IMPORTANT
# $outfile=$variables[$count];
$outfile ="/usr/PBT/scen";
$size = $count/3;
$i=0;
#variables is divides into 2 parts, array of scripts names
$i=0;
while ($i < $size)
{
$script_names[$i]= $variables[$i];
++$i;
}
$i = $size; # follows the variables
my $pointer =0;
# array of param names
while ($i < ($size*2))
{
$param_names[$pointer]= $variables[$i];
++$i;
++$pointer;
}
$i = ($size*2);
$pointer =0;
# array of param names
while ($i < $count)
{
$paths[$pointer]= $variables[$i];
++$i;
++$pointer;
}
# store the choices made in array client_names
$i =0;
foreach my $value (@param_names) {
$client_names[$i]= param($value);
$i++ ;
}
} #get script clinet names
sub start_func{
my ($passin,$passin2,$passin3) = @_;
button (-name=>'start',-value=>'Start',
-onClick=>"runScript('$passin','$passin2','$passin3')");
}
sub result_func {
my $code = @_;
my $id = "result".$code;
textfield (-name=>$id, -size=>6);
}
sub log_func {
my ($script,$client) = @_;
my $file = "/usr/local/apache/cgi-bin/log.txt_".$script."_".$client;
button (-name=>'log',-value=>'Log_File',
-onClick=>"runScript2('$file')"); }
sub error_func{
my ($script,$client) = @_;
my $file = "/usr/local/apache/cgi-bin/error.txt_".$script."_".$client;
button (-name=>'error',-value=>'Error_File',
-onClick=>"runScript2('$file')"); }
sub display {
#again remove extension from script to display
$i=0;
my @script_names_displayed;
my @temp;
while ($i<$size) {
@temp= split(/\./,$script_names[$i]);
$script_names_displayed[$i] = $temp[0];
$i++;
}
print start_form (-name=>'form1');
my @heading = ("Scrip Name", "Client", "Status", "Result", "Log File", "Error_File" );
my @rows;
$i =0;
while ($i<$size) {
push (@rows, td($script_names_displayed[$i]).
td($client_names[$i]).
td(&start_func($script_names[$i],$client_names[$i],$paths[$i])).
td(&result_func($i)).
td(&log_func($script_names[$i],$client_names[$i])).
td(&error_func($script_names[$i],$client_names[$i]))
);
$i++;
}
print table( {-id=>'table1', -border=>undef, -width=>'100%'},
caption(b("THE SCENARIO $outfile THAT YOU CREATED")),
Tr ([ th (\@heading), @rows ])
);
print end_form;
}
sub dienice {
my($errmsg) = @_;
print header;
print start_html("Error");
print "<h2> Error</h2>\n";
print "<p>$errmsg</p>\n";
print end_html;
exit;
}
i hope it makes things clearer.
//document.form1.result1.value = "pass/fail";
is the line where i need to print the cooie value which i set in the script page24.cgi