File Manager Sederhana

Sistem OS:Linux server1.famouzz.com 5.15.0-125-generic #135-Ubuntu SMP Fri Sep 27 13:53:58 UTC 2024 x86_64

Sistem Software:nginx/1.18.0

Upload File

Jalankan Perintah

Nama	Ukuran	Izin	Aksi
aa-exec	22.16 KB	0755	Edit Rename Delete
aa-remove-unknown	2.86 KB	0755	Edit Rename Delete
aa-status	7.11 KB	0755	Edit Rename Delete
add-shell	695 B	0755	Edit Rename Delete
addgroup	36.4 KB	0755	Edit Rename Delete
adduser	36.4 KB	0755	Edit Rename Delete
apparmor_status	7.11 KB	0755	Edit Rename Delete
arp	54.09 KB	0755	Edit Rename Delete
arpd	46.74 KB	0755	Edit Rename Delete
chat	26.01 KB	0755	Edit Rename Delete
chgpasswd	53.33 KB	0755	Edit Rename Delete
chpasswd	49.43 KB	0755	Edit Rename Delete
chroot	38.8 KB	0755	Edit Rename Delete
cpgr	51.48 KB	0755	Edit Rename Delete
cppw	51.48 KB	0755	Edit Rename Delete
cron	43.43 KB	0755	Edit Rename Delete
delgroup	16.13 KB	0755	Edit Rename Delete
deluser	16.13 KB	0755	Edit Rename Delete
dnsmasq	452.91 KB	0755	Edit Rename Delete
dpkg-divert	0 B	0	Edit Rename Delete
dpkg-preconfigure	3.52 KB	0755	Edit Rename Delete
dpkg-reconfigure	4.23 KB	0755	Edit Rename Delete
dpkg-statoverride	0 B	0	Edit Rename Delete
e2freefrag	10.24 KB	0755	Edit Rename Delete
e4defrag	26.53 KB	0755	Edit Rename Delete
faillock	14.4 KB	0755	Edit Rename Delete
fanatic	35.21 KB	0755	Edit Rename Delete
fanctl	41.97 KB	0755	Edit Rename Delete
fdformat	22.57 KB	0755	Edit Rename Delete
filefrag	14.31 KB	0755	Edit Rename Delete
genl	46.69 KB	0755	Edit Rename Delete
groupadd	57.42 KB	0755	Edit Rename Delete
groupdel	65.83 KB	0755	Edit Rename Delete
groupmod	67.7 KB	0755	Edit Rename Delete
grpck	53.31 KB	0755	Edit Rename Delete
grpconv	49.19 KB	0755	Edit Rename Delete
grpunconv	49.2 KB	0755	Edit Rename Delete
iconvconfig	26.66 KB	0755	Edit Rename Delete
invoke-rc.d	19.41 KB	0755	Edit Rename Delete
ip6tables-apply	6.85 KB	0755	Edit Rename Delete
iptables-apply	6.85 KB	0755	Edit Rename Delete
ldattach	26.63 KB	0755	Edit Rename Delete
logrotate	63.11 KB	0755	Edit Rename Delete
mkinitramfs	10.24 KB	0755	Edit Rename Delete
mklost+found	10.25 KB	0755	Edit Rename Delete
netplan	17.94 KB	0755	Edit Rename Delete
newusers	73.84 KB	0755	Edit Rename Delete
nfnl_osf	14.37 KB	0755	Edit Rename Delete
nologin	5.95 KB	0755	Edit Rename Delete
pam-auth-update	19.09 KB	0755	Edit Rename Delete
pam_getenv	2.82 KB	0755	Edit Rename Delete
pam_timestamp_check	10.38 KB	0755	Edit Rename Delete
pppd	385.73 KB	4754	Edit Rename Delete
pppdump	18.1 KB	0755	Edit Rename Delete
pppoe-discovery	18 KB	0755	Edit Rename Delete
pppstats	13.99 KB	0755	Edit Rename Delete
pwck	45.36 KB	0755	Edit Rename Delete
pwconv	41.27 KB	0755	Edit Rename Delete
pwunconv	36.43 KB	0755	Edit Rename Delete
readprofile	14.52 KB	0755	Edit Rename Delete
remove-shell	749 B	0755	Edit Rename Delete
rfkill	10.29 KB	0755	Edit Rename Delete
rmt	54.95 KB	0755	Edit Rename Delete
rmt-tar	54.95 KB	0755	Edit Rename Delete
rsyslogd	585.28 KB	0755	Edit Rename Delete
rtcwake	38.8 KB	0755	Edit Rename Delete
service	9.82 KB	0755	Edit Rename Delete
setvesablank	10.27 KB	0755	Edit Rename Delete
sshd	772.48 KB	0755	Edit Rename Delete
tarcat	936 B	0755	Edit Rename Delete
tunelp	22.53 KB	0755	Edit Rename Delete
tzconfig	106 B	0755	Edit Rename Delete
update-alternatives	46.61 KB	0755	Edit Rename Delete
update-ca-certificates	5.25 KB	0755	Edit Rename Delete
update-initramfs	8.38 KB	0755	Edit Rename Delete
update-mime	8.84 KB	0755	Edit Rename Delete
update-passwd	30.41 KB	0755	Edit Rename Delete
update-rc.d	14.1 KB	0755	Edit Rename Delete
useradd	118.72 KB	0755	Edit Rename Delete
userdel	81.92 KB	0755	Edit Rename Delete
usermod	118.5 KB	0755	Edit Rename Delete
vcstime	6.26 KB	0755	Edit Rename Delete
vigr	55.7 KB	0755	Edit Rename Delete
vipw	55.7 KB	0755	Edit Rename Delete
visudo	187.89 KB	0755	Edit Rename Delete
zic	50.54 KB	0755	Edit Rename Delete

