pap/mgetty_apply.cgi

   1 #!/usr/local/bin/perl
   2 # mgetty_apply.cgi
   3 # Apply the current init config
   4
   5 require './pap-lib.pl';
   6 $access{'mgetty'} || &error($text{'mgetty_ecannot'});
   7 &error_setup($text{'mgetty_applyerr'});
   8 $err = &apply_mgetty();
   9 &error($err) if ($err);
  10 &webmin_log("mgetty_apply");
  11 &redirect("list_mgetty.cgi");
  12