From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 15 Feb 2005 21:01:12 +0000 (+0000)
Subject: No longer used
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=5eb36bc1653df8d0bd17cb2cc985dace616a26e8;p=working%2FOpenSRF.git

No longer used


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@58 9efc2488-bf62-4759-914b-345cdb29e865
---

diff --git a/src/perlmods/OpenSRF/DOM/Element/userAuth.pm b/src/perlmods/OpenSRF/DOM/Element/userAuth.pm
deleted file mode 100644
index 507f1fa..0000000
--- a/src/perlmods/OpenSRF/DOM/Element/userAuth.pm
+++ /dev/null
@@ -1,178 +0,0 @@
-package OpenSRF::DOM::Element::userAuth;
-use OpenSRF::DOM;
-use OpenSRF::Utils::Logger qw/:level/;
-use OpenSRF::Utils::Config;
-use Digest::MD5 qw/md5_hex/;
-use OpenSRF::DomainObject::oilsMethod;
-use OpenSRF::DomainObject::oilsResponse;
-#use OpenSRF::App::Auth;
-use OpenSRF::EX qw/:try/;
-use OpenSRF::Utils::Cache;
-
-use base 'OpenSRF::DOM::Element';
-
-my $log = 'OpenSRF::Utils::Logger';
-
-=head1 NAME
-
-OpenSRF::DOM::Element::userAuth
-
-=over 4
-
-User authentication data structure for use in oilsMessage objects.
-
-=back
-
-=head1 SYNOPSIS
-
- use OpenSRF::DOM::Element::userAuth;
-
- %auth_structure = ( userid   => '0123456789', secret => 'junko' );
- %auth_structure = ( username => 'miker',      secret => 'junko' );
-
- my $auth = OpenSRF::DOM::Element::userAuth->new( %auth_structure );
-
-...
-
- my %server_auth = ( sysname	=> 'OPACServer',
-                     secret	=> 'deadbeefdeadbeef' );
-
- my $auth = OpenSRF::DOM::Element::userAuth->new( %server_auth );
-
-=cut
-
-sub new {
-	my $class = shift;
-	$class = ref($class) || $class;
-
-	my %args = @_;
-
-	$args{hashseed} ||= int( rand( $$ ) );
-
-	$args{secret} = md5_hex($args{secret});
-	$args{secret} = md5_hex($args{hashseed}. $args{secret});
-
-	return $class->SUPER::new( %args );
-}
-
-sub username {
-	my $self = shift;
-	return $self->getAttribute('username');
-}
-
-sub userid {
-	my $self = shift;
-	return $self->getAttribute('userid');
-}
-
-sub sysname {
-	my $self = shift;
-	return $self->getAttribute('sysname');
-}
-
-sub secret {
-	my $self = shift;
-	return $self->getAttribute('secret');
-}
-
-sub hashseed {
-	my $self = shift;
-	return $self->getAttribute('hashseed');
-}
-
-sub authenticate {
-	my $self = shift;
-	my $session = shift;
-	my $u = $self->username ||
-		$self->userid ||
-		$self->sysname;
-	$log->debug("Authenticating user [$u]",INFO);
-
-
-	# We need to make sure that we are not the auth server.  If we are,
-	# we don't want to send a request to ourselves.  Instead just call
-	# the local auth method.
-	my @params = ( $u, $self->secret, $self->hashseed );
-	my $res;
-
-	# ------------------------------
-	# See if we can auth with the cache first
-	$log->debug( "Attempting cache auth...", INTERNAL );
-	my $cache = OpenSRF::Utils::Cache->current("user"); 
-	my $value = $cache->get( $u );
-
-	if( $value  and $value eq $self->secret ) {
-		$log->debug( "User $u is cached and authenticated", INTERNAL );
-		return 1;
-	}
-	# ------------------------------
-
-	if( $session->service eq "auth" ) {
-		$log->debug( "We are AUTH. calling local auth", DEBUG ); 
-		my $meth = OpenSRF::App::Auth->method_lookup('authenticate', 1);
-		$log->debug("Meth ref is $meth", INTERNAL);
-		$res = $meth->run( 1, @params );
-
-	} else { 
-		$log->debug( "Calling AUTH server", DEBUG );	
-		$res = _request_remote_auth( $session, @params ); 
-	}
-
-
-	if( $res and $res->class->isa('OpenSRF::DomainObject::oilsResult') and 
-			$res->content and ($res->content->value eq "yes") ) {
-
-		$log->debug( "User $u is authenticated", DEBUG );
-		$log->debug( "Adding $u to cache", INTERNAL );
-
-		# Add to the cache ------------------------------
-		$cache->set( $u, $self->secret ); 
-
-		return 1;
-
-	} else { 
-		return 0; 
-	}
-	
-} 
-
-sub _request_remote_auth {
-
-	my $server_session = shift;
-	my @params = @_;
-
-	my $service = $server_session->service;
-
-	my @server_auth = (sysname => OpenSRF::Utils::Config->current->$service->sysname,
-			   secret  => OpenSRF::Utils::Config->current->$service->secret );
-
-	my $session = OpenSRF::AppSession->create( "auth", @server_auth ); 
-
-	$log->debug( "Sending request to auth server", INTERNAL );
-	
-	my $req; my $res;
-
-	try {
-
-		if( ! $session->connect() ) {
-			throw OpenSRF::EX::CRITICAL ("Cannot communicate with auth server");
-		}
-		$req = $session->request( authenticate => @params );
-		$req->wait_complete( OpenSRF::Utils::Config->current->client->connect_timeout );
-		$res = $req->recv(); 
-
-	} catch OpenSRF::DomainObject::oilsAuthException with {
-		return 0;
-
-	} finally {
-		$req->finish() if $req;
-		$session->finish() if $session;
-	};
-
-	return $res;
-
-}
-
-
-
-1;