postgresql/save_view.cgi

   1 #!/usr/local/bin/perl
   2 # Create, re-create or delete a view
   3
   4 require './postgresql-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'view_err'});
   7 &can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
   8 $access{'edonly'} && &error($text{'dbase_ecannot'});
   9 $access{'views'} || &error($text{'view_ecannot'});
  10
  11 if ($in{'delete'}) {
  12         # Just drop the view
  13         $sql = "drop view ".&quote_table($in{'old'});
  14         &execute_sql_logged($in{'db'}, $sql);
  15         &webmin_log("delete", "view", $in{'old'}, \%in);
  16         }
  17 else {
  18         # Validate inputs
  19         $in{'name'} =~ /^\S+$/ || &error($text{'view_ename'});
  20         if (!$in{'old'} || $in{'old'} ne $in{'name'}) {
  21                 @views = &list_views($in{'db'});
  22                 &indexof($in{'name'}, @views) >= 0 &&
  23                         &error($text{'view_eclash'});
  24                 }
  25         $in{'query'} =~ /\S/ || &error($text{'view_equery'});
  26         $in{'query'} =~ s/\r|\n/ /g;
  27         if ($in{'cols_set'}) {
  28                 $cols = join(",", split(/\s+/, $in{'cols'}));
  29                 $cols || &error($text{'view_ecols'});
  30                 }
  31
  32         # Do it
  33         if ($in{'old'}) {
  34                 # Remove the old one first
  35                 $sql = "drop view ".&quote_table($in{'old'});
  36                 &execute_sql_logged($in{'db'}, $sql);
  37                 }
  38         $sql = "create view ".&quote_table($in{'name'}).
  39                ($cols ? " (".$cols.")" : "")." as ".$in{'query'};
  40         &execute_sql_logged($in{'db'}, $sql);
  41
  42         if ($in{'old'}) {
  43                 &webmin_log("modify", "view", $in{'old'}, \%in);
  44                 }
  45         else {
  46                 &webmin_log("create", "view", $in{'name'}, \%in);
  47                 }
  48         }
  49 &redirect("edit_dbase.cgi?db=$in{'db'}");
  50