I try this simple module:
----------------------------------------------------------------------------
#!/usr/bin/perl
package My;
use strict;
use warnings;
use Apache::RequestRec ();
use Apache::RequestIO ();
use Apache::RequestUtil ();
use Apache::Const -compile => qw(OK);
use APR::Table;
use CGI;

sub handler
{
 my $r = shift; 
 my $query=CGI->new();
 print $query->param('id');
}
--------------------------------------------------------------------------


and see that in error.log:

[Tue Jan 14 13:59:08 2003] [error] Can't locate Apache.pm in @INC (@INC contains: 
/usr/local/apache2 /usr/local/lib/perl5/site_perl/5.8.0/i586-linux/Apache2
  /usr/local/lib/perl5/5.8.0/i586-linux /usr/local/lib/perl5/5.8.0  
/usr/local/lib/perl5/site_perl/5.8.0/i586-linux /usr/local/lib/perl5/site_perl/5.8.0
   /usr/local/lib/perl5/site_perl .) at /usr/local/lib/perl5/5.8.0/CGI.pm line 161.

What I'm doing wrong? How to parse urlecnoded?


Reply via email to