summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 19:11:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 19:11:59 +0000
commitbfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (patch)
tree42b0132d629d68fffde6b0e828126c18c0c3d1ed /perl-install/network/netconnect.pm
parent195f44c2da47b9f0df0461b593935d89619a5a0e (diff)
downloaddrakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar
drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.gz
drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.bz2
drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.xz
drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.zip
add or remove spaces where need to please perl_checker
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm20
1 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 592092a06..a472f0a2c 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -34,13 +34,13 @@ sub intro {
}
my @l = (
!$connected && -e $connect_file ? { description => N("Connect"),
- c => 1} : (),
+ c => 1 } : (),
$connected && -e $disconnect_file ? { description => N("Disconnect"),
- c => 2} : (),
+ c => 2 } : (),
{ description => N("Configure the connection"),
- c => 3},
+ c => 3 },
{ description => N("Cancel"),
- c => 4},
+ c => 4 },
);
my $e = $in->ask_from_listf(N("Internet connection & configuration"),
translate($text),
@@ -184,7 +184,7 @@ If you don't want to use the auto detection, deselect the checkbox.
my $set_default;
my %conf;
$conf{$_} = $netc->{autodetect}{$_} ? 1 : 0 foreach 'modem', 'winmodem', 'adsl', 'cable', 'lan';
- $conf{isdn} = $netc->{autodetect}{isdn}{description} ? 1: 0;
+ $conf{isdn} = $netc->{autodetect}{isdn}{description} ? 1 : 0;
# my @l = (
# [N("Normal modem connection"), $netc->{autodetect}{modem}, N_("detected on port %s"), \$conf{modem}],
# [N("ISDN connection"), $netc->{autodetect}{isdn}{description}, N_("detected %s"), \$conf{isdn}],
@@ -229,14 +229,14 @@ If you don't want to use the auto detection, deselect the checkbox.
} elsif ($nb > 1) {
$in->ask_from(N("Network Configuration Wizard"),
N("You have configured multiple ways to connect to the Internet.\nChoose the one you want to use.\n\n" . if_(!$::isStandalone, "You may want to configure some profiles after the installation, in the Mandrake Control Center")),
- [ { label => N("Internet connection"), val => \$netc->{internet_cnx_choice}, list => [ keys %{$netc->{internet_cnx}} ]} ]
+ [ { label => N("Internet connection"), val => \$netc->{internet_cnx_choice}, list => [ keys %{$netc->{internet_cnx}} ] } ]
) or goto step_2;
} elsif ($nb == 1) {
$netc->{internet_cnx_choice} = (keys %{$netc->{internet_cnx}})[0];
}
member($netc->{internet_cnx_choice}, ('adsl', 'isdn')) and
$netc->{at_boot} = $in->ask_yesorno(N("Network Configuration Wizard"), N("Do you want to start the connection at boot?"));
- if ($netc->{internet_cnx_choice} ) {
+ if ($netc->{internet_cnx_choice}) {
write_cnx_script($netc);
$netcnx->{type} = $netc->{internet_cnx}{$netc->{internet_cnx_choice}}{type};
} else {
@@ -268,8 +268,8 @@ If you don't want to use the auto detection, deselect the checkbox.
The configuration will now be applied to your system.
") . if_($::isStandalone && $in->isa('interactive_gtk'),
-N("After this is done, we recommend that you restart your X environment to avoid any hostname-related problems."))
- : N("Problems occured during configuration.
+N("After this is done, we recommend that you restart your X environment to avoid any hostname-related problems.")) :
+ N("Problems occured during configuration.
Test your connection via net_monitor or mcc. If your connection doesn't work, you might want to relaunch the configuration.");
if ($::isWizard) {
$::Wizard_no_previous=1;
@@ -409,7 +409,7 @@ ISDNCardVendor=$isdn->{vendor}
ISDNId=$isdn->{id}
ISDNProvider=$netc->{DOMAINNAME2}
ISDNProviderPhone=$isdn->{phone_out}
-ISDNProviderDomain=" . do { $netc->{DOMAINNAME2} =~ /\.(.*)/; $1} . "
+ISDNProviderDomain=" . do { $netc->{DOMAINNAME2} =~ /\.(.*)/; $1 } . "
ISDNProviderDNS1=$netc->{dnsServer2}
ISDNProviderDNS2=$netc->{dnsServer3}
ISDNDialing=$isdn->{dialing_mode}