init/delete-boot.pl

   1 #!/usr/local/bin/perl
   2 # Disable some boot-time action
   3
   4 package server_manager;
   5 $main::no_acl_check++;
   6 $ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
   7 $ENV{'WEBMIN_VAR'} ||= "/var/webmin";
   8 if ($0 =~ /^(.*\/)[^\/]+$/) {
   9         chdir($1);
  10         }
  11 chop($pwd = `pwd`);
  12 $0 = "$pwd/delete-boot.pl";
  13 require './init-lib.pl';
  14 $< == 0 || die "$0 must be run as root";
  15
  16 @ARGV == 1 ||
  17         die "usage: delete-boot.pl <name>";
  18
  19 &disable_at_boot(@ARGV);