1 |
wellsi |
1.1 |
diff -ruN e-smith-base-5.4.0.old/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm e-smith-base-5.4.0/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm |
2 |
|
|
--- e-smith-base-5.4.0.old/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm 2013-03-16 21:39:42.000000000 -0700 |
3 |
|
|
+++ e-smith-base-5.4.0/root/usr/share/perl5/vendor_perl/esmith/console/configure.pm 2013-03-16 21:41:59.000000000 -0700 |
4 |
|
|
@@ -1564,9 +1564,11 @@ |
5 |
|
|
{ |
6 |
|
|
my (undef, $driver1, undef, undef) = split (/\s+/, $adapters[0], 4); |
7 |
|
|
my (undef, $driver2, undef, undef) = split (/\s+/, $adapters[1], 4); |
8 |
|
|
+ my $val = $db->get_prop('InternalInterface', 'NICBonding'); |
9 |
|
|
+ if (!defined $val){$db->set_prop('InternalInterface', 'NICBonding', 'disabled');} |
10 |
|
|
+ $val ||= 'disabled'; |
11 |
|
|
if($driver1 eq $driver2) |
12 |
|
|
- { |
13 |
|
|
- my $val = $db->get_prop('InternalInterface', 'NICBonding') || 'disabled'; |
14 |
|
|
+ { |
15 |
|
|
my @args = ( |
16 |
|
|
gettext("enabled"), gettext("Enable NIC bonding"), |
17 |
|
|
gettext("disabled"), gettext("Disable NIC bonding") |
18 |
|
|
@@ -1575,7 +1577,7 @@ |
19 |
|
|
($rc, $choice) = $console->menu_page |
20 |
|
|
( |
21 |
|
|
title => gettext("NIC Bonding"), |
22 |
|
|
- default => gettext($val), |
23 |
|
|
+ default => gettext($val), |
24 |
|
|
text => |
25 |
|
|
gettext("You have more than one network adapter. Would you like to bond them together into a single interface? This can provide greater throughput and/or failure resiliency, depending on your adapters and network configuration."), |
26 |
|
|
argsref => \@args |