Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
old	[ DIR ]	drwxr-xr-x
CHANGELOG	5.45 KB	-rw-r--r--
acl_security.pl	5.46 KB	-rwxr-xr-x
backup.cgi	5.03 KB	-rwxr-xr-x
backup.pl	1.82 KB	-rwxr-xr-x
backup_config.pl	643 B	-rwxr-xr-x
backup_form.cgi	4.48 KB	-rwxr-xr-x
cgi_args.pl	993 B	-rwxr-xr-x
config	501 B	-rw-r--r--
config-Amazon-Linux-2-ALL	484 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	484 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	484 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	484 B	-rw-r--r--
config-cobalt-linux	435 B	-rw-r--r--
config-coherent-linux	507 B	-rw-r--r--
config-debian-linux	416 B	-rw-r--r--
config-debian-linux-4.0-ALL	425 B	-rw-r--r--
config-freebsd	588 B	-rw-r--r--
config-freebsd-8-ALL	580 B	-rw-r--r--
config-gentoo-linux	429 B	-rw-r--r--
config-mandrake-linux	435 B	-rw-r--r--
config-msc-linux	441 B	-rw-r--r--
config-netbsd	454 B	-rw-r--r--
config-openmamba-linux	444 B	-rw-r--r--
config-pardus-linux	431 B	-rw-r--r--
config-redhat-linux	444 B	-rw-r--r--
config-redhat-linux-10.0-23.0	772 B	-rw-r--r--
config-redhat-linux-24.0-ALL	500 B	-rw-r--r--
config-redhat-linux-7.0-7.2	493 B	-rw-r--r--
config-redhat-linux-7.3	507 B	-rw-r--r--
config-redhat-linux-7.4-9.0	507 B	-rw-r--r--
config-sol-linux	462 B	-rw-r--r--
config-suse-linux	448 B	-rw-r--r--
config-suse-linux-7.0	457 B	-rw-r--r--
config-suse-linux-7.1-9.0	459 B	-rw-r--r--
config-suse-linux-9.1-ALL	459 B	-rw-r--r--
config-syno-linux	454 B	-rw-r--r--
config-trustix-linux	619 B	-rw-r--r--
config-united-linux	459 B	-rw-r--r--
config-windows	510 B	-rw-r--r--
config.info	1.46 KB	-rw-r--r--
config.info.bg	1.7 KB	-rw-r--r--
config.info.bg.UTF-8	2.68 KB	-rw-r--r--
config.info.ca	1.65 KB	-rw-r--r--
config.info.ca.UTF-8	1.68 KB	-rw-r--r--
config.info.cz	746 B	-rw-r--r--
config.info.cz.UTF-8	802 B	-rw-r--r--
config.info.de	1.64 KB	-rw-r--r--
config.info.de.UTF-8	1.64 KB	-rw-r--r--
config.info.es	627 B	-rw-r--r--
config.info.es.UTF-8	635 B	-rw-r--r--
config.info.fr	1.54 KB	-rw-r--r--
config.info.fr.UTF-8	1.54 KB	-rw-r--r--
config.info.ja_JP.UTF-8	1.68 KB	-rw-r--r--
config.info.ja_JP.euc	1.3 KB	-rw-r--r--
config.info.ko_KR.UTF-8	1.42 KB	-rw-r--r--
config.info.ko_KR.euc	1.14 KB	-rw-r--r--
config.info.nl	1.6 KB	-rw-r--r--
config.info.nl.UTF-8	1.6 KB	-rw-r--r--
config.info.no	1.6 KB	-rw-r--r--
config.info.no.UTF-8	1.6 KB	-rw-r--r--
config.info.pl	501 B	-rw-r--r--
config.info.pl.UTF-8	521 B	-rw-r--r--
config.info.ru.UTF-8	1.05 KB	-rw-r--r--
config.info.ru_RU	695 B	-rw-r--r--
config.info.ru_RU.UTF-8	1.05 KB	-rw-r--r--
config.info.ru_SU	695 B	-rw-r--r--
config.info.sv	445 B	-rw-r--r--
config.info.sv.UTF-8	459 B	-rw-r--r--
config.info.tr	1.31 KB	-rw-r--r--
config.info.uk_UA	720 B	-rw-r--r--
config.info.uk_UA.UTF-8	1.06 KB	-rw-r--r--
config.info.zh_CN	269 B	-rw-r--r--
config.info.zh_CN.UTF-8	328 B	-rw-r--r--
config.info.zh_TW.Big5	393 B	-rw-r--r--
config.info.zh_TW.UTF-8	475 B	-rw-r--r--
cpan_modules.pl	86 B	-rwxr-xr-x
create_table.cgi	1.18 KB	-rwxr-xr-x
csv.cgi	2 KB	-rwxr-xr-x
csv_form.cgi	1.68 KB	-rwxr-xr-x
defaultacl	99 B	-rw-r--r--
delete_fields.cgi	629 B	-rwxr-xr-x
delete_grants.cgi	1.46 KB	-rwxr-xr-x
delete_groups.cgi	548 B	-rwxr-xr-x
delete_hosts.cgi	478 B	-rwxr-xr-x
delete_users.cgi	442 B	-rwxr-xr-x
down.cgi	602 B	-rwxr-xr-x
download.cgi	1.07 KB	-rwxr-xr-x
drop_dbase.cgi	1.15 KB	-rwxr-xr-x
drop_dbases.cgi	1.25 KB	-rwxr-xr-x
drop_table.cgi	1.1 KB	-rwxr-xr-x
drop_tables.cgi	1.72 KB	-rwxr-xr-x
edit_dbase.cgi	7.63 KB	-rwxr-xr-x
edit_field.cgi	2.28 KB	-rwxr-xr-x
edit_grant.cgi	2.69 KB	-rwxr-xr-x
edit_group.cgi	1.84 KB	-rwxr-xr-x
edit_host.cgi	4.01 KB	-rwxr-xr-x
edit_index.cgi	2 KB	-rwxr-xr-x
edit_manual.cgi	541 B	-rwxr-xr-x
edit_seq.cgi	2.1 KB	-rwxr-xr-x
edit_table.cgi	2.71 KB	-rwxr-xr-x
edit_user.cgi	2.58 KB	-rwxr-xr-x
edit_view.cgi	1.46 KB	-rwxr-xr-x
exec.cgi	1.51 KB	-rwxr-xr-x
exec_file.cgi	1.22 KB	-rwxr-xr-x
exec_form.cgi	3.15 KB	-rwxr-xr-x
import.cgi	2.4 KB	-rwxr-xr-x
index.cgi	9.62 KB	-rwxr-xr-x
install_check.pl	477 B	-rwxr-xr-x
list_grants.cgi	3.41 KB	-rwxr-xr-x
list_groups.cgi	1.36 KB	-rwxr-xr-x
list_hosts.cgi	2.47 KB	-rwxr-xr-x
list_users.cgi	1.96 KB	-rwxr-xr-x
log_parser.pl	2.41 KB	-rwxr-xr-x
login.cgi	829 B	-rwxr-xr-x
module.info	191 B	-rw-r--r--
module.info.ca	135 B	-rw-r--r--
module.info.ca.UTF-8	147 B	-rw-r--r--
module.info.de	131 B	-rw-r--r--
module.info.de.UTF-8	143 B	-rw-r--r--
module.info.es	45 B	-rw-r--r--
module.info.es.UTF-8	51 B	-rw-r--r--
module.info.fr	47 B	-rw-r--r--
module.info.fr.UTF-8	54 B	-rw-r--r--
module.info.hu	40 B	-rw-r--r--
module.info.hu.UTF-8	47 B	-rw-r--r--
module.info.ja_JP.UTF-8	57 B	-rw-r--r--
module.info.ja_JP.euc	46 B	-rw-r--r--
module.info.ko_KR.UTF-8	54 B	-rw-r--r--
module.info.ko_KR.euc	44 B	-rw-r--r--
module.info.ms_MY	150 B	-rw-r--r--
module.info.ms_MY.UTF-8	162 B	-rw-r--r--
module.info.nl	35 B	-rw-r--r--
module.info.nl.UTF-8	41 B	-rw-r--r--
module.info.no	34 B	-rw-r--r--
module.info.no.UTF-8	40 B	-rw-r--r--
module.info.pl	39 B	-rw-r--r--
module.info.pl.UTF-8	45 B	-rw-r--r--
module.info.ru.UTF-8	58 B	-rw-r--r--
module.info.ru_RU	40 B	-rw-r--r--
module.info.ru_RU.UTF-8	61 B	-rw-r--r--
module.info.ru_SU	40 B	-rw-r--r--
module.info.sv	33 B	-rw-r--r--
module.info.sv.UTF-8	39 B	-rw-r--r--
module.info.zh_CN	35 B	-rw-r--r--
module.info.zh_TW.Big5	39 B	-rw-r--r--
newdb.cgi	1.17 KB	-rwxr-xr-x
newdb_form.cgi	1.33 KB	-rwxr-xr-x
postgresql-lib.pl	33.72 KB	-rwxr-xr-x
restore.cgi	1.1 KB	-rwxr-xr-x
restore_form.cgi	1.42 KB	-rwxr-xr-x
save_field.cgi	1.05 KB	-rwxr-xr-x
save_grant.cgi	1.65 KB	-rwxr-xr-x
save_group.cgi	2.67 KB	-rwxr-xr-x
save_host.cgi	3.4 KB	-rwxr-xr-x
save_index.cgi	1.45 KB	-rwxr-xr-x
save_manual.cgi	330 B	-rwxr-xr-x
save_seq.cgi	2.57 KB	-rwxr-xr-x
save_sync.cgi	335 B	-rwxr-xr-x
save_user.cgi	1.59 KB	-rwxr-xr-x
save_view.cgi	1.37 KB	-rwxr-xr-x
search_form.cgi	1.38 KB	-rwxr-xr-x
setup.cgi	292 B	-rwxr-xr-x
start.cgi	284 B	-rwxr-xr-x
stop.cgi	278 B	-rwxr-xr-x
table_form.cgi	1.9 KB	-rwxr-xr-x
up.cgi	598 B	-rwxr-xr-x
useradmin_update.pl	2.1 KB	-rwxr-xr-x
view-lib.pl	3.56 KB	-rwxr-xr-x
view_table.cgi	14.58 KB	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl
# index.cgi
# Display all existing databases

