summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/tools.pm13
1 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 2b9a4448f..6929a7630 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -223,8 +223,7 @@ sub disconnected { }
sub write_initscript {
- output ("$prefix/etc/rc.d/init.d/internet",
- q{
+ output ("$prefix/etc/rc.d/init.d/internet", sprintf(<<'EOF', $connect_file, $connect_file, $disconnect_file, $disconnect_file));
#!/bin/bash
#
# internet Bring up/down internet connection
@@ -239,16 +238,16 @@ sub write_initscript {
case "$1" in
start)
- if [ -e } . $connect_file . q{ ]; then
- action "Checking internet connections to start at boot" "} . "$connect_file --boot_time" . q{"
+ if [ -e %s ]; then
+ action "Checking internet connections to start at boot" "%s --boot_time"
else
action "No connection to start" "true"
fi
touch /var/lock/subsys/internet
;;
stop)
- if [ -e } . $disconnect_file . q{ ]; then
- action "Stopping internet connection if needed: " "} . "$disconnect_file --boot_time" . q{"
+ if [ -e %s ]; then
+ action "Stopping internet connection if needed: " "%s --boot_time"
else
action "No connection to stop" "true"
fi
@@ -267,7 +266,7 @@ sub write_initscript {
exit 1
esac
exit 0
- });
+EOF
chmod 0755, "$prefix/etc/rc.d/init.d/internet";
$::isStandalone ? system("/sbin/chkconfig --add internet") : do {
symlinkf ("../init.d/internet", "$prefix/etc/rc.d/rc$_") foreach