Try the follow.
On Sat, Jun 19, 2004 at 01:17:17AM -0700, David Arnold wrote:
> All,
>
> After read section 2.2, pages 47-51, of "Mod_Perl, Developer's Cookbok," I
> set this in httpd.conf:
>
>
> #PerlModule ModPerl::Registry
PerlModule Apache::Registry
>
> Alias /cgi-perl/ "/usr/local/apache2/cgi-perl/"
> <Location /cgi-perl/>
> SetHandler perl-script
> #PerlHandler ModPerl::Registry
PerlHandler Apache::Registry
> Options +ExecCGI
> PerlSendHeader On
> </Location>
Regards, test the program now.
>
>
> Then I create the file test.pl as follows:
>
> #! /usr/bin/perl -w
> # test2.pl
>
> use CGI qw(:all);
>
> use strict;
> use warnings;
>
> my $port;
>
> print header, start_html('Scoping'),
> start_form(-name=>url()),
> 'Please enter your destination port',
> textfield(-name=>'port'),
> p,
> submit,
> end_form;
>
> if ($port=param('port')) {
> print_out();
> }
>
> print end_html;
>
> sub print_out {
> print hr, "There is likely a chanlery in $port";
> }
>
> However, when I run the file, I don't get the behavior described in the
> book. Indeed, after changing the 'port' in the edit box, I always get the
> correct response when I submit.
>
> My question: Has the behavior changed with this newer version of Mod_Perl?
> How? Why?
>
> --
> Report problems: http://perl.apache.org/bugs/
> Mail list info: http://perl.apache.org/maillist/modperl.html
> List etiquette: http://perl.apache.org/maillist/email-etiquette.html
>
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
