It goes like this:
my $r = Apache->request;
my $apr = Apache::Request->new($r);
--
Doug Kyle - Information Systems
Grand Rapids Public Library
"We're superheros man, we don't have time to be charming . . . we're public
servants, not glamour boys" - The Tick.
Jason Murphy wrote:
> Dear Mod_Perl'lers
>
> I hate to bug the list with this simple problem, but I am at my wits end. I
> have The Good Book (Aka: Apache Modules with Perl and C. Aka: The Eagle
> Book) but have some questions that are just killing me.
>
> I would like to do something like the program on page 104 - 110 and also
> page 130 - 135 of The Eagle book. For those of you not blessed with this
> book, I am trying to recover the parameter from a GET request. Below is my
> code I correctly using, but my problem is the Apache::Request and
> Apache::Constant are not being found or used or whatever is the error (Error
> posted below).
>
> Some notes, I have tried adding "use Apache::Constants qw(:common)" but it
> also returns the same error. I have also replaced the last line with "my
> ($FirstInfo, $SecondInfo) = split /=/, $r->args;" with no success either. I
> have those modules installed, and I forced reinstalled them to make sure
> along with Bundle::Apache.
>
> If anyone could point me to a really good example of the r->args and GET
> requests I would really appreciate it.
>
> <---My Error--->
>
> Can't locate object method "new" via package "Apache::Request" at
> ./find_player.pl line 10.
>
> <---MY CODE--->
>
> use strict;
>
> use Apache::Request ();
> use CGI qw(:standard);
> use DBI;
>
> my $r = new Apache::Request; <---Where the error appears
> my $dbh ||= DBI->connect('dbi:mysql:Action', 'login', 'password') || die
> "Could not open Database: ";
>
> my ($person_id, $name, $totalkills, $totalkilled);
> my %arguments = $r->args;
>
> --
> Jason Murphy
> System Administrator
> Lawinfo.com
> 1-800-397-3743 ex: 133
