Changeset 1296
- Timestamp:
- 08/13/06 03:21:18
- Files:
-
- trunk/plagger/lib/Plagger/Plugin/UserAgent/AuthenRequest.pm (modified) (1 diff)
- trunk/plagger/lib/Plagger/Plugin/UserAgent/RequestHeader.pm (added)
- trunk/plagger/lib/Plagger/UserAgent.pm (modified) (1 diff)
- trunk/plagger/t/plugins/UserAgent-RequestHeader (added)
- trunk/plagger/t/plugins/UserAgent-RequestHeader/rt.t (added)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/UserAgent/AuthenRequest.pm
r1254 r1296 4 4 use base qw/Plagger::Plugin/; 5 5 6 use LWP::UserAgent;7 6 use List::Util qw/first/; 8 7 trunk/plagger/lib/Plagger/UserAgent.pm
r1254 r1296 44 44 my $self = shift; 45 45 my($req) = @_; 46 Plagger->context->run_hook('useragent.request', { ua => $self, url => $req->uri });46 Plagger->context->run_hook('useragent.request', { ua => $self, url => $req->uri, req => $req }); 47 47 $self->SUPER::request(@_); 48 48 }
