lpadmin/delete_printer.cgi

   1 #!/usr/local/bin/perl
   2 # delete_printer.cgi
   3 # Delete an existing printer
   4
   5 require './lpadmin-lib.pl';
   6 &ReadParse();
   7 $access{'delete'} && &can_edit_printer($in{'name'}) ||
   8         &error($text{'save_eedit'});
   9 $prn = &get_printer($in{'name'});
  10 $info = &log_info($prn);
  11 &delete_printer_and_driver($prn);
  12 &system_logged("$config{'apply_cmd'} >/dev/null 2>&1 </dev/null")
  13         if ($config{'apply_cmd'});
  14 &delete_from_acls($in{'name'});
  15 &webmin_log("delete", "printer", $prn->{'name'}, $info);
  16
  17 # delete from cluster
  18 @slaveerrs = &delete_on_cluster($prn);
  19 if (@slaveerrs) {
  20         &error(&text('save_errdelslave',
  21              "<p>".join("<br>", map { "$_->[0]->{'host'} : $_->[1]" }
  22                                     @slaveerrs)));
  23         }
  24
  25 &redirect("");
  26