[iwpg]

Please excuse my noviceness, but I am writing my 1st CGI script and I am stuck...

I have a form that allows numbers to be inputed and the script directs the user to a specific html page based on that number.

Instead of going straight to the results page, I am trying to first direct all queries to a page that will pass the variables to a 2nd script (like a "Searching, please wait" page)

I am having problems calling the script dynamically, (script.cgi?value=500) so this so far is not an option.

So in short, how can I use 1 script to pass form variables to a 2nd script?

I appreciate the help!

[Skeleton Man]

Perhaps post the code you have for these second script so we can see why it's not working with paramters (script.cgi?value=500). I'm assuming this is your problem ?

[iwpg]

Yes, calling the script dynamically returns the script without the values, however it works wonderful with the form.

Here is a snipplet of the code:

#!/usr/bin/perl

if ($ENV{'CONTENT_LENGTH'})
{
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $input);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$INPUT{$name} = $value;
}
}

# enter numbers 150 to 399, go to a certain html page

if (($INPUT {numbers1} < 400) && ($INPUT {numbers1} > 149))

{
{
&top_html("Page Title");
}

$numbers = $INPUT {numbers1};
{
open(FILE,"150_399.htm") || die "cannot open file"; #include virtual file
@lines=<FILE>;
open(FILE2,"../menu.htm") || die "cannot open file"; #include virtual file
@lines2=<FILE2>;
$numbersgb = $numbers-170; #math from input for a table on a html page
$numbersgr = $numbersgb/2;
$numberssa = $numbers-107; #math from input for a table cell on a html page
$numberssp = $numberssa/2;
&mainbody(1);
close(FILE);
close(FILE2);
}
{
&bottom(1);
}
# enter numbers 400 to 525, go to a certain html page
# and so on...
}
elsif (($INPUT {numbers1} > 399) && ($INPUT {numbers1} < 526))
{

# the rest is just subroutines and statements

[Skeleton Man]

2 things:

1. Your form parsing code doesn't allow for GET queries (script.cgi?value=500)
2. You're re-inventing the wheel and adding unneccesary code by parsing the form yourself.

You can replace all this:

Code:

if ($ENV{'CONTENT_LENGTH'})
{
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $input);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$INPUT{$name} = $value;
}
}

With this:

Code:

use CGI qw(:standard);
foreach (param()){ $INPUT{$_} = param($_); }

Your problem should go away after that..

[iwpg]

Skeleton Man,

I truly appreciate your help, it worked great.

Thanks for your time and toleration of a newbie!!!

Mike

[Skeleton Man]

Happy to help :-)