require './postgresql-lib.pl';
&ReadParse();

# Check for PostgreSQL program
if (!-x $config{'psql'} || -d $config{'psql'}) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
		&help_search_link("postgresql", "man", "doc", "google"));
	print &text('index_esql', "<tt>$config{'psql'}</tt>",
		 "$gconfig{'webprefix'}/config.cgi?$module_name"),"\n";

&foreign_require("software", "software-lib.pl");
	$lnk = &software::missing_install_link(
			"postgresql", $text{'index_postgresql'},
			"../$module_name/", $text{'index_title'});
	print $lnk,"\n" if ($lnk);

&ui_print_footer("/", $text{'index'});
	exit;
	}

# Check for alternate config file, and use
if (!$hba_conf_file && -r $config{'alt_hba_conf'} && &is_postgresql_local()) {
	($hba_conf_file) = split(/\t+/, $config{'hba_conf'});
	my $hba_conf_dir = $hba_conf_file;
	$hba_conf_dir =~ s/\/([^\/]+)$//;
	if (!-d $hba_conf_dir) {
		&make_dir($hba_conf_dir, 0777);
		}
	&copy_source_dest($config{'alt_hba_conf'}, $hba_conf_file);
	}

# Check for the config file
if (!$hba_conf_file && &is_postgresql_local()) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
		&help_search_link("postgresql", "man", "doc", "google"));
	($hba_conf_file) = split(/\t+/, $config{'hba_conf'});
	if ($config{'setup_cmd'}) {
		# Offer to setup DB for first time
		print &text('index_setup', "<tt>$hba_conf_file</tt>",
				 "<tt>$config{'setup_cmd'}</tt>"),"\n";
		print "<form action=setup.cgi><center>\n";
		print "<input type=submit value='$text{'index_setupok'}'>\n";
		print "</center></form>\n";
		}
	else {
		# Config file wasn't found
		print &text('index_ehba', "<tt>$hba_conf_file</tt>",
		 "$gconfig{'webprefix'}/config.cgi?$module_name"),"\n";
		}
	&ui_print_footer("/", $text{'index'});
	exit;
	}

