FM / sbin

/usr/sbin

Name	Size	Mode	Actions
aa-remove-unknown	3068	0755	edit dl rm
aa-status	8839	0755	edit dl rm
aa-teardown	139	0755	edit dl rm
accessdb	14728	0755	edit dl rm
add-shell	860	0755	edit dl rm
addgnupghome	3075	0755	edit dl rm
addgroup	37785	0755	edit dl rm
adduser	37785	0755	edit dl rm
agetty	69000	0755	edit dl rm
apparmor_parser	1526368	0755	edit dl rm
apparmor_status	8839	0755	edit dl rm
applygnupgdefaults	2217	0755	edit dl rm
arpd	80144	0755	edit dl rm
arptables	220488	0755	edit dl rm
arptables-nft	220488	0755	edit dl rm
arptables-nft-restore	220488	0755	edit dl rm
arptables-nft-save	220488	0755	edit dl rm
arptables-restore	220488	0755	edit dl rm
arptables-save	220488	0755	edit dl rm
atd	30728	0755	edit dl rm
badblocks	35144	0755	edit dl rm
bcache-super-show	14488	0755	edit dl rm
biosdecode	27856	0755	edit dl rm
blkdeactivate	14837	0755	edit dl rm
blkdiscard	35048	0755	edit dl rm
blkid	121096	0755	edit dl rm
blkzone	71912	0755	edit dl rm
blockdev	67816	0755	edit dl rm
bridge	104760	0755	edit dl rm
cache_check	1352288	0755	edit dl rm
cache_dump	1352288	0755	edit dl rm
cache_metadata_size	1352288	0755	edit dl rm
cache_repair	1352288	0755	edit dl rm
cache_restore	1352288	0755	edit dl rm
cache_writeback	1352288	0755	edit dl rm
capsh	31032	0755	edit dl rm
cfdisk	105048	0755	edit dl rm
cgdisk	211432	0755	edit dl rm
chcpu	47336	0755	edit dl rm
chgpasswd	67792	0755	edit dl rm
chmem	63720	0755	edit dl rm
chpasswd	59600	0755	edit dl rm
chroot	43352	0755	edit dl rm
cpgr	61784	0755	edit dl rm
cppw	61784	0755	edit dl rm
cron	55944	0755	edit dl rm
cryptdisks_start	1544	0755	edit dl rm
cryptdisks_stop	844	0755	edit dl rm
cryptsetup	138792	0755	edit dl rm
cryptsetup-reencrypt	107848	0755	edit dl rm
ctrlaltdel	39144	0755	edit dl rm
debugfs	231224	0755	edit dl rm
delgroup	16495	0755	edit dl rm
deluser	16495	0755	edit dl rm
depmod	174424	0755	edit dl rm
devlink	154080	0755	edit dl rm
dhclient	521200	0755	edit dl rm
dhclient-script	16304	0755	edit dl rm
dmeventd	51440	0755	edit dl rm
dmidecode	121856	0755	edit dl rm
dmsetup	175128	0755	edit dl rm
dmstats	175128	0755	edit dl rm
dosfsck	59472	0755	edit dl rm
dosfslabel	55376	0755	edit dl rm
dpkg-preconfigure	3663	0755	edit dl rm
dpkg-reconfigure	4448	0755	edit dl rm
dumpe2fs	31112	0755	edit dl rm
e2freefrag	18816	0755	edit dl rm
e2fsck	335064	0755	edit dl rm
e2image	43400	0755	edit dl rm
e2label	109112	0755	edit dl rm
e2mmpstatus	31112	0755	edit dl rm
e2scrub	7296	0755	edit dl rm
e2scrub_all	5395	0755	edit dl rm
e2undo	22912	0755	edit dl rm
e4crypt	31104	0755	edit dl rm
e4defrag	35128	0755	edit dl rm
ebtables	220488	0755	edit dl rm
ebtables-nft	220488	0755	edit dl rm
ebtables-nft-restore	220488	0755	edit dl rm
ebtables-nft-save	220488	0755	edit dl rm
ebtables-restore	220488	0755	edit dl rm
ebtables-save	220488	0755	edit dl rm
era_check	1352288	0755	edit dl rm
era_dump	1352288	0755	edit dl rm
era_invalidate	1352288	0755	edit dl rm
era_restore	1352288	0755	edit dl rm
ethtool	384048	0755	edit dl rm
faillock	14488	0755	edit dl rm
fatlabel	55376	0755	edit dl rm
fdformat	35048	0755	edit dl rm
fdisk	153880	0755	edit dl rm
filefrag	18768	0755	edit dl rm
findfs	14568	0755	edit dl rm
fixparts	76264	0755	edit dl rm
fsadm	24108	0755	edit dl rm
fsck	55576	0755	edit dl rm
fsck.btrfs	1185	0755	edit dl rm
fsck.cramfs	39176	0755	edit dl rm
fsck.ext2	335064	0755	edit dl rm
fsck.ext3	335064	0755	edit dl rm
fsck.ext4	335064	0755	edit dl rm
fsck.fat	59472	0755	edit dl rm
fsck.minix	125184	0755	edit dl rm
fsck.msdos	59472	0755	edit dl rm
fsck.vfat	59472	0755	edit dl rm
fsck.xfs	1968	0755	edit dl rm
fsfreeze	14568	0755	edit dl rm
fstab-decode	14648	0755	edit dl rm
fstrim	71912	0755	edit dl rm
gdisk	215528	0755	edit dl rm
genl	84264	0755	edit dl rm
getcap	14648	0755	edit dl rm
getpcaps	14648	0755	edit dl rm
getty	69000	0755	edit dl rm
groupadd	93136	0755	edit dl rm
groupdel	88848	0755	edit dl rm
groupmems	63736	0755	edit dl rm
groupmod	97136	0755	edit dl rm
grpck	63672	0755	edit dl rm
grpconv	59448	0755	edit dl rm
grpunconv	59448	0755	edit dl rm
grub-bios-setup	931168	0755	edit dl rm
grub-install	1162992	0755	edit dl rm
grub-macbless	918560	0755	edit dl rm
grub-mkconfig	8750	0755	edit dl rm
grub-mkdevicemap	220880	0755	edit dl rm
grub-probe	927008	0755	edit dl rm
grub-reboot	4843	0755	edit dl rm
grub-set-default	3558	0755	edit dl rm
halt	996584	0755	edit dl rm
hdparm	143704	0755	edit dl rm
hwclock	104808	0755	edit dl rm
iconvconfig	31128	0755	edit dl rm
init	1620224	0755	edit dl rm
insmod	174424	0755	edit dl rm
installkernel	2638	0755	edit dl rm
integritysetup	61672	0755	edit dl rm
invoke-rc.d	17042	0755	edit dl rm
ip	611960	0755	edit dl rm
ip6tables	99296	0755	edit dl rm
ip6tables-apply	7057	0755	edit dl rm
ip6tables-legacy	99296	0755	edit dl rm
ip6tables-legacy-restore	99296	0755	edit dl rm
ip6tables-legacy-save	99296	0755	edit dl rm
ip6tables-nft	220488	0755	edit dl rm
ip6tables-nft-restore	220488	0755	edit dl rm
ip6tables-nft-save	220488	0755	edit dl rm
ip6tables-restore	99296	0755	edit dl rm
ip6tables-restore-translate	220488	0755	edit dl rm
ip6tables-save	99296	0755	edit dl rm
ip6tables-translate	220488	0755	edit dl rm
iptables	99296	0755	edit dl rm
iptables-apply	7057	0755	edit dl rm
iptables-legacy	99296	0755	edit dl rm
iptables-legacy-restore	99296	0755	edit dl rm
iptables-legacy-save	99296	0755	edit dl rm
iptables-nft	220488	0755	edit dl rm
iptables-nft-restore	220488	0755	edit dl rm
iptables-nft-save	220488	0755	edit dl rm
iptables-restore	99296	0755	edit dl rm
iptables-restore-translate	220488	0755	edit dl rm
iptables-save	99296	0755	edit dl rm
iptables-translate	220488	0755	edit dl rm
irqbalance	64432	0755	edit dl rm
irqbalance-ui	35200	0755	edit dl rm
iscsi-iname	18584	0755	edit dl rm
iscsiadm	403560	0755	edit dl rm
iscsid	420152	0755	edit dl rm
iscsistart	375080	0755	edit dl rm
iscsi_discovery	5285	0755	edit dl rm
isosize	30952	0755	edit dl rm
kbdrate	14328	0755	edit dl rm
killall5	27016	0755	edit dl rm
kpartx	47272	0755	edit dl rm
ldattach	35048	0755	edit dl rm
ldconfig	387	0755	edit dl rm
ldconfig.real	1053768	0755	edit dl rm
locale-gen	4399	0755	edit dl rm
logrotate	84056	0755	edit dl rm
logsave	14496	0755	edit dl rm
losetup	112992	0755	edit dl rm
lsmod	174424	0755	edit dl rm
luksformat	3401	0755	edit dl rm
lvchange	2862872	0755	edit dl rm
lvconvert	2862872	0755	edit dl rm
lvcreate	2862872	0755	edit dl rm
lvdisplay	2862872	0755	edit dl rm
lvextend	2862872	0755	edit dl rm
lvm	2862872	0755	edit dl rm
lvmconfig	2862872	0755	edit dl rm
lvmdiskscan	2862872	0755	edit dl rm
lvmdump	10312	0755	edit dl rm
lvmpolld	237624	0755	edit dl rm
lvmsadc	2862872	0755	edit dl rm
lvmsar	2862872	0755	edit dl rm
lvreduce	2862872	0755	edit dl rm
lvremove	2862872	0755	edit dl rm
lvrename	2862872	0755	edit dl rm
lvresize	2862872	0755	edit dl rm
lvs	2862872	0755	edit dl rm
lvscan	2862872	0755	edit dl rm
make-bcache	22760	0755	edit dl rm
mdadm	603800	0755	edit dl rm
mdmon	333304	0755	edit dl rm
mkdosfs	35328	0755	edit dl rm
mke2fs	137848	0755	edit dl rm
mkfs	14568	0755	edit dl rm
mkfs.bfs	35048	0755	edit dl rm
mkfs.btrfs	462368	0755	edit dl rm
mkfs.cramfs	43168	0755	edit dl rm
mkfs.ext2	137848	0755	edit dl rm
mkfs.ext3	137848	0755	edit dl rm
mkfs.ext4	137848	0755	edit dl rm
mkfs.fat	35328	0755	edit dl rm
mkfs.minix	108784	0755	edit dl rm
mkfs.msdos	35328	0755	edit dl rm
mkfs.ntfs	88336	0755	edit dl rm
mkfs.vfat	35328	0755	edit dl rm
mkfs.xfs	375032	0755	edit dl rm
mkhomedir_helper	22704	0755	edit dl rm
mkinitramfs	11792	0755	edit dl rm
mklost+found	14648	0755	edit dl rm
mkntfs	88336	0755	edit dl rm
mkswap	108784	0755	edit dl rm
modinfo	174424	0755	edit dl rm
modprobe	174424	0755	edit dl rm
mount.fuse	14488	0755	edit dl rm
mount.lowntfs-3g	121712	0755	edit dl rm
mount.ntfs	162704	0755	edit dl rm
mount.ntfs-3g	162704	0755	edit dl rm
mount.vmhgfs	47592	0755	edit dl rm
mpathpersist	31800	0755	edit dl rm
multipath	34968	0755	edit dl rm
multipathd	129224	0755	edit dl rm
mysqld	67496848	0755	edit dl rm
netplan	798	0755	edit dl rm
newusers	101168	0755	edit dl rm
nfnl_osf	18736	0755	edit dl rm
nginx	1195152	0755	edit dl rm
nologin	14640	0755	edit dl rm
ntfsclone	59672	0755	edit dl rm
ntfscp	43272	0755	edit dl rm
ntfslabel	35080	0755	edit dl rm
ntfsresize	80152	0755	edit dl rm
ntfsundelete	55560	0755	edit dl rm
on_ac_power	2228	0755	edit dl rm
overlayroot-chroot	2510	0755	edit dl rm
ownership	14792	0755	edit dl rm
pam-auth-update	20335	0755	edit dl rm
pam_extrausers_chkpwd	43168	2755	edit dl rm
pam_extrausers_update	43168	0755	edit dl rm
pam_getenv	2890	0755	edit dl rm
pam_tally	14504	0755	edit dl rm
pam_tally2	18600	0755	edit dl rm
pam_timestamp_check	14488	0755	edit dl rm
parted	88320	0755	edit dl rm
partprobe	14568	0755	edit dl rm
pdata_tools	1352288	0755	edit dl rm
php-fpm7.4	4767320	0755	edit dl rm
phpdismod	7278	0755	edit dl rm
phpenmod	7278	0755	edit dl rm
phpquery	6389	0755	edit dl rm
pivot_root	14568	0755	edit dl rm
plymouthd	149920	0755	edit dl rm
popcon-largest-unused	543	0755	edit dl rm
popularity-contest	5353	0755	edit dl rm
poweroff	996584	0755	edit dl rm
pvchange	2862872	0755	edit dl rm
pvck	2862872	0755	edit dl rm
pvcreate	2862872	0755	edit dl rm
pvdisplay	2862872	0755	edit dl rm
pvmove	2862872	0755	edit dl rm
pvremove	2862872	0755	edit dl rm
pvresize	2862872	0755	edit dl rm
pvs	2862872	0755	edit dl rm
pvscan	2862872	0755	edit dl rm
pwck	59568	0755	edit dl rm
pwconv	55344	0755	edit dl rm
pwunconv	55352	0755	edit dl rm
raw	14568	0755	edit dl rm
readprofile	22792	0755	edit dl rm
reboot	996584	0755	edit dl rm
remove-shell	904	0755	edit dl rm
resize2fs	67968	0755	edit dl rm
rmmod	174424	0755	edit dl rm
rmt	59952	0755	edit dl rm
rmt-tar	59952	0755	edit dl rm
rsyslogd	727248	0755	edit dl rm
rtacct	49448	0755	edit dl rm
rtcwake	47336	0755	edit dl rm
rtmon	80120	0755	edit dl rm
runlevel	996584	0755	edit dl rm
runuser	67816	0755	edit dl rm
service	9262	0755	edit dl rm
setcap	14648	0755	edit dl rm
setvesablank	14408	0755	edit dl rm
setvtrgb	14472	0755	edit dl rm
sfdisk	141544	0755	edit dl rm
sgdisk	195048	0755	edit dl rm
shadowconfig	885	0755	edit dl rm
shutdown	996584	0755	edit dl rm
sshd	884520	0755	edit dl rm
start-stop-daemon	48456	0755	edit dl rm
sulogin	51432	0755	edit dl rm
swaplabel	18664	0755	edit dl rm
swapoff	22760	0755	edit dl rm
swapon	51432	0755	edit dl rm
switch_root	14568	0755	edit dl rm
sysctl	30960	0755	edit dl rm
tarcat	936	0755	edit dl rm
tc	542160	0755	edit dl rm
tcpdump	1044232	0755	edit dl rm
telinit	996584	0755	edit dl rm
thin_check	1352288	0755	edit dl rm
thin_delta	1352288	0755	edit dl rm
thin_dump	1352288	0755	edit dl rm
thin_ls	1352288	0755	edit dl rm
thin_metadata_size	1352288	0755	edit dl rm
thin_repair	1352288	0755	edit dl rm
thin_restore	1352288	0755	edit dl rm
thin_rmap	1352288	0755	edit dl rm
thin_trim	1352288	0755	edit dl rm
tipc	129264	0755	edit dl rm
tune2fs	109112	0755	edit dl rm
tzconfig	106	0755	edit dl rm
ufw	4936	0755	edit dl rm
unix_chkpwd	43160	2755	edit dl rm
unix_update	43160	0755	edit dl rm
update-ca-certificates	5418	0755	edit dl rm
update-grub	64	0755	edit dl rm
update-grub-gfxpayload	301	0755	edit dl rm
update-grub2	64	0755	edit dl rm
update-info-dir	1700	0755	edit dl rm
update-initramfs	7419	0755	edit dl rm
update-locale	3063	0755	edit dl rm
update-mime	9402	0755	edit dl rm
update-passwd	35392	0755	edit dl rm
update-pciids	1749	0755	edit dl rm
update-rc.d	17161	0755	edit dl rm
update-secureboot-policy	7605	0755	edit dl rm
upgrade-from-grub-legacy	1524	0755	edit dl rm
useradd	147160	0755	edit dl rm
userdel	101264	0755	edit dl rm
usermod	142840	0755	edit dl rm
uuidd	43320	0755	edit dl rm
validlocale	1773	0755	edit dl rm
vcstime	14328	0755	edit dl rm
veritysetup	53064	0755	edit dl rm
vgcfgbackup	2862872	0755	edit dl rm
vgcfgrestore	2862872	0755	edit dl rm
vgchange	2862872	0755	edit dl rm
vgck	2862872	0755	edit dl rm
vgconvert	2862872	0755	edit dl rm
vgcreate	2862872	0755	edit dl rm
vgdisplay	2862872	0755	edit dl rm
vgexport	2862872	0755	edit dl rm
vgextend	2862872	0755	edit dl rm
vgimport	2862872	0755	edit dl rm
vgimportclone	2862872	0755	edit dl rm
vgmerge	2862872	0755	edit dl rm
vgmknodes	2862872	0755	edit dl rm
vgreduce	2862872	0755	edit dl rm
vgremove	2862872	0755	edit dl rm
vgrename	2862872	0755	edit dl rm
vgs	2862872	0755	edit dl rm
vgscan	2862872	0755	edit dl rm
vgsplit	2862872	0755	edit dl rm
vigr	70200	0755	edit dl rm
vipw	70200	0755	edit dl rm
visudo	223432	0755	edit dl rm
vpddecode	19024	0755	edit dl rm
wipefs	47336	0755	edit dl rm
xfs_admin	1415	0755	edit dl rm
xfs_bmap	695	0755	edit dl rm
xfs_copy	92448	0755	edit dl rm
xfs_db	634976	0755	edit dl rm
xfs_estimate	14344	0755	edit dl rm
xfs_freeze	800	0755	edit dl rm
xfs_fsr	43032	0755	edit dl rm
xfs_growfs	34960	0755	edit dl rm
xfs_info	1294	0755	edit dl rm
xfs_io	191832	0755	edit dl rm
xfs_logprint	75928	0755	edit dl rm
xfs_mdrestore	30736	0755	edit dl rm
xfs_metadump	782	0755	edit dl rm
xfs_mkfile	1040	0755	edit dl rm
xfs_ncheck	685	0755	edit dl rm
xfs_quota	88072	0755	edit dl rm
xfs_repair	576664	0755	edit dl rm
xfs_rtcp	18424	0755	edit dl rm
xfs_scrub	104560	0755	edit dl rm
xfs_scrub_all	6005	0755	edit dl rm
xfs_spaceman	43160	0755	edit dl rm
xtables-legacy-multi	99296	0755	edit dl rm
xtables-monitor	220488	0755	edit dl rm
xtables-nft-multi	220488	0755	edit dl rm
zerofree	10232	0755	edit dl rm
zic	63784	0755	edit dl rm
zramctl	117088	0755	edit dl rm

