procmail/save_inc.cgi

   1 #!/usr/local/bin/perl
   2 # save_inc.cgi
   3 # Create, update or delete an include file
   4
   5 require './procmail-lib.pl';
   6 &ReadParse();
   7 &lock_file($procmailrc);
   8 @conf = &get_procmailrc();
   9 $inc = $conf[$in{'idx'}] if (!$in{'new'});
  10
  11 if ($in{'delete'}) {
  12         # Just delete the variable
  13         &delete_recipe($inc);
  14         }
  15 else {
  16         # Validate inputs
  17         &error_setup($text{'env_err'});
  18         $in{'inc'} =~ /\S/ || &error($text{'inc_einc'});
  19         $inc->{'include'} = $in{'inc'};
  20
  21         # Save the receipe
  22         if ($in{'new'}) {
  23                 &create_recipe($inc);
  24                 }
  25         else {
  26                 &modify_recipe($inc);
  27                 }
  28         }
  29 &unlock_file($procmailrc);
  30 &webmin_log($in{'delete'} ? "delete" : $in{'new'} ? "create" : "modify",
  31             "inc", undef, $inc);
  32 &redirect("");
  33