package WebGUI::Authentication::WebGUI;

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com			info@plainblack.com
#-------------------------------------------------------------------

use Digest::MD5;
use strict;
use WebGUI::Session;
use WebGUI::Authentication;
use WebGUI::HTMLForm;


#-------------------------------------------------------------------
sub authenticate {
	my ($userId, $identifier, $userData, $success);
	$userId = $_[0]->[0];
	$identifier = $_[0]->[1];
	$userData = WebGUI::Authentication::getParams($userId, 'WebGUI');
	if ((Digest::MD5::md5_base64($identifier) eq $$userData{identifier}) && ($identifier ne "")) {
		$success = 1;
	} else {
		$success = WebGUI::International::get(68);
	}
	return $success;
}


#-------------------------------------------------------------------
sub adminForm {
	my $f;
	$f = WebGUI::HTMLForm->new;
	$f->readOnly('<b>'.optionsLabel().'</b>');
	$f->password("identifier",WebGUI::International::get(51),"password");
	return $f->printRowsOnly;
}

#-------------------------------------------------------------------
sub adminFormSave {
	unless ($session{form}{identifier} eq "password") {
		WebGUI::Authentication::saveParams($_[0],'WebGUI',{identifier => Digest::MD5::md5_base64($session{form}{identifier})});
	}
}

#-------------------------------------------------------------------
sub adminFormValidate {
	return "";
}

#-------------------------------------------------------------------
sub optionsLabel {
        return "WebGUI Authentication Options";
}

#-------------------------------------------------------------------
sub registrationForm {
	my $f;
	$f = WebGUI::HTMLForm->new;
	$f->password("identifier",WebGUI::International::get(51));
	$f->password("identifierConfirm",WebGUI::International::get(55));
	return $f->printRowsOnly;
}

#-------------------------------------------------------------------
sub registrationFormSave {
	adminFormSave($_[0]);
}

#-------------------------------------------------------------------
sub registrationFormValidate {
	my ($error);
        if ($session{form}{identifier} ne $session{form}{identifierConfirm}) {
                $error = '<li>'.WebGUI::International::get(78);
        }
        if ($session{form}{identifier} eq "password") {
                $error .= '<li>'.WebGUI::International::get(727);
        }
        if ($session{form}{identifier} eq "") {
                $error .= '<li>'.WebGUI::International::get(726);
        }
        return $error;
}

#-------------------------------------------------------------------
sub settingsForm {
	return "";
}

#-------------------------------------------------------------------
sub userForm {
        my $f;
        $f = WebGUI::HTMLForm->new;
        $f->password("identifier",WebGUI::International::get(51),"password");
        $f->password("identifierConfirm",WebGUI::International::get(55),"password");
        return $f->printRowsOnly;
}

#-------------------------------------------------------------------
sub userFormSave {
	adminFormSave($session{user}{userId});
}

#-------------------------------------------------------------------
sub userFormValidate {
        my ($error);
        if ($session{form}{identifier} ne $session{form}{identifierConfirm}) {
                $error = '<li>'.WebGUI::International::get(78);
        }
        if ($session{form}{identifier} eq "") {
                $error .= '<li>'.WebGUI::International::get(726);
        }
        return $error;
}


1;