summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/modem.pm6
-rw-r--r--perl-install/network/netconnect.pm8
-rw-r--r--perl-install/network/network.pm4
3 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index b466fabca..08fafc265 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -24,11 +24,11 @@ sub configure {
# $netcnx->{$netcnx->{type}}->{connection} = ($netcnx->{$netcnx->{type}}->{auth} eq 'PAP' || $netcnx->{$netcnx->{type}}->{auth} eq 'CHAP') && $intf->{ppp0}{PAPNAME};
# $modem->{device} = readlink "$prefix/dev/modem";
foreach (cat_("/usr/share/config/kppprc")) {
- /^DNS=(.*)$/ and ($modem->{dns1}, $modem->{dns2}) = split (',', $1);
+ /^DNS=(.*)$/ and ($modem->{dns1}, $modem->{dns2}) = split(',', $1);
}
my $secret = network::tools::read_secret_backend();
foreach (@$secret) {
- $modem->{passwd} = $_->{passwd} if ($_->{login} eq $modem->{login});
+ $modem->{passwd} = $_->{passwd} if $_->{login} eq $modem->{login};
}
foreach (cat_("/etc/sysconfig/network-scripts/chat-ppp0")) {
if (/.*ATDT(\d*).*/) {
@@ -65,7 +65,7 @@ sub pppConfig {
}
$::isStandalone || $in->set_help('configureNetworkISP');
$in->ask_from('', N("Dialup options"), [
-{ label => N("Connection name"), val => \$modem->{connection}},
+{ label => N("Connection name"), val => \$modem->{connection} },
{ label => N("Phone number"), val => \$modem->{phone} },
{ label => N("Login ID"), val => \$modem->{login} },
{ label => N("Password"), val => \$modem->{passwd}, hidden => 1 },
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index d9c7690f7..ea46eb9a8 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -415,19 +415,19 @@ ISDNHomePhone=$isdn->{phone_in}
ISDNLogin=$isdn->{login}
ISDNPassword=$isdn->{passwd}
ISDNConfirmPassword=$isdn->{passwd2}
-".
+" .
#PPPInterfacesList=
"PPPDevice=$modem->{device}
PPPDeviceSpeed=
PPPConnectionName=$modem->{connection}
-".
+" .
#PPPProviderPhone=$modem->{phone}
"PPPProviderDomain=$modem->{domain}
-".
+" .
#PPPProviderDNS1=$modem->{dns1}
#PPPProviderDNS2=$modem->{dns2}
"PPPLogin=$modem->{login}
-".
+" .
#PPPPassword=$modem->{passwd}
#PPPConfirmPassword=$modem->{passwd}
"PPPAuthentication=$modem->{auth}
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 07aac0b62..4278136fb 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -239,14 +239,14 @@ sub dns {
my $mask = masked_ip($ip);
my @masked = masked_ip($ip) =~ $ip_regexp;
$masked[3] = 2;
- join (".", @masked);
+ join(".", @masked);
}
sub gateway {
my ($ip) = @_;
my @masked = masked_ip($ip) =~ $ip_regexp;
$masked[3] = 1;
- join (".", @masked);
+ join(".", @masked);
}