committing first round of GUID changes

This commit is contained in:
JT Smith 2004-08-09 15:45:44 +00:00
parent 0ba6b7c911
commit 48fd2d44e9
48 changed files with 9012 additions and 8870 deletions

View file

@ -232,8 +232,13 @@ while(<FILE>) {
$u->username($user{username});
$u->authMethod($user{authMethod});
$u->status($user{status});
WebGUI::Authentication::saveParams($u->userId,"WebGUI",{identifier=>$user{identifier}});
WebGUI::Authentication::saveParams($u->userId,"LDAP",{
my $cmd = "WebGUI::Auth::".$authMethod;
my $load = "use ".$cmd;
WebGUI::ErrorHandler::fatalError("Authentication module failed to compile: $cmd.".$@) if($@);
eval($load);
my $auth = eval{$cmd->new($authMethod,$u->userId)};
$auth->saveParams($u->userId,"WebGUI",{identifier=>$user{identifier}});
$auth->saveParams($u->userId,"LDAP",{
ldapUrl=>$user{ldapUrl},
connectDN=>$user{connectDN}
});