pap/delete_secrets.cgi

   1 #!/usr/local/bin/perl
   2 # Delete several secrets
   3
   4 require './pap-lib.pl';
   5 &error_setup($text{'delete_err'});
   6 $access{'secrets'} || &error($text{'secrets_ecannot'});
   7 &ReadParse();
   8 @d = split(/\0/, $in{'d'});
   9 @d || &error($text{'delete_enone'});
  10
  11 # Do the deletion
  12 &lock_file($config{'pap_file'});
  13 @seclist = &list_secrets();
  14 foreach my $d (sort { $b <=> $a } @d) {
  15         $sec = $seclist[$d];
  16         &delete_secret($sec);
  17         }
  18 &unlock_file($config{'pap_file'});
  19 &webmin_log("deletes", undef, scalar(@d));
  20 &redirect("list_secrets.cgi");
  21
  22
  23