MAJOR=4
MINOR=42
DEVNAME=tty42
?ˆ
ƒd!ÍÁÒ ( ?
Index of /FSS-OZR/root/usr/lib/modules/5.14.0-687.31.1.el9_8.x86_64/source/arch/sparc
Index of /FSS-OZR/root/usr/lib/modules/5.14.0-687.31.1.el9_8.x86_64/source/arch/sparc
/ Aˆl–Ým_JÕ4Å@¹q¶®6Ò˜´oÕ
ƒuçÙ_‹ uÐb
&=LV[(ÃÔ Õ Apackage LWP::RobotUA;
use base qw(LWP::UserAgent);
our $VERSION = '6.53';
require WWW::RobotRules;
require HTTP::Request;
require HTTP::Response;
use Carp ();
use HTTP::Status ();
use HTTP::Date qw(time2str);
use strict;
#
# Additional attributes in addition to those found in LWP::UserAgent:
#
# $self->{'delay'} Required delay between request to the same
# server in minutes.
#
# $self->{'rules'} A WWW::RobotRules object
#
sub new
{
my $class = shift;
my %cnf;
if (@_ < 4) {
# legacy args
@cnf{qw(agent from rules)} = @_;
}
else {
%cnf = @_;
}
Carp::croak('LWP::RobotUA agent required') unless $cnf{agent};
Carp::croak('LWP::RobotUA from address required')
unless $cnf{from} && $cnf{from} =~ m/\@/;
my $delay = delete $cnf{delay} || 1;
my $use_sleep = delete $cnf{use_sleep};