No Subject

[Gus <angus@z-y-g-o.com>]

Hi,

Attached is a patch for lib/Vend/UserDB.pm so it gives the same response
("Authentication failiure") for both unmatched username and incorrect
password.

I realise this probably seems like a step backwards, but it's appropriate
for the way I'll be using MV. :-)


Regards
	Gus

--
                            angus.wood@z-y-g-o.com
*** UserDB.pm.orig	Fri Apr 16 22:42:09 1999
--- UserDB.pm	Fri Apr 16 22:04:39 1999
***************
*** 817,823 ****
  			$self->{PASSWORD} = lc $self->{PASSWORD};
  			$self->{USERNAME} = lc $self->{USERNAME};
  		}
! 		die "Username does not exist.\n"
  			unless $self->{DB}->record_exists($self->{USERNAME});
  		my $db_pass = $self->{DB}->field(
  						$self->{USERNAME},
--- 817,823 ----
  			$self->{PASSWORD} = lc $self->{PASSWORD};
  			$self->{USERNAME} = lc $self->{USERNAME};
  		}
! 		die "Authentication failiure.\n"
  			unless $self->{DB}->record_exists($self->{USERNAME});
  		my $db_pass = $self->{DB}->field(
  						$self->{USERNAME},
***************
*** 827,833 ****
  		if($self->{CRYPT}) {
  			$self->{PASSWORD} = crypt($pw,$db_pass);
  		}
! 		die "Password mismatch.\n"
  			unless $self->{PASSWORD} eq $db_pass;
  
  		if($self->{PRESENT}->{ $self->{LOCATION}{EXPIRATION} } ) {
--- 827,833 ----
  		if($self->{CRYPT}) {
  			$self->{PASSWORD} = crypt($pw,$db_pass);
  		}
! 		die "Authentication failiure.\n"
  			unless $self->{PASSWORD} eq $db_pass;
  
  		if($self->{PRESENT}->{ $self->{LOCATION}{EXPIRATION} } ) {