my $method = $c->req->method || '';
my $path = $c->req->path || '';
- my $hostname = $c->req->hostname || '';
my $address = $c->req->address || '';
- $c->log->debug(qq/"$method" request for "$path" from $hostname($address)/)
+ $c->log->debug(qq/"$method" request for "$path" from $address/)
if $c->debug;
if ( $c->request->method eq 'POST' and $c->request->content_length ) {
use strict;
use base 'Catalyst::Engine::HTTP::Base';
-use IO::Socket qw(AF_INET INADDR_ANY SOCK_STREAM SOMAXCONN );
+use IO::Socket qw( SOCK_STREAM SOMAXCONN );
=head1 NAME
$request->uri->host( $request->header('Host') || $client->sockhost );
$request->uri->port( $client->sockport );
- my $hostname = gethostbyaddr( $client->peeraddr, AF_INET );
-
my $http = Catalyst::Engine::HTTP::Base::struct->new(
address => $client->peerhost,
- hostname => $hostname || $client->peerhost,
request => $request,
response => HTTP::Response->new
);
ReuseAddr => 1,
Type => SOCK_STREAM,
);
+
+ unless ( defined $daemon ) {
+ die( qq/Failed to create daemon. Reason: '$!'/ );
+ }
my $base = URI->new( $daemon->url )->canonical;
use strict;
use base 'Class::Accessor::Fast';
+use IO::Socket qw[AF_INET inet_aton];
+
__PACKAGE__->mk_accessors(
- qw/action address arguments body base cookies headers hostname match
- method parameters path protocol secure snippets uploads user/
+ qw/action address arguments body base cookies headers match method
+ parameters path protocol secure snippets uploads user/
);
*args = \&arguments;
=item $req->hostname
-Contains the hostname of the remote user.
+Lookup the current users DNS hostname.
print $c->request->hostname
+
+=cut
+
+sub hostname {
+ my $self = shift;
+
+ if ( @_ ) {
+ $self->{hostname} = shift;
+ }
+
+ unless ( $self->{hostname} ) {
+ $self->{hostname} = gethostbyaddr( inet_aton( $self->address ), AF_INET );
+ }
+
+ return $self->{hostname};
+}
=item $req->input