You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl@perl.apache.org by David Arnold <da...@northcoast.com> on 2004/06/19 10:17:17 UTC

Developer's Cookbook

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

Re: Developer's Cookbook

Posted by "Fco. Valladolid" <fr...@vmicrosistemas.com>.
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

Re: Developer's Cookbook

Posted by "Fco. Valladolid" <fr...@vmicrosistemas.com>.
in modperl 2.0 the following conf can work

# httpd.conf
  PerlModule ModPerl::Registry
  Alias /perl/ /home/httpd/perl/
  <Location /perl>
      SetHandler perl-script
      PerlResponseHandler ModPerl::Registry
      #PerlOptions +ParseHeaders
      #PerlOptions -GlobalRequest
      Options +ExecCGI
  </Location>

Take from mod_perl documentation.

Regards

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
> 
> 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
> 

-- 
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