JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr#!/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 "
",&text('tdrop_rusure', "$in{'table'}", "$in{'db'}", $rows),"

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "
\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'}); }