NAME
Authen::Simple::WebForm - Simple authentication against existing web
based forms.
VERSION
Version 0.01
SYNOPSIS
use Authen::Simple::WebForm;
my $webform = Authen::Simple::WebForm->new(
login_url => 'http://host.company.com/login.pl',
login_expect => 'Successful Login',
);
if ($webform->authenticate( $username, $password ) ) {
# successful authentication
}
# or as a mod_perl Authen handler
PerlModule Authen::Simple::Apache
PerlModule Authen::Simple::WebForm
PerlSetVar AuthenSimpleWebForm_login_url "http://host.company.com/login.pl"
PerlSetVar AuthenSimpleWebForm_login_expect "Successful Login"
PerlAuthenHandler Authen::Simple::WebForm
AuthType Basic
AuthName "Protected Area"
Require valid-user
DESCRIPTION
Authentication against a variety of login forms. This wraps up the LWP
(libwww-perl) calls needed to attempt a login to a site that uses an
HTML form for logins. It supports logins that require cookies, various
form variables, special headers, and more.
You can also subclass this to make it easier to setup, such as the
Authen::Simple::OWA2003 module.
There are a log of options, but they all have sane defaults. In most
cases, you'll only need to use the following:
login_url
login_expect
uesrname_field
password_field
extra_fields
INSTALLATION
To install this module, run the following commands:
perl Makefile.PL
make
make test
make install
METHODS
new
This method takes a hash of parameters. The following options are
accepted:
initial_url
A URL to go to prior to logging in.
If the login page requires you to go to some page prior to posting,
use this. It will accept and store any cookies returned, and use
this page as the referrer when submitting to the login form.
Off by default.
initial_expect
String or a compiled regex (eg. "qr/please\s+login/i").
If you want to make sure the page you got is the login form, you can
set a string here to check for. The page content will be tested
against this, and authentication will fail (with a logged error) if
this doesn't match.
With this, you can make sure the server isn't returning a sorry
server page, or similar.
Off by default.
initial_expect_cookie
String or a compiled regex (eg. "qr/please\s+login/i").
Similar to initial_expect, but checks the cookies returned by the
page.
NOTE: this matches the cookie key, and the value must simple have
some length.
Off by default.
check_initial_status_code
Boolean, set to 0 to disable.
Set to undef to skip checking the response status code from the
initial page. Otherwise, it must match HTTP::Status->is_success.
Defaults to enabled (1).
login_url
REQUIRED
The URL to which the login credentials will be submitted.
For example: https://host.company.com/login.pl
login_expect
String or a compiled regex (eg. "qr/login\s+successful/i").
Set to a unique string to expect in the resulting page when the
login was successful.
Be default, this is not turned on. If you do not set this, then as
long as the server returns a successful status code (see
HTTP::Status::is_success), then the user will be authenticated. Most
form based login systems return a successful status code even when
the login fails, so you'll probably want to set this.
A notable exception is the use of something like Apache::AuthCookie,
which will return a 403 Forbidden error code when authentication
fails.
Off by default.
login_expect_cookie
String or a compiled regex (eg. "qr/please\s+login/i").
Similar to login_expect, but checks the cookies returned by the
page. If you are also using "initial_url", please be aware that an
cookies set by that page will also test true here (ie. this checks
our cookie jar, not the content of the page). The cookie jar is
reset on every authentication request, so you don't have to worry
about stale cookies from previous authentication attempts.
NOTE: this matches the cookie key, and the value must simple have
some length.
Off by default.
check_login_status_code
Boolean, set to 0 to disable.
Set to undef to skip checking the response status code from the
login page. Otherwise, it must match HTTP::Status->is_success.
Defaults to enabled (1).
username_prefix
Username prefix string.
With this, you can automatically prefix your the submitted username
with some string. This can can be useful if loging into a windows
domain, for example. In that case, you would set it to something
like "MyDomain\".
Off be default.
username_field
Form field name for the username.
Defaults to "username".
password_field
Form field name for the password.
Defaults to "password".
extra_fields
Array reference of key => value pairs, representing additional form
fields to submit.
Often when submitting to a login form, other form fields are
expected by the login script. You may specify any number of them,
and their repsective values, using this option.
Example:
extra_fields => [
'language' => 'en_US',
'trusted' => 1
],
None submitted by default.
extra_headers
Array reference of key => value pairs, representing additional HTTP
headers.
You can use this if you need to further mask your client to appear
as a popular web browser. Some misbehaved servers may reject your
script if these are not set.
Example: (pose as netscape)
extra_headers => [
'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)',
'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*',
'Accept-Charset' => 'iso-8859-1,*,utf-8',
'Accept-Language' => 'en-US'
],
None submitted by default.
lwp_user_agent
The HTTP User Agent string to submit to the server in the HTTP
headers.
Some servers may restrict access to certain user agents (ie. limit
only to MS Internet Explorer and Mozilla clients). You can forge a
user agent string with this.
Example:
lwp_user_agent => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.14) Gecko/2009090216 Ubuntu/9.04 (jaunty) Firefox/3.0.14',
Defaults to "Authen::Simple::WebForm/$VERSION".
lwp_request_method
This can be either "GET" or "POST".
How the URL's will be sent to the server, either via HTTP GET
requests, or HTTP POST.
Defaults to "POST".
lwp_timeout
Timeout in seconds. Set to zero to disable.
This is how long the script will wait for a response for each page
fetch.
Defaults to "15" seconds.
lwp_protocols_allowed
Array reference of protocols to allow.
This will limit what protocols will be fetched. You're already
setting the URLS that will be loaded, but if you allow redirects
(via lwp_requests_redirectable) then those may go to a different
protocol. For example, you may submit to an SSL protected site
(https) but be redirected to an unprotected page (http).
Defaults to ["http", "https"]
lwp_use_conn_cache
Boolean, set to 0 to disable.
Whether to use connection caching. See LWP::ConnCache for details,
as well as the "conn_cache" option to LWP.
Defaults to enabled (1).
lwp_requests_redirectable
Array reference of request names for which we will automatically
redirect.
See LWP option requests_redirectable for details. This affects the
responses we get from the server. For example, if you are posting
form data (lwp_request_method == POST), and the successful login
page returns a redirect to some other page, "POST" would be needed
here. We allow GET and POST by default, so you only need to set this
is if do not want this behavior.
Defaults to ["GET", "POST"]
log
Any object that supports "debug", "info", "error" and "warn".
log => Log::Log4perl->get_logger('Authen::Simple::WebForm')
See Authen::Simple::Log for a simple logging class you may use, or
Log::Log4perl for more advanced logging.
authenticate( $username, $password )
Returns true on success and false on failure.
check($user, $pass)
Internal method used to do the actual authentication check.
TODO
Add lwp_cookie_jar option(s) so that it may use a file.
Write tests using HTTP::Daemon as a local webserver. See LWP test
t/local/http.t and t/local/chunked.t for example.
AUTHOR
Joshua I. Miller, ""
BUGS
Please report any bugs or feature requests to "bug-authen-simple-webform
at rt.cpan.org", or through the web interface at
.
I will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Authen::Simple::WebForm
You can also look for information at:
* RT: CPAN's request tracker
* AnnoCPAN: Annotated CPAN documentation
* CPAN Ratings
* Search CPAN
SEE ALSO
Authen::Simple
Authen::Simple::OWA2003
LWP
COPYRIGHT & LICENSE
Copyright 2009 Joshua I. Miller, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.