fetching user data from central db instead of flat file, removing sessionid, removing setup_initial_password function, fixing %myconfig data type

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@547 4979c152-3d1c-0410-bac9-87ea11338e46
author: christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> 2006-11-13 03:39:22 +0000
committer: christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> 2006-11-13 03:39:22 +0000
commit: 988eaf4954fef8fb2f6e3b263b57963874d5285a (patch)
tree: 4aa868ace04037b0bdbed0525979647a176ac36f /bin/admin.pl
parent: 09f58e0c9f556383f2b1c83960415038284e2f48 (diff)
1 files changed, 25 insertions, 73 deletions
diff --git a/bin/admin.pl b/bin/admin.pl
index bc4e291f..939dbae6 100755
--- a/bin/admin.pl
+++ b/bin/admin.pl
@@ -76,54 +76,12 @@ if ($form->{action}) {
 
 	$root = LedgerSMB::User->new('admin');
 
-	unless($root && $root->{password}){ 
-		 &setup_initial_password();
-		 exit;
-	}
-
 	&adminlogin;
 }
 
 1;
 # end
 
-
-sub setup_initial_password {
-	
-
-	$form->header();
-	print qq|
-	<body class="admin" onload="sf()">
-	<div align="center">
-		<a href="http://www.ledgersmb.org/"><img src="ledger-smb.png" width="200" height="100" border="0" alt="LedgerSMB Logo" /></a>
-		<h1 class="login">|.$locale->text('Version').qq| $form->{version} <br />|.$locale->text('Administration').qq|</h1>
-		
-		<fieldset><legend>|.$locale->text('Change password').qq|</legend>
-		<p>|.$locale->text('This is your first time logging into LedgerSMB.  Please set your administrative password').qq|</p>
-		
-		<form method="post" action="$form->{script}" name="admin">
-						<table>
-						<tr>
-							<th align="right">|.$locale->text('Password').qq|</th>
-							<td><input type="password" name="new_password" /></td>
-						</tr>
-						<tr>
-							<th align="right">|.$locale->text('Confirm').qq|</th>
-							<td><input type="password" name="confirm_password" /></td>
-						</tr>
-					</table>
-		<input type="hidden" name="path" value="$form->{path}" />
-		<input type="hidden" name="sessionid" value="$form->{sessionid}" />
-		<p><button type="submit" class="submit" name="action" value="change_password">|.$locale->text('Change Password').qq|</button></p>
-		</form>
-
-		<a href="http://www.ledgersmb.org/">|.$locale->text('LedgerSMB website').qq|</a>
-	</div>
-	</body>
-	</html>
-|;	
-}
-
 sub adminlogin {
 
 	$form->{title} = qq|LedgerSMB $form->{version} |.$locale->text('Administration');
@@ -219,9 +177,8 @@ sub form_footer {
 	}
 
 	print qq|
-	<input name="callback" type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}" />
+	<input name="callback" type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}" />
 	<input type="hidden" name="path" value="$form->{path}" />
-	<input type="hidden" name="sessionid" value="$form->{sessionid}" />
 	<button type="submit" class="submit" name="action" value="save">|.$locale->text('Save').qq|</button>
 	$delete
 	</form>
