[Initscripts-ng-commits] r174 - /trunk/src/insserv/debian/check-initd-order

[pere at users.alioth.debian.org]

Author: pere
Date: Fri Sep  8 15:48:45 2006
New Revision: 174

URL: http://svn.debian.org/wsvn/initscripts-ng/?sc=1&rev=174
Log:
Add support for graphic stop scripts.

Modified:
    trunk/src/insserv/debian/check-initd-order

Modified: trunk/src/insserv/debian/check-initd-order
URL: http://svn.debian.org/wsvn/initscripts-ng/trunk/src/insserv/debian/check-initd-order?rev=174&op=diff
==============================================================================
--- trunk/src/insserv/debian/check-initd-order (original)
+++ trunk/src/insserv/debian/check-initd-order Fri Sep  8 15:48:45 2006
@@ -44,7 +44,9 @@
      'sysklogd'     => '$syslog',
      'klogd'        => '$syslog',
      'mountall'     => '$local_fs',
+     'umountfs'     => '$local_fs',
      'mountnfs'     => '$remote_fs',
+     'umountnfs'    => '$remote_fs',
      'hwclock'      => '$time',
      'ntpdate'      => '$time',
      'bind9'        => '$named',
@@ -54,7 +56,7 @@
 my %scriptorder;
 my %opts;
 
-getopts('dgo', \%opts);
+getopts('dgok', \%opts);
 
 $debug = $opts{'d'};
 my $useoverrides = $opts{'o'} ? 0 : 1;
@@ -86,14 +88,15 @@
 	print STDERR "warning: Unable to properly handle multiple provides: @provides\n";
     }
 
-    if (exists $lsbinfo{'required-start'} && $lsbinfo{'required-start'}) {
-	my @depends = split(/\s+/, $lsbinfo{'required-start'});
+    my $key = $opts{'k'} ? 'stop' : 'start';
+    if (exists $lsbinfo{"required-$key"} && $lsbinfo{"required-$key"}) {
+	my @depends = split(/\s+/, $lsbinfo{"required-$key"});
 	for my $pkg (@depends) {
 	    print "\"$pkg\" -> \"$provides[0]\"[color=blue];\n";
 	}
     }
-    if (exists $lsbinfo{'should-start'} && $lsbinfo{'should-start'}) {
-	my @depends = split(/\s+/, $lsbinfo{'should-start'});
+    if (exists $lsbinfo{"should-$key"} && $lsbinfo{"should-$key"}) {
+	my @depends = split(/\s+/, $lsbinfo{"should-$key"});
 	for my $pkg (@depends) {
 	    print "\"$pkg\" -> \"$provides[0]\"[color=springgreen] ;\n";
 	}
@@ -107,9 +110,11 @@
 digraph packages {
 concentrate=true;
 EOF
-    for my $rcdir ($rcmap{S}, $rcmap{2}) {
+    my @dirs = $opts{'k'} ? $rcmap{6} : $rcmap{S}, $rcmap{2};
+    for my $rcdir (@dirs) {
 	chdir "$rcbase/$rcdir/.";
-	for my $script (<[SK]*>) {
+	my @scripts = $opts{'k'} ? <K*> : <S*>;
+	for my $script (@scripts) {
 	    my $lsbinforef = load_lsb_tags("$rcbase/$rcdir/$script",
 					   $useoverrides);
 	    
@@ -128,9 +133,11 @@
 
 sub check_bootorder {
     my $bootorder = 0;
-    for my $rcdir ($rcmap{S}, $rcmap{2}) {
+    my @dirs = $opts{'k'} ? $rcmap{6} : $rcmap{S}, $rcmap{2};
+    for my $rcdir (@dirs) {
 	chdir "$rcbase/$rcdir/.";
-	for my $script (<[SK]*>) {
+	my @scripts = $opts{'k'} ? <K*> : <S*>;
+	for my $script (@scripts) {
 	    $bootorder++;
 	    my ($tag, $order, $name) = $script =~ m/^(.)(\d{2})(.+)$/;