Greetings, perlers!
I am trying to create a web page on my intranet that grabs some user
input, and puts the results in a file for later parsing.
Everything works except the last line... sometimes.
What the user is supposed to see is a web page that says "Thank you".
Most users do.
Some will never get that page, instead they see a "Page Found. The
page you are looking for has been redirected to here" message.
What am I missing? Is it a client issue? a server issue? a script
problem?
Clients are using FireFox 1.0 and 1.5. No correlation between FF
version and problem. I do know that if a user works, they just plain
work. If they exhibit the problem, the do 100% of the time. It is
totally repeatable, but I can't see the cause.
Thanx!
-Michael
====================================================================
#! /usr/bin/perl
$inputstring=$ENV{QUERY_STRING};
# Translate + signs to space
$inputstring =~ tr/+/ /;
# Translate uppercase letters to lowercase
$inputstring =~ tr/A-Z/a-z/;
# Decoding the hexidecimal characters
$inputstring =~ s/%(..)/pack("C", hex($1))/ge;
# After decoding %xy
# Extracting the + and & and creating key/value pairs
@key_value=split(/&/, $inputstring);
my $counter = 0;
foreach $pair ( @key_value){
($key, $value) = split(/=/, $pair);
if (( $counter == 0 )) {
my $result = qx(echo $value >> /tmp/whitelist.todo);
}
$counter += 1;
}
# Now that we're done, redirect the user to an "all done" page...
print "Location:
file:///Y:/Public_Info/IS/whitelist_done.html\r\n\r\n";
E-MAIL CONFIDENTIALITY NOTICE: This communication and any associated
file(s) may contain privileged, confidential or proprietary
information or be protected from disclosure under law ("Confidential
Information"). Any use or disclosure of this Confidential Information,
or taking any action in reliance thereon, by any individual/entity
other than the intended recipient(s) is strictly prohibited. This
Confidential Information is intended solely for the use of the
individual(s) addressed. If you are not an intended recipient, you
have received this Confidential Information in error and have an
obligation to promptly inform the sender and permanently destroy,
in its entirety, this Confidential Information (and all copies
thereof). E-mail is handled in the strictest of confidence by
Allied National, however, unless sent encrypted, it is not a secure
communication method and may have been intercepted, edited or
altered during transmission and therefore is not guaranteed.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
