e-smith-base/sme8/e-smith-base-5.2.0-no-nic.patch

diff -up e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm.no-nic e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
--- e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm.no-nic  2010-06-05 15:18:46.000000000 +0200
+++ e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2010-06-06 08:31:25.000000000 +0200
@@ -79,6 +79,18 @@ sub ethernetSelect($$)
         $existing_hwaddr = $db->get_prop("InternalInterface", "HWAddress");
     }
 
+    if ( @adapters == 0 ) {
+
+        my ($rc, $choice) = $console->message_page
+               (
+                title   => gettext("No network interfaces found"),
+                text    => gettext("The installer can't continue because no network interfaces are installed or recognised. Please install at least one network interface."),
+               );
+
+        return 'NONIC';
+
+    }
+
     foreach my $adapter ( @adapters )
     {
         my ($parameter, $driver, $hwaddr, $chipset) = split (/\s+/, $adapter, 4);
@@ -268,6 +280,8 @@ ETHERNET_LOCAL:
 
     goto SYSTEM_NAME        if ($selectMode eq 'CANCEL');
 
+    goto QUIT1              if ($selectMode eq 'NONIC');
+
     if ($selectMode eq 'NOLOAD')
     {
         failed_to_load($newDriver);
1	snetram	1.1	diff -up e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm.no-nic e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
2			--- e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm.no-nic 2010-06-05 15:18:46.000000000 +0200
3			+++ e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2010-06-06 08:31:25.000000000 +0200
4			@@ -79,6 +79,18 @@ sub ethernetSelect($$)
5			$existing_hwaddr = $db->get_prop("InternalInterface", "HWAddress");
6			}
7
8			+ if ( @adapters == 0 ) {
9			+
10			+ my ($rc, $choice) = $console->message_page
11			+ (
12			+ title => gettext("No network interfaces found"),
13			+ text => gettext("The installer can't continue because no network interfaces are installed or recognised. Please install at least one network interface."),
14			+ );
15			+
16			+ return 'NONIC';
17			+
18			+ }
19			+
20			foreach my $adapter ( @adapters )
21			{
22			my ($parameter, $driver, $hwaddr, $chipset) = split (/\s+/, $adapter, 4);
23			@@ -268,6 +280,8 @@ ETHERNET_LOCAL:
24
25			goto SYSTEM_NAME if ($selectMode eq 'CANCEL');
26
27			+ goto QUIT1 if ($selectMode eq 'NONIC');
28			+
29			if ($selectMode eq 'NOLOAD')
30			{
31			failed_to_load($newDriver);