belize has asked for the wisdom of the Perl Monks concerning the following question:
2. I have a program which first parses:
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; } else { $INPUT{$name} = $value; } }
Then a little logic:
if ($INPUT{'one'}) {&one; } elsif ($INPUT{'two'}) {&two; } else {&three; }
3. When I access the script via a form by a direct connection to the Net, everything works fine (i.e. sub-routines one or two run depending on the form input).
4. But when I access the script via the same form through a proxy server (WinProxy on NT), only subroutine three runs, regardless of submitting the exact same form with NAME="one" filled in. In other words, the form does not seem to be parsed when submitted through a proxy.
Any ideas why?
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: direct connection works, proxy does not.
by dws (Chancellor) on Feb 03, 2001 at 03:49 UTC | |
by belize (Deacon) on Feb 03, 2001 at 04:36 UTC | |
|
Re: direct connection works, proxy does not.
by AgentM (Curate) on Feb 03, 2001 at 02:29 UTC | |
by belize (Deacon) on Feb 03, 2001 at 03:28 UTC | |
by BlueLines (Hermit) on Feb 03, 2001 at 03:45 UTC | |
by footpad (Abbot) on Feb 03, 2001 at 09:03 UTC | |
by belize (Deacon) on Feb 03, 2001 at 02:37 UTC | |
by Fastolfe (Vicar) on Feb 03, 2001 at 02:39 UTC |