349 |
|
|
350 |
=cut |
=cut |
351 |
|
|
352 |
|
|
353 |
|
|
354 |
sub est_ua { |
sub est_ua { |
355 |
my $self = shift; |
my $self = shift; |
356 |
|
|
357 |
return $self->{_master_ua} if ($self->{_master_ua}); |
return $self->{_master_ua} if ($self->{_master_ua}); |
358 |
|
|
359 |
$self->{_master_ua} = LWP::UserAgent->new( ) || sub { |
{ |
360 |
|
package AdminUserAgent; |
361 |
|
use base qw/LWP::UserAgent/; |
362 |
|
sub new { |
363 |
|
my $self = LWP::UserAgent::new(@_); |
364 |
|
$self->agent("webpac/$VERSION"); |
365 |
|
$self; |
366 |
|
} |
367 |
|
sub get_basic_credentials { |
368 |
|
my($self, $realm, $uri) = @_; |
369 |
|
return ($self->{user}, $self->{passwd}); |
370 |
|
} |
371 |
|
sub set_basic_credentials { |
372 |
|
my ($self, $user, $passwd) = @_; |
373 |
|
$self->{user} = $user; |
374 |
|
$self->{passwd} = $passwd; |
375 |
|
} |
376 |
|
}; |
377 |
|
|
378 |
|
$self->{_master_ua} = AdminUserAgent->new( ) || sub { |
379 |
my $log = $self->_get_logger; |
my $log = $self->_get_logger; |
380 |
$log->logdie("can't create LWP::UserAgent: $!"); |
$log->logdie("can't create LWP::UserAgent: $!"); |
381 |
}; |
}; |
382 |
|
|
383 |
$self->{_master_ua}->credentials('localhost:1978','Super User', $self->{user} => $self->{passwd}); |
$self->{_master_ua}->set_basic_credentials($self->{user}, $self->{passwd}); |
384 |
|
|
385 |
return $self->{_master_ua}; |
return $self->{_master_ua}; |
386 |
} |
} |