sentry/start_portsentry.cgi

   1 #!/usr/local/bin/perl
   2 # start_portsentry.cgi
   3 # Start the portsentry daemon
   4
   5 require './sentry-lib.pl';
   6 &error_setup($text{'portsentry_starterr'});
   7
   8 $cmd = &portsentry_start_cmd();
   9 $out = &backquote_logged("$cmd 2>&1 </dev/null");
  10 &error("<tt>$out</tt>") if ($out =~ /failed|error/i);
  11 &webmin_log("start", "portsentry");
  12
  13 &redirect("edit_portsentry.cgi");
  14