S
Shailan
Hi
Im having trouble with the following code that seems to be behave
differently when called from the browser as opposed to the command
line. The calling script is a cgi that forks, with the child trying to
call another cgi script and pass arguments to it. It works fine from
the command line, and calls the required script and passes the
arguments correctly. However, when it is run on the browser, it calls
the script but does not pass the arguments to it.
The called script (included) is also a cgi, set up to accept
parameters via the param function. It accepts the parameters when the
calling script is run on the command line, but not when the calling
script is run on the browser.
I have also tried putting a '?' between the script name and the
arguments to get the "script.cgi?argument=1" format, and that didnt
work either.
Im not sure if the problem is in the system call, the use of CGI in
the called script, or somewhere else entirely. Any suggestions would
be extremely helpful...
Thanks in advance
Shailan
#### Calling script
if (my $pid = fork){
while (waitpid(-1,&WNOHANG) != $pid){
print ".";
sleep 2;
}
print qq{
</body>
</html>
};
exit;
}
else {
die "Cannot fork: $!\n" unless defined $pid;
#### Call the actual processing script.
print "Executing $program $args\n";
! system("perl", "$program", $args) or die "Call failed: $!";
#print $output;
exit;
}
#### End Calling script
#### Called script
#!/usr/local/bin/perl
use CGI;
use strict;
my $query = new CGI;
my $sleep_time = $query->param("sleep");
my @params = $query->param;
print "Content-type: text/html\n\n";
print qq{
<html>
<head><title>INF</title>
</head>
<body>
@params
};
for (my $i = 0; $i < 10; $i++){
print "Working\n";
sleep $sleep_time;
}
print qq{
Sleep time was $sleep_time<br>
Finished
</body>
</html>
};
exit;
#### End Called script
Im having trouble with the following code that seems to be behave
differently when called from the browser as opposed to the command
line. The calling script is a cgi that forks, with the child trying to
call another cgi script and pass arguments to it. It works fine from
the command line, and calls the required script and passes the
arguments correctly. However, when it is run on the browser, it calls
the script but does not pass the arguments to it.
The called script (included) is also a cgi, set up to accept
parameters via the param function. It accepts the parameters when the
calling script is run on the command line, but not when the calling
script is run on the browser.
I have also tried putting a '?' between the script name and the
arguments to get the "script.cgi?argument=1" format, and that didnt
work either.
Im not sure if the problem is in the system call, the use of CGI in
the called script, or somewhere else entirely. Any suggestions would
be extremely helpful...
Thanks in advance
Shailan
#### Calling script
if (my $pid = fork){
while (waitpid(-1,&WNOHANG) != $pid){
print ".";
sleep 2;
}
print qq{
</body>
</html>
};
exit;
}
else {
die "Cannot fork: $!\n" unless defined $pid;
#### Call the actual processing script.
print "Executing $program $args\n";
! system("perl", "$program", $args) or die "Call failed: $!";
#print $output;
exit;
}
#### End Calling script
#### Called script
#!/usr/local/bin/perl
use CGI;
use strict;
my $query = new CGI;
my $sleep_time = $query->param("sleep");
my @params = $query->param;
print "Content-type: text/html\n\n";
print qq{
<html>
<head><title>INF</title>
</head>
<body>
@params
};
for (my $i = 0; $i < 10; $i++){
print "Working\n";
sleep $sleep_time;
}
print qq{
Sleep time was $sleep_time<br>
Finished
</body>
</html>
};
exit;
#### End Called script