lpadmin/cancel_all.cgi

   1 #!/usr/local/bin/perl
   2 # Cancel some jobs on the selected printer
   3
   4 require './lpadmin-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'cancel_err'});
   7 %d = map { $_, 1 } split(/\0/, $in{'d'});
   8
   9 @jobs = &get_jobs($in{'name'});
  10 foreach $j (@jobs) {
  11         next if (!$d{$j->{'id'}});
  12         ($ju = $j->{'user'}) =~ s/\!.*$//;
  13         &can_edit_jobs($in{'name'}, $ju) || &error($text{'cancel_ecannot'});
  14         &cancel_job($in{'name'}, $j->{'id'});
  15         }
  16 &webmin_log("cancelsel", undef, $in{'name'},
  17             { 'd' => scalar(keys %d) } );
  18 &redirect("list_jobs.cgi?name=$in{'name'}");
  19