postgresql/drop_table.cgi

   1 #!/usr/local/bin/perl
   2 # drop_table.cgi
   3 # Delete an existing table
   4
   5 require './postgresql-lib.pl';
   6 &ReadParse();
   7 &can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
   8 $qt = &quote_table($in{'table'});
   9 if ($in{'confirm'}) {
  10         # Drop the table
  11         &error_setup($text{'tdrop_err'});
  12         &execute_sql_logged($in{'db'}, "drop table $qt");
  13         &webmin_log("delete", "table", $in{'table'}, \%in);
  14         &redirect("edit_dbase.cgi?db=$in{'db'}");
  15         }
  16 else {
  17         # Ask the user if he is sure..
  18         &ui_print_header(undef, $text{'tdrop_title'}, "");
  19         @tables = &list_tables($in{'db'});
  20         $d = &execute_sql_safe($in{'db'}, "select count(*) from $qt");
  21         $rows = $d->{'data'}->[0]->[0];
  22
  23         print "<center><b>", &text('tdrop_rusure', "<tt>$in{'table'}</tt>",
  24                                    "<tt>$in{'db'}</tt>", $rows),"</b><p>\n";
  25         print "<form action=drop_table.cgi>\n";
  26         print "<input type=hidden name=db value='$in{'db'}'>\n";
  27         print "<input type=hidden name=table value='$in{'table'}'>\n";
  28         print "<input type=submit name=confirm value='$text{'tdrop_ok'}'>\n";
  29         print "</form></center>\n";
  30         &ui_print_footer("edit_table.cgi?db=$in{'db'}&table=$in{'table'}",
  31                 $text{'table_return'});
  32         }
  33