File: RobotUserAgent.pm

package info (click to toggle)
squidguard 1.4-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 3,904 kB
  • ctags: 558
  • sloc: perl: 2,568; ansic: 2,159; makefile: 392; sh: 287; lex: 165
file content (15 lines) | stat: -rw-r--r-- 350 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
package RobotUserAgent;

use Exporter;
use LWP::Parallel::UserAgent qw(:CALLBACK);
use POSIX qw(strftime);
@ISA = qw(LWP::Parallel::UserAgent Exporter);
@EXPORT = @LWP::Parallel::UserAgent::EXPORT_OK;

sub on_connect {
  my ($self, $request, $response, $entry) = @_;
  my ($key,$val);
  ::info("%s: %s", $request->{_method}, $request->{_uri});
}

1;