[Initscripts-ng-commits] r223 - /trunk/www/soc2006-bootsystem/code/correct-init-order

[dvictoria-guest at users.alioth.debian.org]

Author: dvictoria-guest
Date: Tue Sep 26 07:32:32 2006
New Revision: 223

URL: http://svn.debian.org/wsvn/initscripts-ng/?sc=1&rev=223
Log:
small changes to correct-boot-order

Modified:
    trunk/www/soc2006-bootsystem/code/correct-init-order

Modified: trunk/www/soc2006-bootsystem/code/correct-init-order
URL: http://svn.debian.org/wsvn/initscripts-ng/trunk/www/soc2006-bootsystem/code/correct-init-order?rev=223&op=diff
==============================================================================
--- trunk/www/soc2006-bootsystem/code/correct-init-order (original)
+++ trunk/www/soc2006-bootsystem/code/correct-init-order Tue Sep 26 07:32:32 2006
@@ -44,6 +44,24 @@
      'rcS.d' => 'S',
      'rc2.d' => '2',
      );
+
+# Map packages to system metapackages.  These dependencies should
+# probably be more complex
+my %sysmap =
+    (
+     'network'      => '$network',
+     'networking'   => '$network',
+     'syslog'       => '$syslog',
+     'sysklogd'     => '$syslog',
+     'klogd'        => '$syslog',
+     'mountall'     => '$local_fs',
+     'mountnfs'     => '$remote_fs',
+     'hwclock'      => '$time',
+     'ntpdate'      => '$time',
+     'bind9'        => '$named',
+     'portmap'      => '$portmap',
+     );
+
 
 readinfo();  # read actual and LSB run-time dependencies and save in hash called scriptinfo.
 
@@ -76,6 +94,7 @@
 			    }
 			my %lsbinfo = %{$lsbinforef};
 
+			$scriptinfo{$scriptname}{'provides'}=$lsbinfo{'provides'};
 			$scriptinfo{$scriptname}{'required'}=$lsbinfo{'required-start'};
 			$scriptinfo{$scriptname}{'should'}=$lsbinfo{'should-start'};
 			$scriptinfo{$scriptname}{'default_rl'}=$lsbinfo{'default-start'};
@@ -83,6 +102,7 @@
 			print "runlevel = $scriptinfo{$scriptname}{'runlevel_ist'}\n";
 			print "number = $scriptinfo{$scriptname}{'num_ist'}\n";
 			print "order = $scriptinfo{$scriptname}{'order_ist'}\n";
+			print "provides = $scriptinfo{$scriptname}{'provides'}\n";
 			print "required scripts = $scriptinfo{$scriptname}{'required'}\n";
 			print "should start scripts = $scriptinfo{$scriptname}{'should'}\n";
 			print "default runlevel = $scriptinfo{$scriptname}{'default_rl'}\n";
@@ -104,7 +124,15 @@
 		print STDOUT "\n-------------------------------------------\nChecking order of $initdir/$rcdir/$script\n";
 			
 		$scriptname = $2 if ($script =~ m/S(\d{2})(\S*)/);
-		
+	
+
+
+#	    for my $provide (split(/\s+/, $lsbinfo{'provides'})) {
+#		$scriptorder{$tag}{$provide} = $bootorder;
+#		$scriptorder{$tag}{$sysmap{$provide}} = $bootorder
+#		    if (exists $sysmap{$provide});
+#	    }	
+
 		if ($scriptinfo{$scriptname}{'required'}) {
 	    		my @depends = split(/\s+/, $scriptinfo{$scriptname}{'required'});
 	    		for my $dep (@depends) {