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

fixing the new pluggable auth converter

Browse source
This commit is contained in:
JT Smith 2002-11-23 02:58:43 +00:00
parent dcab986018
commit 04c431306e
2 changed files with 7 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

47
sbin/convertDBtoPA.pl
View file

@ -1,47 +0,0 @@
our ($webguiRoot, $configFile);
BEGIN {
$configFile = "WebGUI.conf";
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
print "\n".
"This program converts the old userauthentication system to the new (pluggable)\n".
"one. It does NOT delete the old system so you can always use an older stable\n".
"WebGUI release. If you don't want to return to the primitive days without\n".
"pluggable authentication, you should delete the 'ldapURL', 'connectDN' and the\n".
"'identifier' columns from the users table\n\n";
}
use strict;
use WebGUI;
use WebGUI::SQL;
use WebGUI::Session;
use WebGUI::Utility;
#--- Open a session for easy use of WebGUI::SQL --------------------------
print "Opening WebGUI Session...";
WebGUI::Session::open($webguiRoot, $configFile);
print "Ready\n\n";
#--- Check if the authentication table already exists --------------------
my @tables = WebGUI::SQL->buildArray("show tables");
die "Table 'authentication' already exists!\n" if isIn('authentication', @tables);
#--- Create the authentication table -------------------------------------
print "Creating authentication table...";
my $sql = "create table authentication (userId int(11) not null, authMethod varchar(30) not null, fieldName varchar(128) not null, fieldData text, primary key (userId, authMethod, fieldName))";
WebGUI::SQL->write($sql);
print "OK\n\n";
#--- And go convert ------------------------------------------------------
my $sth = WebGUI::SQL->read("select * from users");
while (my %hash = $sth->hash) {
print "Converting user $hash{username} (id: $hash{userId})";
WebGUI::SQL->write("insert into authentication values ($hash{userId}, 'LDAP', 'ldapUrl', ". quote($hash{ldapUrl}) .")");
print ".";
WebGUI::SQL->write("insert into authentication values ($hash{userId}, 'LDAP', 'connectDN', ". quote($hash{connectDN}) .")");
print ".";
WebGUI::SQL->write("insert into authentication values ($hash{userId}, 'WebGUI', 'identifier', ". quote($hash{identifier}) .")");
print "OK\n";
}