spam/deleteall_awl.cgi

   1 #!/usr/local/bin/perl
   2 # Delete all auto-whitelist entries for all users
   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 &ReadParse();
  10
  11 &ui_print_unbuffered_header(undef, $text{'dawl_title'}, "");
  12
  13 # Do all users
  14 print $text{'dawl_doing'},"<br>\n";
  15 $count = $ucount = 0;
  16 setpwent();
  17 while($u = getpwent()) {
  18         push(@users, $u);
  19         }
  20 endpwent();
  21 foreach $u (@users) {
  22         next if (!&can_edit_awl($u));
  23         print "doing $u<br>\n";
  24         &open_auto_whitelist_dbm($u) || next;
  25         foreach $k (keys %awl) {
  26                 delete($awl{$k});
  27                 $count++;
  28                 }
  29         &close_auto_whitelist_dbm();
  30         $ucount++;
  31         }
  32 endpwent();
  33 print &text('dawl_done', $ucount, $count),"<p>\n";
  34
  35 &ui_print_footer($redirect_url, $text{'index_return'});
  36