[Initscripts-ng-commits] r392 - in /trunk/src/insserv/debian: changelog check-initd-order

[pere at users.alioth.debian.org]

Author: pere
Date: Tue Jan  1 11:37:29 2008
New Revision: 392

URL: http://svn.debian.org/wsvn/initscripts-ng/?sc=1&rev=392
Log:
  * Extended to check reverse dependencies too.

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

Modified: trunk/src/insserv/debian/changelog
URL: http://svn.debian.org/wsvn/initscripts-ng/trunk/src/insserv/debian/changelog?rev=392&op=diff
==============================================================================
--- trunk/src/insserv/debian/changelog (original)
+++ trunk/src/insserv/debian/changelog Tue Jan  1 11:37:29 2008
@@ -14,6 +14,7 @@
     packages with executable scripts in /etc/init.d/.
   * Extended check-initd-order to check optional start dependencies,
     and implement check of the shutdown sequence.
+  * Extended to check reverse dependencies too.
 
  -- Petter Reinholdtsen <pere at debian.org>  Mon, 31 Dec 2007 19:26:00 +0100
 

Modified: trunk/src/insserv/debian/check-initd-order
URL: http://svn.debian.org/wsvn/initscripts-ng/trunk/src/insserv/debian/check-initd-order?rev=392&op=diff
==============================================================================
--- trunk/src/insserv/debian/check-initd-order (original)
+++ trunk/src/insserv/debian/check-initd-order Tue Jan  1 11:37:29 2008
@@ -188,8 +188,9 @@
                     } else {
                         $deporder = exists $provideslist{$dep} ? $provideslist{$dep} : "?";
                     }
-                    print "Incorrect order " .
-                        "$dep\@$deporder > $name\@$order\n";
+                    printf("Incorrect order %s@%s %s %s%s\n",
+                           $dep, $deporder, 'S' eq $tag ? '>' : '<',
+                           $name, $order);
                 }
             }
         }
@@ -268,10 +269,12 @@
         if ('S' eq $tag) {
             check_deps($lsbinforef, $tag, $order, $bootorder, 'required-start', 1);
             check_deps($lsbinforef, $tag, $order, $bootorder, 'should-start', 0);
+            check_deps($lsbinforef, 'K', $order, $bootorder, 'start-before', 0);
         }
         if ('K' eq $tag) {
             check_deps($lsbinforef, $tag, $order, $bootorder, 'required-stop', 1);
             check_deps($lsbinforef, $tag, $order, $bootorder, 'should-stop', 0);
+            check_deps($lsbinforef, 'S', $order, $bootorder, 'stop-after', 0);
         }
     }
 }