Edit File:update-rc.d

#! /usr/bin/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";
my $notreally = 0;

# Print usage message and die.

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

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

exit insserv_updatercd(@ARGV);

sub save_last_action {
    # No-op (archive removed)
}

sub remove_last_action {
    # No-op (archive removed)
}

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 the service (equivalent of an
# initscript) in systemd.
sub make_systemd_links {
    my ($scriptname, $action) = @_;

# 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. We need to do this on our own instead of
    # using systemctl because systemd might not even be installed yet.
    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);
    }
}

# Manage the .override file for upstart jobs, so update-rc.d enable/disable
# work on upstart systems the same as on sysvinit/systemd.
sub upstart_toggle {
    my ($scriptname, $action) = @_;

# This needs to be done by manually parsing .override files instead of
    # using initctl, because upstart might not be installed yet.
    my $service_path;
    if (-f "/etc/init/$scriptname.conf") {
        $service_path = "/etc/init/$scriptname.override";
    }
    if (!defined($service_path)) {
        return;
    }
    my $fh;
    my $enabled = 1;
    my $overrides = '';
    if (open $fh, '<', $service_path) {
        while (<$fh>) {
           if (/^\s*manual\s*$/) {
               $enabled = 0;
           } else {
               $overrides .= $_;
           }
        }
    }
    close($fh);

if ($enabled && $action eq 'disable') {
        open $fh, '>>', $service_path or error("unable to write $service_path");
        print $fh "manual\n";
        close($fh);
    } elsif (!$enabled && $action eq 'enable') {
        if ($overrides ne '') {
            open $fh, '>', $service_path . '.new' or error ("unable to write $service_path");
            print $fh $overrides;
            close($fh);
            rename($service_path . '.new', $service_path) or error($!);
        } else {
            unlink($service_path) or error($!);
        }
    }
}

