e-smith-base%2Bldap/sme7/e-smith-base-4.18.1-ethernetlist.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
--- e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm        2008-03-26 10:49:00.000000000 -0600
+++ mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm      2008-04-23 10:00:35.000000000 -0600
@@ -44,7 +44,6 @@
 {
     my ($ifName, $confEntry) = @_;
     my $item = 0;
-    my $adapterList;
 
     if (scalar @adapters == 1)
     {
@@ -72,11 +71,6 @@
        }
     }
 
-    if ( scalar @adapters == 0 )
-    {
-        $adapterList = "    (none)";
-    }
-
     my %tag2driver;
     my @args;
     my $default;
@@ -89,9 +83,6 @@
         my ($parameter, $driver, $chipset) = split (/\s+/, $adapter, 3);
         chomp($chipset);
 
-       $adapterList .= "    " .
-                substr("${chipset} (driver ${driver})", 0, 72) . "\n";
-
        my $tag = ++$item . ".";
 
        $tag2driver{$tag} = $driver;
@@ -125,12 +116,7 @@
              "%s network ethernet adapter. The server can attempt to do " .
              "this automatically, or you can do it manually - either by " .
              "specifying the model of your ethernet adapter or by " .
-             "directly choosing a driver."),
-                 $ifName) .
-         "\n\n" .
-         gettext("The server has detected these ethernet adapters:") .
-         "\n\n" .
-         $adapterList,
+             "directly choosing a driver.\n"), $ifName),
          argsref => \@args,
         );
 
1	bytegw	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
2			--- e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2008-03-26 10:49:00.000000000 -0600
3			+++ mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2008-04-23 10:00:35.000000000 -0600
4			@@ -44,7 +44,6 @@
5			{
6			my ($ifName, $confEntry) = @_;
7			my $item = 0;
8			- my $adapterList;
9
10			if (scalar @adapters == 1)
11			{
12			@@ -72,11 +71,6 @@
13			}
14			}
15
16			- if ( scalar @adapters == 0 )
17			- {
18			- $adapterList = " (none)";
19			- }
20			-
21			my %tag2driver;
22			my @args;
23			my $default;
24			@@ -89,9 +83,6 @@
25			my ($parameter, $driver, $chipset) = split (/\s+/, $adapter, 3);
26			chomp($chipset);
27
28			- $adapterList .= " " .
29			- substr("${chipset} (driver ${driver})", 0, 72) . "\n";
30			-
31			my $tag = ++$item . ".";
32
33			$tag2driver{$tag} = $driver;
34			@@ -125,12 +116,7 @@
35			"%s network ethernet adapter. The server can attempt to do " .
36			"this automatically, or you can do it manually - either by " .
37			"specifying the model of your ethernet adapter or by " .
38			- "directly choosing a driver."),
39			- $ifName) .
40			- "\n\n" .
41			- gettext("The server has detected these ethernet adapters:") .
42			- "\n\n" .
43			- $adapterList,
44			+ "directly choosing a driver.\n"), $ifName),
45			argsref => \@args,
46			);
47