@@ -240,21 +197,23 @@ sub list_users {
 	#	$nologin = qq|<button type="submit" class="submit" name="action" value="unlock_system">|.$locale->text('Unlock System').qq|</button>|;
 	#}
 
-	while (<FH>) {
-		chop;
+	# use the central database handle
+	my $dbh = ${LedgerSMB::Sysconfig::GLOBALDBH};
 
-		if (/^\[.*\]/) {
-			$login = $_;
-			$login =~ s/(\[|\])//g;
-		}
+	my $fetchMembers = $dbh->selectall_arrayref("SELECT uc.name, uc.company, uc.templates,
+														uc.dbuser, uc.dbdriver, uc.dbname, 
+														uc.dbhost, u.username
+												   FROM users as u, users_conf as uc
+												  WHERE u.id = uc.id	
+													AND u.id > 1
+											   ORDER BY u.username;", { Slice => {} });	
 
-		if (/^(name=|company=|templates=|dbuser=|dbdriver=|dbname=|dbhost=)/) {
-			chop ($var = $&);
-			($null, $member{$login}{$var}) = split /=/, $_, 2;
-		}
-	}
+	my @memberArray = ();
+	my @member = ();
 
-	close(FH);
+	foreach my $memberArray ( @$fetchMembers ) {
+		$member{$memberArray->{username}} = $memberArray;
+	}
 
 	# type=submit $locale->text('Pg Database Administration')
 	# type=submit $locale->text('PgPP Database Administration')
@@ -298,7 +257,7 @@ sub list_users {
 
 	foreach $key (sort keys %member) {
 
-		$href = "$script?action=edit&amp;login=$key&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}";
+		$href = "$script?action=edit&amp;login=$key&amp;path=$form->{path}";
 		$href =~ s/ /%20/g;
 
 		$member{$key}{templates} =~ s/^${LedgerSMB::Sysconfig::templates}\///;
@@ -329,7 +288,6 @@ sub list_users {
 			</tr>
 		</table>
 		<input type="hidden" name="path" value="$form->{path}" />
-		<input type="hidden" name="sessionid" value="$form->{sessionid}" />
 		<br />
 		<button type="submit" class="submit" name="action" value="add_user">|.$locale->text('Add User').qq|</button>
 		<button type="submit" class="submit" name="action" value="change_admin_password">|.$locale->text('Change Admin Password').qq|</button>
@@ -355,14 +313,13 @@ sub form_header {
 	if ($form->{login}) {
 
 		# get user
-		%myconfig = %{LedgerSMB::User->fetch_config($form->{login})};
+		%{$myconfig} = %{LedgerSMB::User->fetch_config($form->{login})};
 
 		for (qw(company address signature)) { $myconfig->{$_} = $form->quote($myconfig->{$_}) }
 		for (qw(address signature)) { $myconfig->{$_} =~ s/\\n/\n/g }
 
 		# strip basedir from templates directory
 		$myconfig->{templates} =~ s/^${LedgerSMB::Sysconfig::templates}\///;
-		$myconfig->{dbpasswd} = unpack 'u', $myconfig->{dbpasswd};
 	}
 
 	foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) {
@@ -902,7 +859,7 @@ sub change_admin_password {
 
 	$form->{title} = qq|LedgerSMB |.$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Change Admin Password');
 
-	$form->{login} = "root login";
+	$form->{login} = "admin";
 	$form->header;
 
 	print qq|
@@ -931,7 +888,6 @@ sub change_admin_password {
 		<br />
 		<hr size="3" noshade />
 		<input type="hidden" name="path" value="$form->{path}" />
-		<input type="hidden" name="sessionid" value="$form->{sessionid}" />
 		<p><button type="submit" class="submit" name="action" value="change_password">|.$locale->text('Change Password').qq|</button></p>
 		</form>
 	</body>
@@ -947,7 +903,7 @@ sub change_password {
 	$root->{password} = $form->{new_password};
 	$root->{'root login'} = 1;
 	$root->save_member();
-	$form->{callback} = "$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}";
+	$form->{callback} = "$form->{script}?action=list_users&amp;path=$form->{path}";
 	$form->redirect($locale->text('Password changed!'));
 }
 
@@ -1070,9 +1026,8 @@ sub dbselect_source {
 			</tr>
 		</table>
 	<input type="hidden" name="dbdriver" value="$form->{dbdriver}" />
-	<input name="callback" type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}" />
+	<input name="callback" type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}" />
 	<input type="hidden" name="path" value="$form->{path}" />
-	<input type="hidden" name="sessionid" value="$form->{sessionid}" />
 	<br />
 	<button type="submit" class="submit" name="action" value="create_dataset">|.$locale->text('Create Dataset').qq|</button>
 	<button type="submit" class="submit" name="action" value="delete_dataset">|.$locale->text('Delete Dataset').qq|</button>
@@ -1207,10 +1162,10 @@ sub create_dataset {
 	</table>
 	|;
 
-	$form->hide_form(qw(dbdriver dbsuperuser dbsuperpasswd dbuser dbhost dbport dbpasswd dbdefault path sessionid));
+	$form->hide_form(qw(dbdriver dbsuperuser dbsuperpasswd dbuser dbhost dbport dbpasswd dbdefault path));
 
 	print qq|
-	<input name="callback" type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}" />
+	<input name="callback" type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}" />
 	<input type="hidden" name="nextsub" value="dbcreate" />
 	<br />
 	<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
@@ -1243,7 +1198,6 @@ sub dbcreate {
 		.$locale->text('Dataset [_1] successfully created!', $form->{db})
 		.qq|
 		<input type="hidden" name="path" value="$form->{path}" />
-		<input type="hidden" name="sessionid" value="$form->{sessionid}" />
 		<input type="hidden" name="nextsub" value="list_users" />
 		<p><button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button></p>
 	</form>
@@ -1283,9 +1237,8 @@ sub delete_dataset {
 	<input type="hidden" name="dbport" value="$form->{dbport}" />
 	<input type="hidden" name="dbpasswd" value="$form->{dbpasswd}" />
 	<input type="hidden" name="dbdefault" value="$form->{dbdefault}" />
-	<input name=callback type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}">
+	<input name=callback type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}">
 	<input type="hidden" name="path" value="$form->{path}" />
-	<input type="hidden" name="sessionid" value="$form->{sessionid}" />
 	<input type="hidden" name="nextsub" value="dbdelete" />
 	<table width="100%">
 		<tr class="listheading">
@@ -1335,7 +1288,6 @@ sub dbdelete {
 	.qq|
 	<form method="post" action="$form->{script}" />
 	<input type="hidden" name="path" value="$form->{path}" />
-	<input type="hidden" name="sessionid" value="$form->{sessionid}" />
 	<input type="hidden" name="nextsub" value="list_users" />
 	<p><button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button></p>
 	</form>
@@ -1349,7 +1301,7 @@ sub unlock_system {
 
 	# This needs to be done with a db tool
 	#	unlink "${LedgerSMB::Sysconfig::userspath}/nologin";
-	$form->{callback} = "$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}";
+	$form->{callback} = "$form->{script}?action=list_users&amp;path=$form->{path}";
 	$form->redirect($locale->text('Lockfile removed!'));
 }
 
@@ -1359,6 +1311,6 @@ sub lock_system {
 	# This needs to be done with a db tool
 	#open(FH, ">${LedgerSMB::Sysconfig::userspath}/nologin") or $form->error($locale->text('Cannot create Lock!'));
 	#close(FH);
-	$form->{callback} = "$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}";
+	$form->{callback} = "$form->{script}?action=list_users&amp;path=$form->{path}";
 	$form->redirect($locale->text('Lockfile created!'));
 }
author	christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>	2006-11-13 03:39:22 +0000
committer	christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>	2006-11-13 03:39:22 +0000
commit	988eaf4954fef8fb2f6e3b263b57963874d5285a (patch)
tree	4aa868ace04037b0bdbed0525979647a176ac36f /bin/admin.pl
parent	09f58e0c9f556383f2b1c83960415038284e2f48 (diff)