postgresql/delete_fields.cgi

   1 #!/usr/local/bin/perl
   2 # Drop several fields from a table
   3
   4 require './postgresql-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'fdrop_err'});
   7 &can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
   8
   9 # Validate inputs
  10 @d = split(/\0/, $in{'d'});
  11 @d || &error($text{'fdrop_enone'});
  12 @desc = &table_structure($in{'db'}, $in{'table'});
  13 @d < @desc || &error($text{'fdrop_eall'});
  14
  15 # Do the deed
  16 foreach $d (@d) {
  17         &execute_sql_logged($in{'db'},
  18             "alter table ".&quote_table($in{'table'})." drop column \"$d\"");
  19         }
  20 &webmin_log("delete", "fields", scalar(@d), \%in);
  21 &redirect("edit_table.cgi?db=$in{'db'}&table=".&urlize($in{'table'}));
  22