($r, $rout) = &is_postgresql_running();
if ($r == 0) {
	# Not running .. need to start it
	&main_header(1);
	print "$text{'index_notrun'} \n";

if (&is_postgresql_local()) {
		print &ui_hr();
		print &ui_buttons_start();
		if ($access{'stop'}) {
			# Show start button
			print &ui_buttons_row("start.cgi", $text{'index_start'},
			 		 $text{'index_startmsg2'});
			}
		if ($access{'users'}) {
			print &ui_buttons_row("list_hosts.cgi",
					 $text{'host_title'},
					 &text('index_hostdesc'));
			}
		print &ui_buttons_end();
		}
	}
elsif ($r == -1 && $access{'user'} && 0) {
	# Running, but the user's password is wrong
	&main_header(1);
	print "",&text('index_nouser', "<tt>$access{'user'}</tt>"),
	 "\n";
	print &text('index_emsg', "<tt>$rout</tt>"),"\n";
	}
elsif ($r == -1) {
	# Running, but webmin doesn't know the login/password
	&main_header(1);
	print "$text{'index_nopass'} \n";

print &ui_form_start("login.cgi", "post");
	print &ui_table_start($text{'index_ltitle'}, undef, 2);

print &ui_table_row($text{'index_login'},
		&ui_textbox("login", $access{'user'} || $config{'login'}, 40));

print &ui_table_row(" ",
		&ui_checkbox("sameunix", 1, $text{'index_sameunix'},
			     $config{'sameunix'}));

print &ui_table_row($text{'index_pass'},
		&ui_password("pass", undef, 40));

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

print &text('index_emsg', "<tt>$rout</tt>"),"\n";

# Button to edit user permissions
	if ($access{'users'}) {
		print &ui_form_start("list_hosts.cgi");
		print &ui_form_end([ [ undef, $text{'index_edithosts'} ] ]);
		}
	}
