AnonSec Shell

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . AnonSec Shell AnonSec Shell

Server IP : 20.75.53.88 / Your IP : 216.73.217.165 [ Reverse IP ]
Web Server : Apache
System : Linux VMRALP-3 4.4.0-256-generic #290~14.04.1-Ubuntu SMP Thu Jun 20 09:24:50 UTC 2024 x86_64
User : www-data ( 33)
PHP Version : 5.5.9-1ubuntu4.29+esm15
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
Domains : 3 Domains
MySQL : ON | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON
Directory : /snap/core/current/usr/share/sysv-rc/

Upload File :

[ HOME ] [ BACKUP SHELL ] [ JUMPING ] [ MASS DEFACE ] [ SCAN ROOT ] [ SYMLINK ]

Current File : /snap/core/current/usr/share/sysv-rc/saveconfig

#! /usr/bin/perl
#
# saveconfig
#
# Print out the configuration of the current /etc/rc?.d
# symlink setup, in a format compatible to the
# "update-rc.d" command line.
#
# Author: Miquel van Smoorenburg <miquels@cistron.nl>
# Adjusted by Petter Reinholdtsen
#

sub usage {
    print STDERR "error: ", @_, "\n" if @_;
    print STDERR <<EOF;
saveconfig [-h] [-s <archivedir>]
  -s  save each scripts setting in directory <archivedir>
  -h  show usage inforation
EOF
}

my $archivedir = "";

while($#ARGV >= 0 && ($_ = $ARGV[0]) =~ /^-/) {
        shift @ARGV;
        if (/^-s$/) { $archivedir = shift; usage("Missing -s argument"), exit 1 unless $archivedir; next }
        if (/^-h|--help$/) { &usage; }
        &usage("unknown option");
}

chdir "/etc/init.d";

sub scan {
	my $dir = shift;
	local *DD;
	my $f;
	opendir DD, $dir;
	foreach $f (readdir DD) {
		next if ($f =~ m/^\./);
		push @{$dir{$dir}}, $f;
	}
	closedir DD;
}

foreach my $d (qw(S 0 1 2 3 4 5 6 7 8 9)) {
	scan("/etc/rc$d.d");
}
scan("/etc/init.d");

foreach my $s (@{$dir{"/etc/init.d"}}) {
	my %start;
	my %stop;
	my $start = 0;
	my $stop = 0;
	foreach my $l (qw(S 0 1 2 3 4 5 6)) {
		#print "L: $l\n";
		foreach my $f (@{$dir{"/etc/rc$l.d"}}) {
			#print "F: $f\n";
			if ($f =~ m#^S(\d+)$s$#) {
				$start{$1} .= "$l ";
				$start = 1;
			}
			if ($f =~ m#^K(\d+)$s$#) {
				$stop{$1} .= "$l ";
				$stop = 1;
			}
		}
	}
        my $entry;
        if ($start || $stop) {
		$entry = "update-rc.d $s ";
		if ($start > 0) {
			foreach my $x (sort keys %start) {
				$entry .= "start $x " . $start{$x} . ". ";
			}
		}
		if ($stop > 0) {
			foreach my $x (sort keys %stop) {
				$entry .= "stop $x " . $stop{$x} . ". ";
			}
		}
		$entry .= "\n";
		if ($archivedir) {
			my $file = "$archivedir/$s";
			open(FILE, ">", "${file}.new") ||
				die "Unable to write to $file";
			print FILE $entry;
			close(FILE);
			rename "${file}.new", "$file";
		} else {
			print $entry;
		}
	}
}

Anon7 - 2022
AnonSec Team