diff --git a/lib/WebGUI/Auth/SMB.pm b/lib/WebGUI/Auth/SMB.pm index 70146a2e1..79d1bcd85 100644 --- a/lib/WebGUI/Auth/SMB.pm +++ b/lib/WebGUI/Auth/SMB.pm @@ -16,8 +16,8 @@ use WebGUI::HTMLForm; use WebGUI::Form; use WebGUI::Session; use WebGUI::Utility; -use Authen::Smb; -use warnings; +#use Authen::Smb; +#use warnings; our @ISA = qw(WebGUI::Auth); @@ -81,10 +81,11 @@ sub authenticate { my $userData = $self->getParams; if($userData->{smbLogin}){ $smb = Authen::Smb::authen($userData->{smbLogin}, $password, $userData->{smbPDC}, $userData->{smbBDC}, $userData->{smbDomain}); - $error .= "
  • ".$smbError{$smb} if($smb > 0); + $error = "
  • ".$smbError{$smb} if($smb > 0) }else{ $error .= "
  • ".WebGUI::International::get(5,'Auth/SMB'); } + $self->user(WebGUI::User->new(1)) if $error ne ""; $self->error($error); return $error eq ""; }