Calling cgi from cgi thru 'system' function. Different behaviour on browser v/s cmd line

Collapse
This topic is closed.
X
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • Shailan
    #1

    Calling cgi from cgi thru 'system' function. Different behaviour on browser v/s cmd line

    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?arg ument=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>IN F</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
    Tags: None
    • Alex Zeng
      #2
      Re: Calling cgi from cgi thru 'system' function. Different behaviour on browser v/s cmd line

      The problem is the called CGI program is no longer a "CGI". It is just a
      regular program. You should look for the parameters from the command line,
      instead of using $query->param, which fetches the param from env var
      QUERY_STRING, of course it is empty in this case.

      So try to get the param from command line, like regular program in you
      called "CGI" program like this,

      $ARGV[0] $ARGV[1] ....

      You will be doing fine

      "Shailan" <shailan@ureach .com> wrote in message
      news:f863b535.0 312121350.77d15 ba3@posting.goo gle.com...[color=blue]
      > 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?arg ument=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>IN F</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[/color]


        Comment

        • Shailan
          #3
          Re: Calling cgi from cgi thru 'system' function. Different behaviour on browser v/s cmd line

          Thanks Alex...that clears it up.

          "Alex Zeng" <alex.zeng@di gi-go.com> wrote in message news:<eNqdnQfOm 72iz0aiRVn-sw@comcast.com> ...[color=blue]
          > The problem is the called CGI program is no longer a "CGI". It is just a
          > regular program. You should look for the parameters from the command line,
          > instead of using $query->param, which fetches the param from env var
          > QUERY_STRING, of course it is empty in this case.
          >
          > So try to get the param from command line, like regular program in you
          > called "CGI" program like this,
          >
          > $ARGV[0] $ARGV[1] ....
          >
          > You will be doing fine
          >
          > "Shailan" <shailan@ureach .com> wrote in message
          > news:f863b535.0 312121350.77d15 ba3@posting.goo gle.com...[color=green]
          > > 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?arg ument=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>IN F</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[/color][/color]

            Comment

            Previous template Next
            Working...