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

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

Author: dvictoria-guest
Date: Tue Oct 10 13:43:45 2006
New Revision: 234

URL: http://svn.debian.org/wsvn/initscripts-ng/?sc=1&rev=234
Log:
metapackages added to script

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=234&op=diff
==============================================================================
--- trunk/www/soc2006-bootsystem/code/correct-init-order (original)
+++ trunk/www/soc2006-bootsystem/code/correct-init-order Tue Oct 10 13:43:45 2006
@@ -25,8 +25,8 @@
 use File::Basename;
 
 #my $initdir = "/etc/";
-my $initdir = "/home/greg/Academia/debian";
-my $overridepath = "/home/greg/Academia/debian/insserv/overrides";
+my $initdir = "/home/carlos/Academia/debian";
+my $overridepath = "/home/carlos/Academia/debian/insserv/overrides";
 
 # my $debug = 0;
 # my $web = 0;
@@ -45,6 +45,7 @@
      'rc2.d' => '2',
      );
 
+     
 # Map packages to system metapackages.  These dependencies should
 # probably be more complex
 my %sysmap =
@@ -55,12 +56,17 @@
      'sysklogd'     => '$syslog',
      'klogd'        => '$syslog',
      'mountall'     => '$local_fs',
+     'umountfs'     => '$local_fs',
+     'sendsigs'     => '$local_fs',
      'mountnfs'     => '$remote_fs',
+     'umountnfs'    => '$remote_fs',
      'hwclock'      => '$time',
      'ntpdate'      => '$time',
      'bind9'        => '$named',
      'portmap'      => '$portmap',
      );
+
+     
 
 
 readinfo();  # read actual and LSB run-time dependencies and save in hash called scriptinfo.
@@ -106,7 +112,49 @@
 			print "required scripts = $scriptinfo{$scriptname}{'required'}\n";
 			print "should start scripts = $scriptinfo{$scriptname}{'should'}\n";
 			print "default runlevel = $scriptinfo{$scriptname}{'default_rl'}\n";
-
+		
+	    		for my $provide (split(/\s+/, $scriptinfo{$scriptname}{'provides'})) {
+				
+				$scriptinfo{$provide}{'runlevel_ist'}=$scriptinfo{$scriptname}{'runlevel_ist'};
+				$scriptinfo{$provide}{'order_ist'}=$scriptinfo{$scriptname}{'order_ist'};
+				$scriptinfo{$provide}{'num_ist'}=$scriptinfo{$scriptname}{'num_ist'};
+				$scriptinfo{$provide}{'provides'}=$scriptinfo{$scriptname}{'provides'};
+				$scriptinfo{$provide}{'required'}=$scriptinfo{$scriptname}{'required'};
+				$scriptinfo{$provide}{'should'}=$scriptinfo{$scriptname}{'should'};
+				$scriptinfo{$provide}{'default_rl'}=$scriptinfo{$scriptname}{'default_rl'};
+				print "FROM PROVIDE\n";
+				print "name = $provide\n";
+				print "runlevel = $scriptinfo{$provide}{'runlevel_ist'}\n";
+				print "number = $scriptinfo{$provide}{'num_ist'}\n";
+				print "order = $scriptinfo{$provide}{'order_ist'}\n";
+				print "provides = $scriptinfo{$provide}{'provides'}\n";
+				print "required scripts = $scriptinfo{$provide}{'required'}\n";
+				print "should start scripts = $scriptinfo{$provide}{'should'}\n";
+				print "default runlevel = $scriptinfo{$provide}{'default_rl'}\n";
+			}
+			my $scriptname=$1 if ($scriptname =~ m/(\S*).sh/);
+			
+			if (exists $sysmap{$scriptname}) {
+
+				$scriptinfo{$sysmap{$scriptname}}{'runlevel_ist'}=$scriptinfo{$scriptname}{'runlevel_ist'};
+				$scriptinfo{$sysmap{$scriptname}}{'order_ist'}=$scriptinfo{$scriptname}{'order_ist'};
+				$scriptinfo{$sysmap{$scriptname}}{'num_ist'}=$scriptinfo{$scriptname}{'num_ist'};
+				$scriptinfo{$sysmap{$scriptname}}{'provides'}=$scriptinfo{$scriptname}{'provides'};
+				$scriptinfo{$sysmap{$scriptname}}{'required'}=$scriptinfo{$scriptname}{'required'};
+				$scriptinfo{$sysmap{$scriptname}}{'should'}=$scriptinfo{$scriptname}{'should'};
+				$scriptinfo{$sysmap{$scriptname}}{'default_rl'}=$scriptinfo{$scriptname}{'default_rl'};
+				print "FROM SYSMAP\n";
+				print "name = $sysmap{$scriptname}\n";
+				print "runlevel = $scriptinfo{$sysmap{$scriptname}}{'runlevel_ist'}\n";
+				print "number = $scriptinfo{$sysmap{$scriptname}}{'num_ist'}\n";
+				print "order = $scriptinfo{$sysmap{$scriptname}}{'order_ist'}\n";
+				print "provides = $scriptinfo{$sysmap{$scriptname}}{'provides'}\n";
+				print "required scripts = $scriptinfo{$sysmap{$scriptname}}{'required'}\n";
+				print "should start scripts = $scriptinfo{$sysmap{$scriptname}}{'should'}\n";
+				print "default runlevel = $scriptinfo{$sysmap{$scriptname}}{'default_rl'}\n";
+			}
+
+			
 			
 				}
 			}