spam/deleteone_awl.cgi

   1 #!/usr/local/bin/perl
   2 # Delete all auto-whitelist entries
   3
   4 require './spam-lib.pl';
   5 &error_setup($text{'dawl_err'});
   6 &ReadParse();
   7 &set_config_file_in(\%in);
   8 &can_use_check("awl");
   9 &can_edit_awl($in{'user'}) || &error($text{'dawl_ecannot'});
  10
  11 # Delete them
  12 &open_auto_whitelist_dbm($in{'user'}) || &error($text{'dawl_eopen'});
  13 foreach $k (keys %awl) {
  14         delete($awl{$k});
  15         }
  16 &close_auto_whitelist_dbm();
  17 &redirect("edit_awl.cgi?search=".&urlize($in{'search'}).
  18           "&user=".&urlize($in{'user'}).
  19           "&file=".&urlize($in{'file'}).
  20           "&title=".&urlize($in{'title'}));
  21