X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAuthentication%2FCredential%2FHTTP.pm;h=756940bbf5d3afbbefdf57e8711e9525134d79a9;hb=6cd8c8c7d08ee9846718912d2733dec956341eee;hp=27a59ab638f0d217d4080498116494cf2286c8e4;hpb=c5a1fa888d417417060fa21bd72f5d862cb60513;p=catagits%2FCatalyst-Authentication-Credential-HTTP.git diff --git a/lib/Catalyst/Authentication/Credential/HTTP.pm b/lib/Catalyst/Authentication/Credential/HTTP.pm index 27a59ab..756940b 100644 --- a/lib/Catalyst/Authentication/Credential/HTTP.pm +++ b/lib/Catalyst/Authentication/Credential/HTTP.pm @@ -13,7 +13,7 @@ BEGIN { __PACKAGE__->mk_accessors(qw/_config realm/); } -our $VERSION = "1.004"; +our $VERSION = "1.005"; sub new { my ($class, $config, $app, $realm) = @_; @@ -23,12 +23,17 @@ sub new { $self->realm($realm); + $self->init; + return $self; +} + +sub init { + my ($self) = @_; my $type = $self->_config->{'type'} ||= 'any'; if (!grep /$type/, ('basic', 'digest', 'any')) { Catalyst::Exception->throw(__PACKAGE__ . " used with unsupported authentication type: " . $type); } - return $self; } sub authenticate { @@ -455,6 +460,10 @@ C methods as shown below. Simple constructor. +=item init + +Validates that $config is ok. + =item authenticate $c, $realm, \%auth_info Tries to authenticate the user, and if that fails calls @@ -478,6 +487,20 @@ Catalyst::Authentication::Realm object used for the authentication. Array reference to domains used to build the authorization headers. +This list of domains defines the protection space. If a domain URI is an +absolute path (starts with /), it is relative to the root URL of the server being accessed. +An absolute URI in this list may refer to a different server than the one being accessed. + +The client will use this list to determine the set of URIs for which the same authentication +information may be sent. + +If this is omitted or its value is empty, the client will assume that the +protection space consists of all URIs on the responding server. + +Therefore, if your application is not hosted at the root of this domain, and you want to +prevent the authentication credentials for this application being sent to any other applications. +then you should use the I configuration option, and pass a domain of I. + =back =item authenticate_basic $c, $realm, \%auth_info @@ -493,6 +516,9 @@ your application as digest authentication needs to store persistent data. Note - if you do not want to store your user passwords as clear text, then it is possible to store instead the MD5 digest in hex of the string '$username:$realm:$password' +Takes an additional parameter of I, the possible values of which are 'MD5' (the default) +and 'MD5-sess'. For more information about 'MD5-sess', see section 3.2.2.2 in RFC 2617. + =item authorization_required_response $c, $realm, \%auth_info Sets C<< $c->response >> to the correct status code, and adds the correct @@ -546,7 +572,9 @@ Luri_for() +run through $c->uri_for(). Use this configuration option if your application is not running at the root +of your domain, and you want to ensure that authentication credentials from your application are not shared with +other applications on the same server. =back