Problem in CGI script

[Chad Tower]

Hi... been doing perl a long time, new to CGI.  I'm trying to do
something very simple here... take a simple form input via POST and
print the results out to the browser.  The code works when I use GET,
but when I use POST it never gets through the interpreter and I'm not
sure how to debug that.  Here is the code:


#!/usr/bin/perl

$CRLF = "\x0d\x0a";

print "Content-type: text/html$CRLF$CRLF";


# printvars 
# 
# diagnostic to print the environment and CGI variables 
# 
sub printvars { 
        print "<p>Environment:<br>\n";
 
        foreach $e (sort keys %ENV) { 
                print "<br><tt>$e => $ENV{$e}</tt>\n"; 
        } 

        print "<p>Form Vars:<br>\n"; 

        foreach $name (sort keys %query) { 
                print "<br><tt>$name => [$query{$name}]</tt>\n"; 
        } 
} 


sub getquery { 
        my $method = $ENV{'REQUEST_METHOD'}; 
        my ($query_string, $pair); 
        my %query_hash; 
        
        $query_string = $ENV{'QUERY_STRING'} if $method eq 'GET'; 
        $query_string = <STDIN> if $method eq 'POST';

        foreach $pair (split(/&/, $query_string)) { 
                $pair =~ s/\+/ /g; 
                $pair =~ s/%([\da-f]{2})/pack('c',hex($1))/ieg; 
                ($_qsname, $_qsvalue) = split(/=/, $pair); 
                $query_hash{$_qsname} = $_qsvalue; 
        } 
        
        return %query_hash; 
} 

#&printvars;
%query_hash = &getquery;

$title = $blue ? "I'm Blue" : "Big Light in Sky";

$listening = $listening? "Yes" : "No";
$blue = $blue ? "Yes" : "No";

print <<HERE;

<title>$title</title>

<table>
  <tr><th align=right>Name:               <td>$query_hash{name}
  <tr><th align=right>Age:                <td>$query_hash{age}
  <tr><th align=right>Are they listening? <td>$listening
  <tr><th align=right>Are you Blue?       <td>$blue
  <tr><th align=right>This form is:       <td>$query_hash{formis}
  <tr><th align=right>This form is also:  <td>$query_hash{formalso}
  <tr><th align=right>The secret word is: <td>$query_hash{info}

</table>

HERE

exit;

---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]