Strange behavior when passing parameters to a Perl/CGI script, from another Perl/CGI script

Question

For a project at work, I need to call one Perl/CGI script from another. An extremely simplified version of that script that I'm using for testing is here (the real scripts don't use recursion, but this way I don't have to copy & paste a lot of code):

#!/usr/local/bin/perl
use CGI qw(:standard);
use POSIX 'setsid';
$|=1;

print "Content-type: text/html\n\n";

@names = param;
print "@names";

if(defined(param('submit'))){
        #delete_all();
        system('perl testParams.pl abc=123');
        exit(0);
} else{
        print "NO SUBMIT PARAM";
}

What this script is supposed to do:

Print names of all parameters.
If a submit parameter is defined, run the script again but with a parameter called "abc".
If a "submit" parameter is not defined, print "NO SUBMIT PARAM".

What the script actually does:

Print names of all parameters.
If a "submit" parameter is defined, run the script again with the same parameters that the original script was run with.
If a "submit" parameter is not defined, print "NO SUBMIT PARAM".

Any idea what's causing Perl/CGI to ignore the new parameters and instead send the old ones when running the script?

ikegami · Accepted Answer · 2012-10-12 20:51:17Z

3

CGI only processes command line args when a CGI environment isn't found. The CGI environment is being inherited from the parent process. You could wipe it using

my %CGI_VARS = map { $_ => 1 } qw(
   REQUEST_METHOD
   CONTENT_LENGTH
   CONTENT_TYPE
   ...
);

local %ENV =
    map { $_ => $ENV{$_} }
     grep !$CGI_VARS{$_} && !/^HTTP/,
      keys(%ENV);

But this reeks of bad design. Really, your two scripts should be thin front ends to a common module.

You could even use the same script for both (by using a symlink), but alter the behaviour based on the URL used to call up the script.

answered Oct 12, 2012 at 20:51

ikegami

391k17 gold badges291 silver badges555 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

U. Windl Sep 10 at 7:49

I guess the intention was to debug one CGI script without modifying it.

so not liopa · Accepted Answer · 2012-10-14 08:39:38Z

0

From CGI with nested apps, each calling param() to get their args the simple answer is to create new CGI object from @ARGV

#!/usr/bin/perl  --
use strict;
use warnings;

use CGI ();

Main( @ARGV );
exit( 0 );

sub Main {
    my $cgi = @_ ? CGI->new(@_) : CGI->new;
}

answered Oct 14, 2012 at 8:39

so not liopa

4752 silver badges5 bronze badges

Collectives™ on Stack Overflow

Strange behavior when passing parameters to a Perl/CGI script, from another Perl/CGI script

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related