mysql/save_view.cgi

   1 #!/usr/local/bin/perl
   2 # Create, modify or delete a view
   3
   4 require './mysql-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 ".&quotestr($in{'old'});
  14         &execute_sql_logged($in{'db'}, $sql);
  15         &webmin_log("delete", "view", $in{'old'}, \%in);
  16         }
  17 else {
  18         # Validate inputs
  19         if (!$in{'old'}) {
  20                 $in{'name'} =~ /^\S+$/ || &error($text{'view_ename'});
  21                 @views = &list_views($in{'db'});
  22                 &indexof($in{'name'}, @views) >= 0 &&
  23                         &error($text{'view_eclash'});
  24                 @tables = &list_tables($in{'db'});
  25                 &indexof($in{'name'}, @tables) >= 0 &&
  26                         &error($text{'view_eclash2'});
  27                 }
  28         $in{'query'} =~ /\S/ || &error($text{'view_equery'});
  29         $in{'query'} =~ s/\r|\n/ /g;
  30         $in{'definer_def'} || $in{'definer'} =~ /\S/ ||
  31                 &error($text{'view_edefiner'});
  32
  33         if ($in{'old'}) {
  34                 # Alter the existing view
  35                 $sql = "alter ".
  36                        "algorithm = $in{'algorithm'} ".
  37                        "definer = $in{'definer'} ".
  38                        "sql security $in{'security'} ".
  39                        "view ".&quotestr($in{'old'})." ".
  40                        "as $in{'query'} ".
  41                        ($in{'check'} ? "with $in{'check'} check option" : "");
  42                 }
  43         else {
  44                 # Create a new view
  45                 $sql = "create ".
  46                        "algorithm = $in{'algorithm'} ".
  47                        ($in{'definer_def'} ? "" : "definer = $in{'definer'} ").
  48                        ($in{'security'} ? "sql security $in{'security'} " : "").
  49                        "view ".&quotestr($in{'name'})." ".
  50                        "as $in{'query'} ".
  51                        ($in{'check'} ? "with $in{'check'} check option" : "");
  52                 }
  53         &execute_sql_logged($in{'db'}, $sql);
  54
  55         if ($in{'old'}) {
  56                 &webmin_log("modify", "view", $in{'old'}, \%in);
  57                 }
  58         else {
  59                 &webmin_log("create", "view", $in{'name'}, \%in);
  60                 }
  61         }
  62 &redirect("edit_dbase.cgi?db=$in{'db'}");
  63