Server IP : 195.201.23.43 / Your IP : 3.22.208.99 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/usermin/postgresql/ |
Upload File : |
#!/usr/bin/perl # index.cgi # Display all existing databases require './postgresql-lib.pl'; # Check for PostgreSQL program if (!-x $config{'psql'}) { &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1); print &text('index_esql', "<tt>$config{'psql'}</tt>"),"<p>\n"; &ui_print_footer("/", $text{'index'}); exit; } $r = &is_postgresql_running(); if ($r == 0) { # Not running .. need to start it &main_header(); print "<p> <b>$text{'index_notrun'}</b> <p>\n"; } elsif ($r == -1) { # Running, but user hasn't logged in yet &main_header(); print "<center><p> <b>$text{'index_nopass'}</b> <p>\n"; print "<form action=login.cgi method=post>\n"; print "<table border>\n"; print "<tr $tb> <td><b>$text{'index_ltitle'}</b></td> </tr>\n"; print "<tr $cb> <td><table cellpadding=2>\n"; print "<tr> <td><b>$text{'index_login'}</b></td>\n"; printf "<td><input name=login size=20 value='%s'></td> </tr>\n", $userconfig{'login'}; print "<tr> <td><b>$text{'index_pass'}</b></td>\n"; print "<td><input name=pass size=20 type=password></td> </tr>\n"; print "</table></td></tr></table>\n"; print "<input type=submit value='$text{'save'}'>\n"; print "<input type=reset value='$text{'index_clear'}'>\n"; print "</center></form>\n"; } elsif ($r == -2) { # Looks like a shared library problem &main_header(); print &text('index_elibrary', "<tt>$config{'psql'}</tt>"),"<p>\n"; print "<p>",&text('index_ldpath', "<tt>$ENV{$gconfig{'ld_env'}}</tt>", "<tt>$config{'psql'}</tt>"),"<br>\n"; print "<pre>$out</pre>\n"; &ui_print_footer("/", $text{'index'}); exit; } else { # Check if we can re-direct to a single DB's page @titles = grep { &can_edit_db($_) } &list_databases(); if (@titles == 1) { # Only one DB, so go direct to it! &redirect("edit_dbase.cgi?db=$titles[0]"); exit; } # Running .. check version $postgresql_version = &get_postgresql_version(); &main_header(); if (!$postgresql_version) { print &text('index_superuser'),"<p>\n"; &ui_print_footer("/", $text{'index'}); exit; } if ($postgresql_version < 6.5) { print &text('index_eversion', $postgresql_version, 6.5), "<p>\n"; &ui_print_footer("/", $text{'index'}); exit; } # List the databases print &ui_subheading($text{'index_dbs'}); @icons = map { "images/db.gif" } @titles; @links = map { "edit_dbase.cgi?db=$_" } @titles; if (!@titles) { print "<b>$text{'index_nodbs'}</b> <p>\n"; } elsif ($displayconfig{'style'}) { @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'} ], undef, \@links, \@titles, \@tables) if (@titles); } else { @titles = map { &html_escape($_) } @titles; &icons_table(\@links, \@titles, \@icons); } } &ui_print_footer("/", "index"); sub main_header { &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0, undef, undef, undef, $postgresql_version ? &text('index_version', $postgresql_version) : undef); }Private