summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakgw
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-18 19:16:00 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-18 19:16:00 +0000
commit2e10c45afb11b0c0bbb89bd8de27c15b0fed08d8 (patch)
tree19ffb84a05ab17e98a8c4ffd604de15ac01d4772 /perl-install/standalone/drakgw
parent54b474d666cee8f1e0e9e0eb34ef1219d9cf91a1 (diff)
downloaddrakx-backup-do-not-use-2e10c45afb11b0c0bbb89bd8de27c15b0fed08d8.tar
drakx-backup-do-not-use-2e10c45afb11b0c0bbb89bd8de27c15b0fed08d8.tar.gz
drakx-backup-do-not-use-2e10c45afb11b0c0bbb89bd8de27c15b0fed08d8.tar.bz2
drakx-backup-do-not-use-2e10c45afb11b0c0bbb89bd8de27c15b0fed08d8.tar.xz
drakx-backup-do-not-use-2e10c45afb11b0c0bbb89bd8de27c15b0fed08d8.zip
indentation/spaces cleanups
Diffstat (limited to 'perl-install/standalone/drakgw')
-rwxr-xr-xperl-install/standalone/drakgw28
1 files changed, 14 insertions, 14 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 34d8a5b99..11c982fd5 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -213,16 +213,16 @@ my @all_cards = network::ethernet::get_eth_cards($modules_conf);
my %net_devices = network::ethernet::get_eth_cards_names(@all_cards);
put_in_hash(\%net_devices, { 'ppp+' => 'ppp+', 'ippp+' => 'ippp+' });
- $in->ask_from('',
- N("Please enter the name of the interface connected to the internet.
+$in->ask_from('',
+ N("Please enter the name of the interface connected to the internet.
Examples:
ppp+ for modem or DSL connections,
eth0, or eth1 for cable connection,
ippp+ for a isdn connection.
"),
- [ { label => N("Net Device"), val => \$card_netconnect, list => [ sort keys %net_devices ], format => sub { $net_devices{$_[0]} || $_[0] }, not_edit => 0 } ])
- or goto step_ask_confirm;
+ [ { label => N("Net Device"), val => \$card_netconnect, list => [ sort keys %net_devices ], format => sub { $net_devices{$_[0]} || $_[0] }, not_edit => 0 } ])
+ or goto step_ask_confirm;
my @cards = grep {
log::l("[drakgw] Have network card: $_");
@@ -285,8 +285,8 @@ my $reconf_dhcp_server_intf = 1;
if (any { /$device/ } @configured_devices) {
step_warning_already_conf:
my $auto = N("Yes");
- my $_dhcp_details = N("Yes");
-
+ my $_dhcp_details = N("Yes");
+
$in->ask_from(N("Network interface already configured"),
N("Warning, the network adapter (%s) is already configured.
@@ -302,7 +302,7 @@ Network: %s
IP address: %s
IP attribution: %s
Driver: %s", $device, $conf->{NETWORK}, $conf->{IPADDR}, $conf->{BOOTPROTO}, $aliased_devices{$device} || '(unknown)')) } } ]) or goto step_interface_choice;
-
+
if ($auto ne N("Yes")) {
$reconf_dhcp_server_intf = 0;
$server_ip = $conf->{IPADDR} ||= network::network::read_dhcpd_conf()->{option_routers}[0] ||= "192.168.1.1";
@@ -316,7 +316,7 @@ The default DNS entry is the Caching Nameserver configured on the firewall. You
Otherwise, I can reconfigure your interface and (re)configure a DHCP server for you.
"),
- [ { label => N("Local Network adress"), val => \$lan_address, type => 'entry' },
+ [ { label => N("Local Network adress"), val => \$lan_address, type => 'entry' },
{ label => N("Netmask"), val => \$netmask, type => 'entry' } ])
or goto step_warning_already_conf;
$in->ask_from('',
@@ -335,7 +335,7 @@ If you do not know the meaning of an option, simply leave it as it is."),
or goto step_warning_already_conf;
}
}
-
+
if (!($lan_address =~ s/\.0$//)) {
$in->ask_warn('',
N("The Local Network did not finish with `.0', bailing out."));
@@ -358,7 +358,7 @@ network::shorewall::check_iptables($in) or goto step_detectsetup;
#- **********************************
#- * 2nd step: configure
-$wait_configuring = $in->wait_message(N("Configuring..."),
+$wait_configuring = $in->wait_message(N("Configuring..."),
N("Configuring scripts, installing software, starting servers..."));
@@ -560,17 +560,17 @@ if (-f $cups_conf && !$::testing) {
$root_location_start = @cups_conf_content;
@root_location = ("<Location />\n", "</Location>\n");
}
-
+
# Delete all former "Order", "Allow", and "Deny" lines from the root location block
s/^\s*Order.*//, s/^\s*Allow.*//, s/^\s*Deny.*// foreach @root_location;
-
+
# Add the new "Order" and "Deny" lines, add an "Allow" line for the local network
splice(@root_location, -1, 0, $_) foreach "Order Deny,Allow\n", "Deny From All\n", "Allow From 127.0.0.1\n",
"Allow From $lan_address.*\n";
-
+
# Put the changed root location block back into the file
splice(@cups_conf_content, $root_location_start, 0, @root_location);
-
+
output $cups_conf, @cups_conf_content;
}