Confusion over Apache2::Request and Apache2::RequestRec

[Douglas Sims]

I'm confused about something and I wonder if anyone can help me to
understand what's going on.  The code shown below works fine but as I was
looking over this before changing something else I realized that it probably
shouldn't.  I'm using an Apache2::Request object to return a connection
object to get the remote_ip but the documentation for Apache2::Request
doesn't show a connection method - that's in Apache2::RequestRec.

Why does connection() work on an Apache2::Request object?

Thanks!

-Doug


Apache2::Request:
http://httpd.apache.org/apreq/docs/libapreq2/group__apreq__xs__request.html
Apache2::RequestRec:
http://perl.apache.org/docs/2.0/api/Apache2/RequestRec.html#C_connection_


In the PerlResponseHandler:

  my $requestrec = shift if $ENV{MOD_PERL};
  my $request = Apache2::Request-new($requestrec);
  my $session = Sessions-new($request, $mysql);



{package Sessions;

  sub new {
my $class=shift;
my $self={};
bless ($self, $class);

$self-{REQUEST}=shift;
$self-{DBH}=shift;

{...snip...}

$self-{DBH}-do('INSERT INTO failedloginattempts (username,
password, ip, session, attempttime) VALUES
('.$self-{DBH}-quote($username).','.$self-{DBH}-quote($password).',
INET_ATON('.$self-{DBH}-quote(*$self-{REQUEST}-connection()-remote_ip*).'),
'.$self-{DBH}-quote($self-{SESSION}).', NOW())');

Re: Confusion over Apache2::Request and Apache2::RequestRec

[Joe Schaefer]

Apache2::Request is a derived class of Apache2::RequestRec,
so what you're doing is perfectly ok.




From: Douglas Sims ratsb...@gmail.com
To: modperl modperl@perl.apache.org
Sent: Thursday, August 20, 2009 3:20:59 AM
Subject: Confusion over Apache2::Request and Apache2::RequestRec


I'm confused about something and I wonder if anyone can help me to understand 
what's going on.  The code shown below works fine but as I was looking over 
this before changing something else I realized that it probably shouldn't.  
I'm using an Apache2::Request object to return a connection object to get the 
remote_ip but the documentation for Apache2::Request doesn't show a connection 
method - that's in Apache2::RequestRec.

Why does connection() work on an Apache2::Request object?

Thanks!

-Doug


Apache2::Request: 
http://httpd.apache.org/apreq/docs/libapreq2/group__apreq__xs__request.html
Apache2::RequestRec: 
http://perl.apache.org/docs/2.0/api/Apache2/RequestRec.html#C_connection_


In the PerlResponseHandler:

  my $requestrec = shift if $ENV{MOD_PERL};
  my $request = Apache2::Request-new($requestrec);
  my $session = Sessions-new($request, $mysql);



{package Sessions;

  sub new {
my $class=shift;
my $self={};
bless ($self, $class);

$self-{REQUEST}=shift;
$self-{DBH}=shift;

{...snip...}

$self-{DBH}-do('INSERT INTO failedloginattempts (username, password, 
 ip, session, attempttime) VALUES 
 ('.$self-{DBH}-quote($username).','.$self-{DBH}-quote($password).', 
 INET_ATON('.$self-{DBH}-quote($self-{REQUEST}-connection()-remote_ip).'),
  '.$self-{DBH}-quote($self-{SESSION}).', NOW())');