File insserv.pl of Package insserv-compat

Overview Repositories Revisions Requests Users Attributes Meta

File insserv.pl of Package insserv-compat (Revision 8be7881252d8191e459f4b2688b01353)

Currently displaying revision 8be7881252d8191e459f4b2688b01353 , Show latest

#!/usr/bin/perl -w
# Copyright (c) 2012,2013 SUSE Linux Products GmbH
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.

=head1 insserv

insserv - Enable an installed system init script

=head1 SYNOPSIS

insserv [[-r] <script>]

=head1 OPTIONS

=over 4

=item B<--remove, -r>

Remove the listed scripts from all runlevels

=back

=head1 DESCRIPTION

This version of insserv is just a stub for compatibility.

=cut

use strict;
use Getopt::Long;
Getopt::Long::Configure("no_ignore_case");

my $init_d = "/etc/init.d";

my %options;

sub parse($)
{
	my $name = shift;
	my $fh;
	unless (open($fh, '<', "$init_d/$name")) {
		warn "can't open $name: $!";
		return undef;
	}
	my $r = {};
	my $header = 0;
	while(<$fh>) {
		if ($header == 0 && /^### BEGIN INIT INFO/) {
			$header = 1;
			next;
		}
		next unless $header;
		last if ($header == 1 && /^### END INIT INFO/);
		unless (s/^#\s//) {
			warn "$name: parse error";
			$r = undef;
			last;
		}
		if (/^(Default-(?:Start|Stop)):\s*(.*)/i) {
			$r->{lc $1} = $2;
		}
	}
	close $fh;
	return $r;
}

sub do_unlink($)
{
	my $file = shift;
	print "rm $file\n" if $options{'verbose'};
	unlink($file);
}

sub do_symlink($$)
{
	my ($old, $new) = @_;
	print "ln -s $old $new\n" if $options{'verbose'};
	return 1 if ($options{'dryrun'});
	symlink($old, $new);
}

sub getlinks(;$)
{
	my $name = shift;
	my $links;
	for my $d (qw/rc0 rc1 rc2 rc3 rc4 rc5 rc6 rcS boot/) {
		my $dir = "$init_d/$d.d";
		opendir(my $dh, $dir) || next;
		for my $n (readdir $dh) {
			next unless $n =~ /^[KS]\d\d/;
			my $fn = "$dir/$n";
			next unless -l $fn;
			if ($name) {
				my $n = readlink $fn;
				$n =~ s/.*\///;
				next unless ($n eq $name);
			}
			push @$links, $fn;
		}
		closedir $dh;
	}
	return $links;
}

sub cleanup()
{
	for my $link (@{getlinks()||[]}) {
		next if -e $link;
		do_unlink($link);
	}
}

sub disable($)
{
	my $name = shift;
	for my $link (@{getlinks($name)||[]}) {
		do_unlink($link);
	}
}

sub createlinks($$$)
{
	my $type = shift;
	my $name = shift;
	my @lvl = split(' ', shift);
	my $num = '50';
	for my $l (@lvl) {
		my $d = "rc$l.d";
		$d = 'boot.d' if ($l eq 'B');
		do_symlink("../$name", "$init_d/$d/$type$num$name");
	}
}

sub enable($)
{
	my $name = shift;
	$name =~ s/,(?:start|stop)=.*//;
	my $links = getlinks($name);
	return 0 if $links; # already enabled
	my $h = parse($name);
	return unless defined $h;
	createlinks('S', $name, $h->{'default-start'} || '2 3 5');
	# default stop is actually ignored in SUSE ... o_O
	createlinks('K', $name, $h->{'default-start'} || '2 3 5');
}

sub usage($) {
	my $r = shift;
	eval "use Pod::Usage; pod2usage($r);";
	if ($@) {
		die "Pod::Usage missing\n";
	}
}

if ($0 =~ /install_initd$/) {
} elsif ($0 =~ /remove_initd$/) {
	$options{'remove'} = 1;
} else {
	GetOptions(
		\%options,
		"verbose|v",
		"config|c=s", # ignored
		"override|o=s", # ignored
		"path|p=s",
		"dryrun|n",
		"remove|r",
		"default|d", # ignored
		"force|f", # meaningless
		"upstart-job|u=s", # ignored
		"help|h",
	) or usage(1);
}

if (@ARGV) {
	if (-d $ARGV[0]) {
		$init_d = shift @ARGV;
		usage(1) if @ARGV;
		cleanup();
	}
}

usage(1) if ($options{'remove'} && !@ARGV);
usage(0) if ($options{'help'});

$init_d = $options{'path'} if $options{'path'};

if (@ARGV) {
	for my $name (@ARGV) {
		if ($name =~ s/^(\/.*)\/(.+)/$2/) {
			$init_d = $1 if $1;
		}
		if ($options{'remove'}) {
			disable($name);
		} else {
			enable($name);
		}
	}
} else {
	cleanup();
}

Places

File insserv.pl of Package insserv-compat (Revision 8be7881252d8191e459f4b2688b01353)

Places