Edit: /usr/sbin/update-rc.d (17161B)

#! /usr/bin/perl
# vim: ft=perl
#
# update-rc.d	Update the links in /etc/rc[0-9S].d/
#

use strict;
use warnings;
# NB: All Perl modules used here must be in perl-base. Specifically, depending
# on modules in perl-modules is not okay! See bug #716923

my $initd = "/etc/init.d";
my $etcd  = "/etc/rc";

# Print usage message and die.

sub usage {
	print STDERR "update-rc.d: error: @_\n" if ($#_ >= 0);
	print STDERR <<EOF;
usage: update-rc.d [-f] <basename> remove
       update-rc.d [-f] <basename> defaults
       update-rc.d [-f] <basename> defaults-disabled
       update-rc.d <basename> disable|enable [S|2|3|4|5]
		-f: force

The disable|enable API is not stable and might change in the future.
EOF
	exit (1);
}

exit main(@ARGV);

sub info {
    print STDOUT "update-rc.d: @_\n";
}

sub warning {
    print STDERR "update-rc.d: warning: @_\n";
}

sub error {
    print STDERR "update-rc.d: error: @_\n";
    exit (1);
}

sub error_code {
    my $rc = shift;
    print STDERR "update-rc.d: error: @_\n";
    exit ($rc);
}

sub make_path {
    my ($path) = @_;
    my @dirs = ();
    my @path = split /\//, $path;
    map { push @dirs, $_; mkdir join('/', @dirs), 0755; } @path;
}

# Given a script name, return any runlevels except 0 or 6 in which the
# script is enabled.  If that gives nothing and the script is not
# explicitly disabled, return 6 if the script is disabled in runlevel
# 0 or 6.
sub script_runlevels {
    my ($scriptname) = @_;
    my @links=<"/etc/rc[S12345].d/S[0-9][0-9]$scriptname">;
    if (@links) {
        return map(substr($_, 7, 1), @links);
    } elsif (! <"/etc/rc[S12345].d/K[0-9][0-9]$scriptname">) {
        @links=<"/etc/rc[06].d/K[0-9][0-9]$scriptname">;
        return ("6") if (@links);
    } else {
	return ;
    }
}

# Map the sysvinit runlevel to that of openrc.
sub openrc_rlconv {
    my %rl_table = (
        "S" => "sysinit",
        "1" => "recovery",
        "2" => "default",
        "3" => "default",
        "4" => "default",
        "5" => "default",
        "6" => "off" );

my %seen; # return unique runlevels
    return grep !$seen{$_}++, map($rl_table{$_}, @_);
}

sub systemd_reload {
    if (-d "/run/systemd/system") {
        system("systemctl", "daemon-reload");
    }
}

# Creates the necessary links to enable/disable a SysV init script (fallback if
# no insserv/rc-update exists)
sub make_sysv_links {
    my ($scriptname, $action) = @_;

# for "remove" we cannot rely on the init script still being present, as
    # this gets called in postrm for purging. Just remove all symlinks.
    if ("remove" eq $action) { unlink($_) for
        glob("/etc/rc?.d/[SK][0-9][0-9]$scriptname"); return; }

# if the service already has any links, do not touch them
    # numbers we don't care about, but enabled/disabled state we do
    return if glob("/etc/rc?.d/[SK][0-9][0-9]$scriptname");

# for "defaults", parse Default-{Start,Stop} and create these links
    my ($lsb_start_ref, $lsb_stop_ref) = parse_def_start_stop("/etc/init.d/$scriptname");
    my $start = $action eq "defaults-disabled" ? "K" : "S";
    foreach my $lvl (@$lsb_start_ref) {
        make_path("/etc/rc$lvl.d");
        my $l = "/etc/rc$lvl.d/${start}01$scriptname";
        symlink("../init.d/$scriptname", $l);
    }

foreach my $lvl (@$lsb_stop_ref) {
        make_path("/etc/rc$lvl.d");
        my $l = "/etc/rc$lvl.d/K01$scriptname";
        symlink("../init.d/$scriptname", $l);
    }
}

# Creates the necessary links to enable/disable the service (equivalent of an
# initscript) in systemd.
sub make_systemd_links {
    my ($scriptname, $action) = @_;

# If called by systemctl (via systemd-sysv-install), do nothing to avoid
    # an endless loop.
    if (defined($ENV{_SKIP_SYSTEMD_NATIVE}) && $ENV{_SKIP_SYSTEMD_NATIVE} == 1) {
        return;
    }

# If systemctl is available, let's use that to create the symlinks.
    if (-x "/bin/systemctl") {
        # Set this env var to avoid loop in systemd-sysv-install.
        local $ENV{SYSTEMCTL_SKIP_SYSV} = 1;
        # Use --quiet to mimic the old update-rc.d behaviour.
        system("systemctl", "--quiet", "$action", "$scriptname");
        return;
    }

# In addition to the insserv call we also enable/disable the service
    # for systemd by creating the appropriate symlink in case there is a
    # native systemd service. In case systemd is not installed we do this
    # on our own instead of using systemctl.
    my $service_path;
    if (-f "/etc/systemd/system/$scriptname.service") {
        $service_path = "/etc/systemd/system/$scriptname.service";
    } elsif (-f "/lib/systemd/system/$scriptname.service") {
        $service_path = "/lib/systemd/system/$scriptname.service";
    }
    if (defined($service_path)) {
        my $changed_sth;
        open my $fh, '<', $service_path or error("unable to read $service_path");
        while (<$fh>) {
            chomp;
            if (/^\s*WantedBy=(.+)$/i) {
                my $wants_dir = "/etc/systemd/system/$1.wants";
                my $service_link = "$wants_dir/$scriptname.service";
                if ("enable" eq $action) {
                    make_path($wants_dir);
                    symlink($service_path, $service_link);
                } else {
                    unlink($service_link) if -e $service_link;
                }
            }
        }
        close($fh);
    }
}

sub create_sequence {
    my $force = (@_);
    my $insserv = "/usr/lib/insserv/insserv";
    # Fallback for older insserv package versions [2014-04-16]
    $insserv = "/sbin/insserv" if ( -x "/sbin/insserv");
    # If insserv is not configured it is not fully installed
    my $insserv_installed = -x $insserv && -e "/etc/insserv.conf";
    my @opts;
    push(@opts, '-f') if $force;
    # Add force flag if initscripts is not installed
    # This enables inistcripts-less systems to not fail when a facility is missing
    unshift(@opts, '-f') unless is_initscripts_installed();

my $openrc_installed = -x "/sbin/openrc";

my $sysv_insserv ={};
    $sysv_insserv->{remove} = sub {
        my ($scriptname) = @_;
        if ( -f "/etc/init.d/$scriptname" ) {
            return system($insserv, @opts, "-r", $scriptname) >> 8;
        } else {
            # insserv removes all dangling symlinks, no need to tell it
            # what to look for.
            my $rc = system($insserv, @opts) >> 8;
            error_code($rc, "insserv rejected the script header") if $rc;
        }
    };
    $sysv_insserv->{defaults} = sub {
        my ($scriptname) = @_;
        if ( -f "/etc/init.d/$scriptname" ) {
            my $rc = system($insserv, @opts, $scriptname) >> 8;
            error_code($rc, "insserv rejected the script header") if $rc;
        } else {
            error("initscript does not exist: /etc/init.d/$scriptname");
        }
    };
    $sysv_insserv->{defaults_disabled} = sub {
        my ($scriptname) = @_;
        return if glob("/etc/rc?.d/[SK][0-9][0-9]$scriptname");
        if ( -f "/etc/init.d/$scriptname" ) {
            my $rc = system($insserv, @opts, $scriptname) >> 8;
            error_code($rc, "insserv rejected the script header") if $rc;
        } else {
            error("initscript does not exist: /etc/init.d/$scriptname");
        }
        sysv_toggle("disable", $scriptname);
    };
    $sysv_insserv->{toggle} = sub {
        my ($action, $scriptname) = (shift, shift);
        sysv_toggle($action, $scriptname, @_);

# Call insserv to resequence modified links
        my $rc = system($insserv, @opts, $scriptname) >> 8;
        error_code($rc, "insserv rejected the script header") if $rc;
    };

my $sysv_plain = {};
    $sysv_plain->{remove} = sub {
        my ($scriptname) = @_;
        make_sysv_links($scriptname, "remove");
    };
    $sysv_plain->{defaults} = sub {
        my ($scriptname) = @_;
        make_sysv_links($scriptname, "defaults");
    };
    $sysv_plain->{defaults_disabled} = sub {
        my ($scriptname) = @_;
        make_sysv_links($scriptname, "defaults-disabled");
    };
    $sysv_plain->{toggle} = sub {
        my ($action, $scriptname) = (shift, shift);
        sysv_toggle($action, $scriptname, @_);
    };

my $systemd = {};
    $systemd->{remove} = sub {
        systemd_reload;
    };
    $systemd->{defaults} = sub {
        systemd_reload;
    };
    $systemd->{defaults_disabled} = sub {
        systemd_reload;
    };
    $systemd->{toggle} = sub {
        my ($action, $scriptname) = (shift, shift);
        make_systemd_links($scriptname, $action);
        systemd_reload;
    };

# Should we check exit codeS?
    my $openrc = {};
    $openrc->{remove} = sub {
        my ($scriptname) = @_;
        system("rc-update", "-qqa", "delete", $scriptname);

};
    $openrc->{defaults} = sub {
        my ($scriptname) = @_;
        # OpenRC does not distinguish halt and reboot.  They are handled
        # by /etc/init.d/transit instead.
        return if ("halt" eq $scriptname || "reboot" eq $scriptname);
        # no need to consider default disabled runlevels
        # because everything is disabled by openrc by default
        my @rls=script_runlevels($scriptname);
        if ( @rls ) {
            system("rc-update", "add", $scriptname, openrc_rlconv(@rls));
        }
    };
    $openrc->{defaults_disabled} = sub {
        # In openrc everything is disabled by default
    };
    $openrc->{toggle} = sub {
        my ($action, $scriptname) = (shift, shift);
        my (@toggle_lvls, $start_lvls, $stop_lvls, @symlinks);
        my $lsb_header = lsb_header_for_script($scriptname);

# Extra arguments to disable|enable action are runlevels. If none
        # given parse LSB info for Default-Start value.
        if ($#_ >= 0) {
            @toggle_lvls = @_;
        } else {
            ($start_lvls, $stop_lvls) = parse_def_start_stop($lsb_header);
            @toggle_lvls = @$start_lvls;
            if ($#toggle_lvls < 0) {
                error("$scriptname Default-Start contains no runlevels, aborting.");
            }
        }
        my %openrc_act = ( "disable" => "del", "enable" => "add" );
        system("rc-update", $openrc_act{$action}, $scriptname,
               openrc_rlconv(@toggle_lvls))
    };

my @sequence;
    if ($insserv_installed) {
        push @sequence, $sysv_insserv;
    }
    else {
        push @sequence, $sysv_plain;
    }
    # OpenRC has to be after sysv_{insserv,plain} because it depends on them to synchronize
    # states.
    if ($openrc_installed) {
        push @sequence, $openrc;
    }
    push @sequence, $systemd;

return @sequence;
}

## Dependency based
sub main {
    my @args = @_;
    my $scriptname;
    my $action;
    my $force = 0;

while($#args >= 0 && ($_ = $args[0]) =~ /^-/) {
        shift @args;
        if (/^-f$/) { $force = 1; next }
        if (/^-h|--help$/) { usage(); }
        usage("unknown option");
    }

usage("not enough arguments") if ($#args < 1);

my @sequence = create_sequence($force);

$scriptname = shift @args;
    $action = shift @args;
    if ("remove" eq $action) {
        foreach my $init (@sequence) {
            $init->{remove}->($scriptname);
        }
    } elsif ("defaults" eq $action || "start" eq $action ||
             "stop" eq $action) {
        # All start/stop/defaults arguments are discarded so emit a
        # message if arguments have been given and are in conflict
        # with Default-Start/Default-Stop values of LSB comment.
        if ("start" eq $action || "stop" eq $action) {
            cmp_args_with_defaults($scriptname, $action, @args);
        }
        foreach my $init (@sequence) {
            $init->{defaults}->($scriptname);
        }
    } elsif ("defaults-disabled" eq $action) {
        foreach my $init (@sequence) {
            $init->{defaults_disabled}->($scriptname);
        }
    } elsif ("disable" eq $action || "enable" eq $action) {
        foreach my $init (@sequence) {
            $init->{toggle}->($action, $scriptname, @args);
        }
    } else {
        usage();
    }
}

sub parse_def_start_stop {
    my $script = shift;
    my (%lsb, @def_start_lvls, @def_stop_lvls);

open my $fh, '<', $script or error("unable to read $script");
    while (<$fh>) {
        chomp;
        if (m/^### BEGIN INIT INFO\s*$/) {
            $lsb{'begin'}++;
        }
        elsif (m/^### END INIT INFO\s*$/) {
            $lsb{'end'}++;
            last;
        }
        elsif ($lsb{'begin'} and not $lsb{'end'}) {
            if (m/^# Default-Start:\s*(\S?.*)$/) {
                @def_start_lvls = split(' ', $1);
            }
            if (m/^# Default-Stop:\s*(\S?.*)$/) {
                @def_stop_lvls = split(' ', $1);
            }
        }
    }
    close($fh);

return (\@def_start_lvls, \@def_stop_lvls);
}

sub lsb_header_for_script {
    my $name = shift;

foreach my $file ("/etc/insserv/overrides/$name", "/etc/init.d/$name",
                      "/usr/share/insserv/overrides/$name") {
        return $file if -s $file;
    }

error("cannot find a LSB script for $name");
}

sub cmp_args_with_defaults {
    my ($name, $act) = (shift, shift);
    my ($lsb_start_ref, $lsb_stop_ref, $arg_str, $lsb_str);
    my (@arg_start_lvls, @arg_stop_lvls, @lsb_start_lvls, @lsb_stop_lvls);

($lsb_start_ref, $lsb_stop_ref) = parse_def_start_stop("/etc/init.d/$name");
    @lsb_start_lvls = @$lsb_start_ref;
    @lsb_stop_lvls  = @$lsb_stop_ref;
    return if (!@lsb_start_lvls and !@lsb_stop_lvls);

warning "start and stop actions are no longer supported; falling back to defaults";
    my $start = $act eq 'start' ? 1 : 0;
    my $stop = $act eq 'stop' ? 1 : 0;

# The legacy part of this program passes arguments starting with
    # "start|stop NN x y z ." but the insserv part gives argument list
    # starting with sequence number (ie. strips off leading "start|stop")
    # Start processing arguments immediately after the first seq number.
    my $argi = $_[0] eq $act ? 2 : 1;

while (defined $_[$argi]) {
        my $arg = $_[$argi];

# Runlevels 0 and 6 are always stop runlevels
        if ($arg eq 0 or $arg eq 6) {
            $start = 0; $stop = 1;
        } elsif ($arg eq 'start') {
            $start = 1; $stop = 0; $argi++; next;
        } elsif ($arg eq 'stop') {
            $start = 0; $stop = 1; $argi++; next;
        } elsif ($arg eq '.') {
            next;
        }
        push(@arg_start_lvls, $arg) if $start;
        push(@arg_stop_lvls, $arg) if $stop;
    } continue {
        $argi++;
    }

if ($#arg_start_lvls != $#lsb_start_lvls or
        join("\0", sort @arg_start_lvls) ne join("\0", sort @lsb_start_lvls)) {
        $arg_str = @arg_start_lvls ? "@arg_start_lvls" : "none";
        $lsb_str = @lsb_start_lvls ? "@lsb_start_lvls" : "none";
        warning "start runlevel arguments ($arg_str) do not match",
                "$name Default-Start values ($lsb_str)";
    }
    if ($#arg_stop_lvls != $#lsb_stop_lvls or
        join("\0", sort @arg_stop_lvls) ne join("\0", sort @lsb_stop_lvls)) {
        $arg_str = @arg_stop_lvls ? "@arg_stop_lvls" : "none";
        $lsb_str = @lsb_stop_lvls ? "@lsb_stop_lvls" : "none";
        warning "stop runlevel arguments ($arg_str) do not match",
                "$name Default-Stop values ($lsb_str)";
    }
}

sub sysv_toggle {
    my ($act, $name) = (shift, shift);
    my (@toggle_lvls, $start_lvls, $stop_lvls, @symlinks);
    my $lsb_header = lsb_header_for_script($name);

# Find symlinks in rc.d directories. Refuse to modify links in runlevels
    # not used for normal system start sequence.
    for my $lvl (@toggle_lvls) {
        if ($lvl !~ /^[S2345]$/) {
            warning("$act action will have no effect on runlevel $lvl");
            next;
        }
        push(@symlinks, $_) for glob("/etc/rc$lvl.d/[SK][0-9][0-9]$name");
    }

if (!@symlinks) {
        error("no runlevel symlinks to modify, aborting!");
    }

# Toggle S/K bit of script symlink.
    for my $cur_lnk (@symlinks) {
        my $sk;
        my @new_lnk = split(//, $cur_lnk);

if ("disable" eq $act) {
            $sk = rindex($cur_lnk, '/S') + 1;
            next if $sk < 1;
            $new_lnk[$sk] = 'K';
        } else {
            $sk = rindex($cur_lnk, '/K') + 1;
            next if $sk < 1;
            $new_lnk[$sk] = 'S';
        }

rename($cur_lnk, join('', @new_lnk)) or error($!);
    }
}

# Try to determine if initscripts is installed
sub is_initscripts_installed {
    # Check if mountkernfs is available. We cannot make inferences
    # using the running init system because we may be running in a
    # chroot
    return  glob('/etc/rcS.d/S??mountkernfs.sh');
}

cmd: