PAL.C.T MINI SHELL
#!/usr/bin/perl
# drop_table.cgi
# Delete an existing table
require './mysql-lib.pl';
&ReadParse();
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
$access{'edonly'} && &error($text{'dbase_ecannot'});
if ($in{'confirm'}) {
# Drop the table
&error_setup($text{'tdrop_err'});
&execute_sql_logged($in{'db'}, "drop table "."estr($in{'table'}));
&webmin_log("delete", "table", $in{'table'}, \%in);
&redirect("edit_dbase.cgi?db=$in{'db'}");
}
else {
# Ask the user if he is sure..
&ui_print_header(undef, $text{'tdrop_title'}, "");
@tables = &list_tables($in{'db'});
$d = &execute_sql($in{'db'},
"select count(*) from "."estr($in{'table'}));
$rows = $d->{'data'}->[0]->[0];
print "<center><b>",&text('tdrop_rusure', "<tt>$in{'table'}</tt>",
"<tt>$in{'db'}</tt>", $rows),"</b><p>\n";
print "<form action=drop_table.cgi>\n";
print "<input type=hidden name=db value='$in{'db'}'>\n";
print "<input type=hidden name=table value='$in{'table'}'>\n";
print "<input type=submit name=confirm value='$text{'tdrop_ok'}'>\n";
print "</form></center>\n";
&ui_print_footer("edit_table.cgi?db=$in{'db'}&table=$in{'table'}",
$text{'table_return'},
"edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'},
&get_databases_return_link($in{'db'}), $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`