PAL.C.T MINI SHELL
#!/usr/bin/perl
# delboot.pl
# Called by uninstall.sh to stop webmin being started at boot time
$no_acl_check++;
require './init-lib.pl';
$product = $config{'atboot_product'} || "webmin";
$ucproduct = ucfirst($product);
if ($init_mode eq "local") {
# Remove from /etc/webmin/start from boot time rc script
open(LOCAL, "<".$config{'local_script'});
@local = <LOCAL>;
close(LOCAL);
$start = "$config_directory/start";
&open_tempfile(LOCAL, ">$config{'local_script'}");
&print_tempfile(LOCAL, grep { !/^$start/ } @local);
&close_tempfile(LOCAL);
print "Deleted from bootup script $config{'local_script'}\n";
}
else {
# Use generic delete function
&delete_at_boot($product);
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`