summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakgw35
1 files changed, 17 insertions, 18 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index e3e42973c..f77ea5183 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -101,11 +101,11 @@ if (-f $drakgw_setup)
if (grep(/enabled/, @drakgw_setup_content))
{
my $r = $in->ask_from_list(_("Internet Connection Sharing currently enabled"),
- _("The setup of Internet connection sharing has already been done.\n".
- "It's currently enabled.\n\n".
- "What would you like to do?"),
- [ "disable", "reconfigure", "dismiss" ]);
- if ($r eq "disable")
+ _("The setup of Internet connection sharing has already been done.
+It's currently enabled.\n
+What would you like to do?"),
+ [ _("disable"), _("reconfigure"), _("dismiss") ]);
+ if ($r eq _("disable"))
{
stop_daemons();
-f "$dhcpd_conf.drakgwdisable" and (unlink("$dhcpd_conf.drakgwdisable") or die "Could not unlink $dhcpd_conf.drakgwdisable");
@@ -115,16 +115,16 @@ if (-f $drakgw_setup)
log::l("[drakgw] Disabled\n");
$in->exit(0);
}
- ($r eq "dismiss") and $in->exit(0);
+ ($r eq _("dismiss")) and $in->exit(0);
}
elsif (grep(/disabled/, @drakgw_setup_content))
{
my $r = $in->ask_from_list(_("Internet Connection Sharing currently disabled"),
- _("The setup of Internet connection sharing has already been done.\n".
- "It's currently disabled.\n\n".
- "What would you like to do?"),
- [ "enable", "reconfigure", "dismiss" ]);
- if ($r eq "enable")
+ _("The setup of Internet connection sharing has already been done.
+It's currently disabled.\n
+What would you like to do?"),
+ [ _("enable"), _("reconfigure"), _("dismiss") ]);
+ if ($r eq _("enable"))
{
-f $dhcpd_conf and rename($dhcpd_conf, "$dhcpd_conf.old");
rename("$dhcpd_conf.drakgwdisable", $dhcpd_conf) or die "Could not find configuration. Please reconfigure.";
@@ -134,7 +134,7 @@ if (-f $drakgw_setup)
log::l("[drakgw] Enabled\n");
$in->exit(0);
}
- ($r eq "dismiss") and $in->exit(0);
+ ($r eq _("dismiss")) and $in->exit(0);
}
else
{
@@ -149,9 +149,9 @@ if (-f $drakgw_setup)
#- * 1st step: detect/setup
$::direct or $in->ask_okcancel(_("Internet Connection Sharing"),
- _("Your computer can be configured to share its Internet connection.\n\n".
- "Note: you need a dedicated Network Adapter to set up a Local Area Network (LAN).\n\n".
- "Would you like to setup the Internet Connection Sharing?"), 1) or $in->exit(0);
+ _("Your computer can be configured to share its Internet connection.\n
+Note: you need a dedicated Network Adapter to set up a Local Area Network (LAN).\n
+Would you like to setup the Internet Connection Sharing?"), 1) or $in->exit(0);
#my @pci_ethernet_cards;
#require pci_probing::main;
@@ -510,9 +510,8 @@ start_daemons();
undef $wait_configuring;
$in->ask_warn(_("Congratulations!"),
- _("Everything has been configured.\n".
- "You may now share Internet connection with other computers on your Local Area Network, ".
- "using automatic network configuration (DHCP)."));
+ _("Everything has been configured.
+You may now share Internet connection with other computers on your Local Area Network, using automatic network configuration (DHCP)."));
log::l("[drakgw] Installation complete, exiting\n");