|
NAMELWP::Authen::Negotiate - GSSAPI based Authentication Plugin for LWPSYNOPSIS#! /usr/bin/perl -w use strict; require LWP::UserAgent; # uncomment if you want see what is going wrong messages # #use LWP::Debug qw(+); my $ua = LWP::UserAgent->new; my $response = $ua->get('http://testwurst.grolmsnet.lan:8090/geheim/'); if ($response->is_success) { print $response->content; # or whatever } else { die $response->status_line; } just install LWP::Authen::Negotiate, LWP uses it as authentication plugin. Use your LWP::UserAgent Scripts as usual. Authentication is done transparent based on your GSSAPI installation (MIT Kerberos or Heimdal) WWW-Negotiate Webservers are IIS or Apache with mod_auth_kerb for example. DESCRIPTIONTo see what ist going on adduse LWP::Debug qw(+); to yor LWP using Scripts. (e.g. too see what is going wrong with GSSAPI...) DEBUGGINGTo see what ist going on (and going wrong) adduse LWP::Debug qw(+); to yor LWP using Scripts. (e.g. too see what is going wrong with GSSAPI...) the output will look like this: LWP::UserAgent::new: () LWP::UserAgent::request: () LWP::UserAgent::send_request: GET http://testwurst.grolmsnet.lan:8090/geheim/ LWP::UserAgent::_need_proxy: Not proxied LWP::Protocol::http::request: () LWP::Protocol::collect: read 478 bytes LWP::UserAgent::request: Simple response: Unauthorized LWP::Authen::Negotiate::authenticate: authenticate() called LWP::Authen::Negotiate::authenticate: target hostname testwurst.grolmsnet.lan LWP::Authen::Negotiate::authenticate: GSSAPI servicename HTTP/moerbsen.grolmsnet.lan@GROLMSNET.LAN LWP::Authen::Negotiate::authenticate: Miscellaneous failure (see text) LWP::Authen::Negotiate::authenticate: open(/tmp/krb5cc_1000): file not found In this case the credentials cache was empty. Run kinit first ;-) ENVIRONMENT
SEE ALSO
BUGSAs default Kerberos 5 is selected as GSSAPI mechanism. a later veriosn will make that configureable.AUTHORAchim Grolms, <achim@grolmsnet.de>http://perlgssapi.sourceforge.net/ Thanks to
COPYRIGHT AND LICENSECopyright (C) 2006 by Achim Grolms <perl@grolmsnet.de>This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or, at your option, any later version of Perl 5 you may have available.
Visit the GSP FreeBSD Man Page Interface. |