postgresql/save_index.cgi

   1 #!/usr/local/bin/perl
   2 # Create, re-create or delete an index
   3
   4 require './postgresql-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'index_err'});
   7 &can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
   8 $access{'edonly'} && &error($text{'dbase_ecannot'});
   9 $access{'indexes'} || &error($text{'index_ecannot'});
  10
  11 if ($in{'delete'}) {
  12         # Just drop the index
  13         $sql = "drop index ".&quote_table($in{'old'});
  14         &execute_sql_logged($in{'db'}, $sql);
  15         &webmin_log("delete", "index", $in{'old'}, \%in);
  16         }
  17 else {
  18         # Validate inputs
  19         $in{'name'} =~ /^\S+$/ || &error($text{'index_ename'});
  20         if (!$in{'old'} || $in{'old'} ne $in{'name'}) {
  21                 @indexes = &list_indexes($in{'db'});
  22                 &indexof($in{'name'}, @indexes) >= 0 &&
  23                         &error($text{'index_eclash'});
  24                 }
  25         @cols = split(/\0/, $in{'cols'});
  26         @cols || &error($text{'index_ecols'});
  27         if ($in{'type'} eq 'unique' && $in{'using'} ne 'btree') {
  28                 &error($text{'index_ehash'});
  29                 }
  30
  31         # Do it
  32         if ($in{'old'}) {
  33                 # Remove the old one first
  34                 $sql = "drop index ".&quote_table($in{'old'});
  35                 &execute_sql_logged($in{'db'}, $sql);
  36                 }
  37         $sql = "create $in{'type'} index ".&quotestr($in{'name'})." on ".
  38                &quote_table($in{'table'})." using ".&quotestr($in{'using'}).
  39                " (".join(", ", map { &quotestr($_) } @cols).")";
  40         &execute_sql_logged($in{'db'}, $sql);
  41
  42         if ($in{'old'}) {
  43                 &webmin_log("modify", "index", $in{'old'}, \%in);
  44                 }
  45         else {
  46                 &webmin_log("create", "index", $in{'name'}, \%in);
  47                 }
  48         }
  49 &redirect("edit_dbase.cgi?db=$in{'db'}");
  50