procmail/save_env.cgi

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