Developer's Cookbook

[David Arnold]

All, 

After read section 2.2, pages 47-51, of "Mod_Perl, Developer's Cookbok," I
set this in httpd.conf:


PerlModule ModPerl::Registry

Alias /cgi-perl/ "/usr/local/apache2/cgi-perl/"
<Location /cgi-perl/>
        SetHandler perl-script
        PerlHandler ModPerl::Registry
        Options +ExecCGI
        PerlSendHeader On
</Location>


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