Jing,
Thanks for your reply. Actually the statement
print p("$scr");
was left there by mistake as - result of my tests. The original script
causing the trouble is:
#!/usr/bin/perl
use warnings;
use strict;
use CGI qw( :standard );
our ( $data, $name, $value );
read( STDIN, $data, $ENV{ 'CONTENT_LENGTH' } );
( $name, $value ) = split( '=', $data );
print header(), start_html( 'Using POST with forms' );
print p( 'Enter one of your favorite words here: ' );
print '<form method = "POST" action = "form2.pl">';
print '<input type = "text" name = "word">';
print '<input type = "submit" value = "Submit word">';
print '</form>';
if ( $name eq 'word' ) {
print p( 'Your word is: ', b( $value ) );
}
print end_html();
Best regards,
Christo
-----Original Message-----
From: Jing Wee [mailto:[EMAIL PROTECTED]]
Sent: Sunday, July 28, 2002 6:00 AM
To: [EMAIL PROTECTED]; Dichev, Christo
Subject: Re: POST with forms
Test run your script in DOS prompt. Undefined $scr caused an error
(because you use strict).
Jing Wee
At 12:28 PM 7/27/2002 -0400, you wrote:
>Many thanks to all of you who replied with hints and suggestions to my
>question RE: Installation and file processing. I am still testing the Perl
>system installed recently. Now I have a problem with the "Post" method and
>the following is the simple script causing the trouble.
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
> use CGI qw( :standard );
>
> our ( $data, $name, $value );
>
> read( STDIN, $data, $ENV{ 'CONTENT_LENGTH' } );
> ( $name, $value ) = split( '=', $data );
>
> print header(), start_html( 'Using POST with forms' );
> print p( 'Enter one of your favorite words here: ' );
> print p("$scr");
>
> print '<form method = "POST" action = "form2.pl">';
> print '<input type = "text" name = "word">';
> print '<input type = "submit" value = "Submit word">';
> print '</form>';
>
> if ( $name eq 'word' ) {
> print p( 'Your word is: ', b( $value ) );
> }
>
> print end_html();
>
> After I submit the form data I have to wait about 10 min
to
>get a reply:
>
> The page cannot be displayed
>
>The same form (using CGI.pm) works fine.
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
> use CGI qw( :standard );
>
> my $word = param( "word" );
>
> print header(), start_html( 'Using CGI.pm with forms' );
> print p( 'Enter one of your favorite words here: ' );
>
> print start_form(), textfield( "word" );
> print submit( "Submit word" ), end_form();
>
> print p( 'Your word is: ', b( $word ) ) if $word;
> print end_html();
>
>Any suggestions that would help me identify the cause of the problem will
be
>appreciated.
>
>Thank you,
> Christo
>_______________________________________________
>Perl-Win32-Web mailing list
>[EMAIL PROTECTED]
>To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
