PAL.C.T MINI SHELL
#!/usr/bin/perl
# drop_dbase.cgi
# Drop an existing database
require './postgresql-lib.pl';
&ReadParse();
&error_setup($text{'ddrop_err'});
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
if ($in{'confirm'}) {
# Drop the database
&execute_sql_logged($config{'basedb'},
"drop database "."e_table($in{'db'}));
&delete_database_backup_job($in{'db'});
&webmin_log("delete", "db", $in{'db'});
&redirect("");
}
else {
# Ask the user if he is sure..
&ui_print_header(undef, $text{'ddrop_title'}, "");
@tables = &list_tables($in{'db'});
$rows = 0;
foreach $t (@tables) {
$d = &execute_sql($in{'db'},
"select count(*) from "."e_table($t));
$rows += $d->{'data'}->[0]->[0];
}
print "<center><b>",&text('ddrop_rusure', "<tt>$in{'db'}</tt>",
scalar(@tables), $rows),"\n";
print $text{'ddrop_mysql'},"\n" if ($in{'db'} eq $config{'basedb'});
print "</b><p>\n";
print "<form action=drop_dbase.cgi>\n";
print "<input type=hidden name=db value='$in{'db'}'>\n";
print "<input type=submit name=confirm value='$text{'ddrop_ok'}'>\n";
print "</form></center>\n";
&ui_print_footer("edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'},
"", $text{'index_return'});
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`