mailcap/delete.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple mailcap entries
   3
   4 require './mailcap-lib.pl';
   5 &ReadParse();
   6 $mode = $in{'delete'} ? 'delete' :
   7         $in{'disable'} ? 'disable' : 'enable';
   8 &error_setup($text{$mode.'_err'});
   9 @d = split(/\0/, $in{'d'});
  10 @d || &error($text{'delete_enone'});
  11 @mailcap = &list_mailcap();
  12
  13 # Do the delete
  14 &lock_file($mailcap_file);
  15 foreach $d (@d) {
  16         ($mailcap) = grep { $_->{'index'} == $d } @mailcap;
  17         $mailcap || &error($text{'edit_egone'});
  18         if ($mode eq 'delete') {
  19                 &delete_mailcap($mailcap);
  20                 }
  21         elsif ($mode eq 'disable' && $mailcap->{'enabled'} == 1) {
  22                 $mailcap->{'enabled'} = 0;
  23                 &modify_mailcap($mailcap);
  24                 }
  25         elsif ($mode eq 'enable' && $mailcap->{'enabled'} == 0) {
  26                 #($clash) = grep { $_->{'type'} eq $mailcap->{'type'} &&
  27                 #                 $_->{'enabled'} == 1 } @mailcap;
  28                 #$clash && &error(&text('enable_eclash', $type));
  29                 $mailcap->{'enabled'} = 1;
  30                 &modify_mailcap($mailcap);
  31                 }
  32         }
  33 &unlock_file($mailcap_file);
  34 &webmin_log($mode, "mailcaps", scalar(@d));
  35
  36 &redirect("");
  37