#!/usr/local/bin/perl
# list_users.cgi
# Display all users in the database

require './postgresql-lib.pl';
$access{'users'} || &error($text{'user_ecannot'});
&ui_print_header(undef, $text{'user_title'}, "", "list_users");

$s = &execute_sql_safe($config{'basedb'}, "select * from pg_shadow");
print &ui_form_start("delete_users.cgi", "post");
@rowlinks = ( &select_all_link("d", 0),
	      &select_invert_link("d", 0),
	      "<a href='edit_user.cgi?new=1'>$text{'user_add'}</a>" );
print &ui_links_row(\@rowlinks);
print &ui_columns_start([ "", $text{'user_name'},
			  $text{'user_pass'},
			  $text{'user_db'},
			  $text{'user_other'},
			  $text{'user_until'} ], 100);
foreach $u (sort { $a->[0] cmp $b->[0] } @{$s->{'data'}}) {
	local @cols;
	push(@cols, "<a href='edit_user.cgi?user=$u->[0]'>".
		    &html_escape($u->[0])."</a>");
	push(@cols, $u->[5] ? $text{'yes'} : $text{'no'});
	push(@cols, $u->[2] =~ /t|1/ ? $text{'yes'} : $text{'no'});
	push(@cols, $u->[4] =~ /t|1/ ? $text{'yes'} : $text{'no'});
	push(@cols, $u->[6] ? &html_escape($u->[6])
			     : $text{'user_forever'});
	print &ui_checked_columns_row(\@cols, undef, "d", $u->[0]);
	}
print &ui_columns_end();
print &ui_links_row(\@rowlinks);
print &ui_form_end([ [ "delete", $text{'user_delete'} ] ]);

if (&get_postgresql_version() >= 7 && &foreign_installed("useradmin")) {
	print &ui_hr();
	print "$text{'user_sync'}<p>\n";
	print &ui_form_start("save_sync.cgi");
	print &ui_table_start(undef, undef, 2);

	# When to sync
	print &ui_table_row($text{'user_syncwhen'},
	      &ui_checkbox("sync_create", 1, $text{'user_sync_create'},
			   $config{'sync_create'})."<br>\n".
	      &ui_checkbox("sync_modify", 1, $text{'user_sync_modify'},
			   $config{'sync_modify'})."<br>\n".
	      &ui_checkbox("sync_delete", 1, $text{'user_sync_delete'},
			   $config{'sync_delete'}));

	print &ui_table_end();
	print &ui_form_end([ [ "save", $text{'save'} ] ]);
	}

&ui_print_footer("", $text{'index_return'});