Plagger::Plugin::UserAgent::AuthenRequest - Plagger plugin for authen request

Plagger documentation Contained in the Plagger distribution.

Index

Code Index:

NAME

Top

Plagger::Plugin::UserAgent::AuthenRequest - Plagger plugin for authen request

SYNOPSIS

Top

  - module: UserAgent::AuthenRequest
    config:
      host: example.com:80
      auth: basic
      realm: Security Area
      username: username
      password: password

DESCRIPTION

Top

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.

AUTHOR

Top

Daisuke Murase <typester@cpan.org>

SEE ALSO

Top

Plagger

Plagger documentation Contained in the Plagger distribution. 
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__