Handle hostnames with upper-case letters
[webmin.git] / lpadmin / stop.cgi
1 #!/usr/local/bin/perl
2 # stop.cgi
3 # Stop the print scheduler
4
5 require './lpadmin-lib.pl';
6 &ReadParse();
7 $access{'stop'} == 1 || &error($text{'stop_ecannot'});
8 &error_setup($text{'stop_err'});
9 if ($config{'stop_cmd'}) {
10         $out = &backquote_logged("($config{'stop_cmd'}) 2>&1");
11         &error($out) if ($?);
12         }
13 else {
14         &stop_sched(&sched_running());
15         }
16 &webmin_log("stop");
17 &redirect("");
18