## Dependency based
sub insserv_updatercd {
    my @args = @_;
    my @opts;
    my $scriptname;
    my $action;
    my $notreally = 0;

my @orig_argv = @args;

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

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

# 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();

$scriptname = shift @args;
    $action = shift @args;
    my $insserv = "/usr/lib/insserv/insserv";
    # Fallback for older insserv package versions [2014-04-16]
    $insserv = "/sbin/insserv" if ( -x "/sbin/insserv");
    #print STDERR "Warning: rc.d symlinks not being kept up to date because insserv is missing!\n" if ( ! -x $insserv);
    if ("remove" eq $action) {
        system("rc-update", "-qqa", "delete", $scriptname) if ( -x "/sbin/openrc" );
        exit 0 if ( ! -x $insserv);
        if ( -f "/etc/init.d/$scriptname" ) {
            my $rc = system($insserv, @opts, "-r", $scriptname) >> 8;
            if (0 == $rc && !$notreally) {
                remove_last_action($scriptname);
            }
            error_code($rc, "insserv rejected the script header") if $rc;
            systemd_reload;
            exit $rc;
        } else {
            # insserv removes all dangling symlinks, no need to tell it
            # what to look for.
            my $rc = system($insserv, @opts) >> 8;
            if (0 == $rc && !$notreally) {
                remove_last_action($scriptname);
            }
            error_code($rc, "insserv rejected the script header") if $rc;
            systemd_reload;
            exit $rc;
        }
    } elsif ("defaults" eq $action || "start" eq $action ||
             "stop" eq $action) {
        exit 0 if ( ! -x $insserv);
        # 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);
        }

if ( -f "/etc/init.d/$scriptname" ) {
            my $rc = system($insserv, @opts, $scriptname) >> 8;
            if (0 == $rc && !$notreally) {
                save_last_action($scriptname, @orig_argv);
            }
            error_code($rc, "insserv rejected the script header") if $rc;
            systemd_reload;

# OpenRC does not distinguish halt and reboot.  They are handled
	    # by /etc/init.d/transit instead.
            if ( -x "/sbin/openrc" && "halt" ne $scriptname
                 && "reboot" ne $scriptname ) {
                # no need to consider default disabled runlevels
                # because everything is disabled by openrc by default
		my @rls=script_runlevels($scriptname);
                system("rc-update", "add", $scriptname, openrc_rlconv(@rls))
		    if ( @rls );
            }
            exit $rc;
        } else {
            error("initscript does not exist: /etc/init.d/$scriptname");
        }
    } elsif ("disable" eq $action || "enable" eq $action) {
        make_systemd_links($scriptname, $action);

upstart_toggle($scriptname, $action);

exit 0 if ( ! -x $insserv);

insserv_toggle($notreally, $action, $scriptname, @args);
        # Call insserv to resequence modified links
        my $rc = system($insserv, @opts, $scriptname) >> 8;
        if (0 == $rc && !$notreally) {
            save_last_action($scriptname, @orig_argv);
        }
        error_code($rc, "insserv rejected the script header") if $rc;
        systemd_reload;
        exit $rc;
    } 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$/) {
            $lsb{'begin'}++;
        }
        elsif (m/^### END INIT INFO$/) {
            $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 insserv_toggle {
    my ($dryrun, $act, $name) = (shift, shift, shift);
    my (@toggle_lvls, $start_lvls, $stop_lvls, @symlinks);
    my $lsb_header = lsb_header_for_script($name);

# 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("$name Default-Start contains no runlevels, aborting.");
        }
    }

if ( -x "/sbin/openrc" ) {
        my %openrc_act = ( "disable" => "del", "enable" => "add" );
        system("rc-update", $openrc_act{$act}, $name,
               openrc_rlconv(@toggle_lvls))
    }

# 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';
        }

if ($dryrun) {
            printf("rename(%s, %s)\n", $cur_lnk, join('', @new_lnk));
            next;
        }

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  -f '/etc/init.d/mountkernfs.sh';
}

File Manager Sederhana

Upload File

Jalankan Perintah

current directory: / / snap / core / current / usr / sbin

Edit File:update-rc.d