| Server IP : 79.136.114.73 / Your IP : 3.142.92.19 Web Server : Apache/2.4.7 (Ubuntu) PHP/5.5.9-1ubuntu4.29 OpenSSL/1.0.1f System : Linux b8009 3.13.0-170-generic #220-Ubuntu SMP Thu May 9 12:40:49 UTC 2019 x86_64 User : www-data ( 33) PHP Version : 5.5.9-1ubuntu4.29 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, MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/sysv-rc/ |
Upload File : |
#! /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;
}
}
}