oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Source cleanup

Browse source
This commit is contained in:
Martin Kamerbeek 2002-11-19 14:51:19 +00:00
parent e5f0c3f325
commit 7b08806827
2 changed files with 194 additions and 139 deletions
Download patch file Download diff file Expand all files Collapse all files

144
lib/WebGUI/Authentication/WebGUI.pm
View file

@ -1,5 +1,20 @@
package WebGUI::Authentication::WebGUI;
#-------------------------------------------------------------------
# This module is made by M. Kamerbeek of Procolix (procolix.com)
# for WebGUI and released under GNU/GPL.
#-------------------------------------------------------------------
#-------------------------------------------------------------------
# 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 strict;
use WebGUI;
use WebGUI::Session;
@ -7,67 +22,12 @@ use WebGUI::Authentication;
use WebGUI::HTMLForm;
use Digest::MD5;
sub formAddUser {
my $f;
$f = WebGUI::HTMLForm->new;
$f->readOnly("<b>WebGUI Authentication options</b>");
$f->password("identifier",WebGUI::International::get(51));
return $f->printRowsOnly;
}
sub saveAddUser {
my $encryptedPassword;
$encryptedPassword = Digest::MD5::md5_base64($session{form}{identifier});
WebGUI::Authentication::saveParams($session{form}{uid},'WebGUI',{identifier => $encryptedPassword});
}
sub formEditUser {
my $f;
$f = WebGUI::HTMLForm->new;
$f->readOnly('<b>WebGUI Authentication Options</b>');
$f->password("identifier",WebGUI::International::get(51),"password");
}
sub saveEditUser {
my ($encryptedPassword);
if ($session{form}{identifier} ne "password") {
$encryptedPassword = Digest::MD5::md5_base64($session{form}{identifier});
WebGUI::Authentication::saveParams($session{form}{uid}, 'WebGUI', {identifier => $encryptedPassword});
}
}
sub formEditUserSettings {
return '';
}
sub saveEditUserSettings {
}
sub formCreateAccount {
my $f;
$f = WebGUI::HTMLForm->new;
$f->password("identifier1",WebGUI::International::get(51));
$f->password("identifier2",WebGUI::International::get(55));
return $f->printRowsOnly;
}
sub saveCreateAccount {
my ($encryptedPassword, $uid);
$uid = shift;
$encryptedPassword = Digest::MD5::md5_base64($session{form}{identifier1});
WebGUI::Authentication::saveParams($uid, 'WebGUI', {identifier => $encryptedPassword});
}
#-------------------------------------------------------------------
sub hasBadUserData {
return WebGUI::Operation::Account::_hasBadPassword($session{form}{identifier1},$session{form}{identifier2});
}
#-------------------------------------------------------------------
sub validateUser {
my ($userId, $identifier, $userData, $success);
($userId, $identifier) = @_;
@ -82,4 +42,74 @@ sub validateUser {
return $success;
}
#-------------------------------------------------------------------------
# Below are the subs that create and save the forms used for inputting
# config data for this auth module. The 'form' and 'save' subs of each
# from are so related that I've grouped by function. Apart from the
# 'save' and 'form' stuff the subs are still in alphabetical order though.
#-------------------------------------------------------------------------
#-------------------------------------------------------------------
sub formAddUser {
my $f;
$f = WebGUI::HTMLForm->new;
$f->readOnly("<b>WebGUI Authentication options</b>");
$f->password("identifier",WebGUI::International::get(51));
return $f->printRowsOnly;
}
#-------------------------------------------------------------------
sub saveAddUser {
my $encryptedPassword;
$encryptedPassword = Digest::MD5::md5_base64($session{form}{identifier});
WebGUI::Authentication::saveParams($session{form}{uid},'WebGUI',{identifier => $encryptedPassword});
}
#-------------------------------------------------------------------
sub formCreateAccount {
my $f;
$f = WebGUI::HTMLForm->new;
$f->password("identifier1",WebGUI::International::get(51));
$f->password("identifier2",WebGUI::International::get(55));
return $f->printRowsOnly;
}
#-------------------------------------------------------------------
sub saveCreateAccount {
my ($encryptedPassword, $uid);
$uid = shift;
$encryptedPassword = Digest::MD5::md5_base64($session{form}{identifier1});
WebGUI::Authentication::saveParams($uid, 'WebGUI', {identifier => $encryptedPassword});
}
#-------------------------------------------------------------------
sub formEditUser {
my $f;
$f = WebGUI::HTMLForm->new;
$f->readOnly('<b>WebGUI Authentication Options</b>');
$f->password("identifier",WebGUI::International::get(51),"password");
}
#-------------------------------------------------------------------
sub saveEditUser {
my ($encryptedPassword);
if ($session{form}{identifier} ne "password") {
$encryptedPassword = Digest::MD5::md5_base64($session{form}{identifier});
WebGUI::Authentication::saveParams($session{form}{uid}, 'WebGUI', {identifier => $encryptedPassword});
}
}
#-------------------------------------------------------------------
sub formEditUserSettings {
return '';
}
1;