elsif ($r == -2) {
	# Looks like a shared library problem
	&main_header(1);
	print &text('index_elibrary', "<tt>$config{'psql'}</tt>",
		 "$gconfig{'webprefix'}/config.cgi?$module_name"),"\n";
	print &text('index_ldpath', "<tt>$ENV{$gconfig{'ld_env'}}</tt>",
		 "<tt>$config{'psql'}</tt>")," \n";
	print "<pre>",&html_escape($out),"</pre>\n";
	print &text('index_emsg', "<tt>$rout</tt>"),"\n";
	}
else {
	# Running .. check version
	$postgresql_version = &get_postgresql_version();
	if (!$postgresql_version) {
		&main_header(1);
	 print &text('index_superuser',"$gconfig{'webprefix'}/config.cgi?$module_name"),"\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	if ($postgresql_version < 6.5) {
		&main_header(1);
		print &text('index_eversion', $postgresql_version, 6.5),
		 "\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}

# Check if we can re-direct to a single DB's page
	@alldbs = &list_databases();
	@titles = grep { &can_edit_db($_) } @alldbs;
	$can_all = (@alldbs == @titles);
	if (@titles == 1 && $access{'dbs'} ne '*' && !$access{'users'} &&
	    !$access{'create'} && !$access{'stop'}) {
		# Only one DB, so go direct to it!
		&redirect("edit_dbase.cgi?db=$titles[0]");
		exit;
		}

&main_header();
	print &ui_subheading($text{'index_dbs'}) if ($access{'users'});
	if ($in{'search'}) {
		# Limit to those matching search
		@titles = grep { /\Q$in{'search'}\E/i } @titles;
		print "<table width=100%><tr>\n";
		print "<td> ",&text('index_showing',
		 "<tt>".&html_escape($in{'search'})."</tt>"),"</td>\n";
		print "<td align=right><a href='index.cgi'>",
			"$text{'view_searchreset'}</a></td>\n";
		print "</tr></table>\n";
		}
	elsif ($in{'show'}) {
		# Limit to specific databases
		%show = map { $_, 1 } split(/\0/, $in{'show'});
		@titles = grep { $show{$_} } @titles;
		}

# List the databases
	@icons = map { "images/db.gif" } @titles;
	@links = map { "edit_dbase.cgi?db=$_" } @titles;
	$can_create = $access{'create'} == 1 ||
		 $access{'create'} == 2 && @titles < $access{'max'};

@rowlinks = ( );
	push(@rowlinks, "<a href=newdb_form.cgi>$text{'index_add'}</a>")
		if ($can_create);
	if (!@icons) {
 if ($in{'search'}) {
 print "$text{'index_nodbs3'} \n";
 }
		else {
			print "$text{'index_nodbs'} \n";
			}
		}
	elsif (@icons > $max_dbs && !$in{'search'}) {
		# Too many databases to show .. display search and jump forms
		print &ui_form_start("index.cgi");
		print $text{'index_toomany'},"\n";
		print &ui_textbox("search", undef, 20),"\n";
		print &ui_submit($text{'index_search'})," \n";
		print &ui_form_end();

print &ui_form_start("edit_dbase.cgi");
		print $text{'index_jump'},"\n";
		print &ui_select("db", undef, [ map { [ $_ ] } @titles ],
				 1, 0, 0, 0, "onChange='form.submit()'"),"\n";
		print &ui_submit($text{'index_jumpok'})," \n";
		print &ui_form_end();
		@icons = ( );
		}
	else {
		# Show databases as table
		if ($access{'delete'}) {
			print &ui_form_start("drop_dbases.cgi");
			unshift(@rowlinks, &select_all_link("d", 0),
					 &select_invert_link("d", 0) );
			}
		print &ui_links_row(\@rowlinks);
		@checks = @titles;
		if ($config{'style'} == 1) {
			# Show as DB names and table counts
			@tables = map { if (&accepting_connections($_)) {
						my @t = &list_tables($_);
						scalar(@t);
						}
					else {
						"-";
						}
					} @titles;
			@titles = map { &html_escape($_) } @titles;
			&split_table([ "", $text{'index_db'},
				 $text{'index_tables'} ],
				 \@checks, \@links, \@titles, \@tables)
				if (@titles);
			}
		elsif ($config{'style'} == 2) {
 # Show just DB names
 @grid = ( );
 for(my $i=0; $i<@links; $i++) {
 push(@grid, &ui_checkbox("d", $titles[$i]).
 " <a href='$links[$i]'>".
 &html_escape($titles[$i])."</a>");
 }
 print &ui_grid_table(\@grid, 4, 100, undef, undef, "");
			}
		else {
			# Show databases as icons
			@checks = map { &ui_checkbox("d", $_) } @checks;
			@titles = map { &html_escape($_) } @titles;
			&icons_table(\@links, \@titles, \@icons, 5,
				 undef, undef, undef, \@checks);
			}
		}
	print &ui_links_row(\@rowlinks);
	if (@icons && $access{'delete'}) {
		print &ui_form_end([ [ "delete", $text{'index_drops'} ] ]);
		}

if ($access{'users'}) {
		print &ui_hr();
		print &ui_subheading($text{'index_users'});
		@links = ( 'list_users.cgi', 'list_groups.cgi',
			   'list_hosts.cgi', 'list_grants.cgi' );
		@titles = ( $text{'user_title'}, $text{'group_title'},
			    $text{'host_title'}, $text{'grant_title'} );
		@images = ( 'images/users.gif', 'images/groups.gif',
			    'images/hosts.gif', 'images/grants.gif' );
		&icons_table(\@links, \@titles, \@images);
		}
	}

print &ui_hr();
print &ui_buttons_start();

# Show stop server button
if ($access{'stop'} && &is_postgresql_local() && $r != 0) {
	print &ui_buttons_row("stop.cgi", $text{'index_stop'},
			      $text{'index_stopmsg'});
	}

if ($r > 0) {
	# Show backup all button
	if ($can_all && $access{'backup'}) {
		print &ui_buttons_row("backup_form.cgi", $text{'index_backup'},
				      $text{'index_backupmsg'},
				      &ui_hidden("all", 1));
		}
	}

print &ui_buttons_end();

# Check if the optional perl modules are installed
if (&foreign_available("cpan")) {
	eval "use DBI";
	push(@needs, "DBI") if ($@);
	$nodbi++ if ($@);
	eval "use DBD::Pg";
	push(@needs, "DBD::Pg") if ($@);
	if (@needs) {
		$needs = &urlize(join(" ", @needs));
		print "<center>",&text(@needs == 2 ? 'index_nomods' : 'index_nomod', @needs,
			"/cpan/download.cgi?source=3&cpan=$needs&mode=2&return=/$module_name/&returndesc=".&urlize($text{'index_return'})),
			"</center>\n";
		}
	}

&ui_print_footer("/", "index");

sub main_header
{
local ($noschemas) = @_;
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
	&help_search_link("postgresql", "man", "doc", "google"),
	undef, undef, $postgresql_version ?
	   &text('index_version', $postgresql_version).
	   ($noschemas ? "" :
	    &supports_schemas($config{'basedb'}) ? " $text{'index_sch'}" : "") :
	   undef);
}

${this.title}

Code Editor : index.cgi