MIYAGAWA / Plagger-0.7.11 / lib / Plagger / Plugin / UserAgent / AuthenRequest.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
—
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

              
package Plagger::Plugin::UserAgent::AuthenRequest;
use strict;
use warnings;
use base qw/Plagger::Plugin/;
use List::Util qw/first/;
sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'useragent.init' => \&add_credentials,
    );
}
sub add_credentials {
    my($self, $context, $args) = @_;
    my $creds = $self->conf->{credentials} || [ $self->conf ];
    for my $auth (@$creds) {
        $context->log(info => "Adding credential to $auth->{realm} at $auth->{host}");
        $args->{ua}->credentials($auth->{host}, $auth->{realm}, $auth->{username}, $auth->{password});
    }
}
1;
__END__
=head1 NAME
Plagger::Plugin::UserAgent::AuthenRequest - Plagger plugin for authen request
=head1 SYNOPSYS
  - module: UserAgent::AuthenRequest
    config:
      host: example.com:80
      auth: basic
      realm: Security Area
      username: username
      password: password
=head1 DESCRIPTION
This plugin hooks Plagger::UserAgent fetch method to add username and
password to authenticated website. Since it hooks Plagger::UserAgent,
the config will be enabled in all plugins that uses Plagger::UserAgent
inside, e.g. from Aggregator::Simple to Publish::MT.
=head1 AUTHOR
Daisuke Murase <typester@cpan.org>
=head1 SEE ALSO
L<Plagger>
=cut