From e79ea7e6ae2c0d17d411c19bc441bdb89533ef21 Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 24 Aug 2001 00:21:53 +0000 Subject: export write_initscript, correct initscript. --- perl-install/network/tools.pm | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) (limited to 'perl-install/network/tools.pm') diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index ac7ab6863..b8a043204 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -6,7 +6,7 @@ use vars qw(@ISA @EXPORT); use MDK::Common::Globals "network", qw($in $prefix $disconnect_file $connect_prog $connect_file $disconnect_file); @ISA = qw(Exporter); -@EXPORT = qw(write_cnx_script write_secret_backend ask_connect_now connect_backend disconnect_backend read_providers_backend ask_info2 type2interface connected disconnected); +@EXPORT = qw(write_cnx_script write_secret_backend write_initscript ask_connect_now connect_backend disconnect_backend read_providers_backend ask_info2 type2interface connected disconnected); @EXPORT_OK = qw($in); sub write_cnx_script { @@ -123,21 +123,18 @@ sub write_initscript { # chkconfig: 2345 11 89 # description: Activates/Deactivates the internet interfaces # -# dam's damien@mandrakesoft.com +# dam's (damien@mandrakesoft.com) + +# Source function library. +. /etc/rc.d/init.d/functions case "$1" in start) - echo -n "Checking internet connections to start at boot: " } . " - $connect_file --boot_time" . q{ + action "Checking internet connections to start at boot" "} . "$connect_file --boot_time" . q{" touch /var/lock/subsys/internet - echo -n internet - echo ;; stop) - echo -n "Stopping internet connection if needed: " } . " - $disconnect_file" . q{ - echo -n internet - echo + action "Stopping internet connection if needed: " "} . "$disconnect_file" . q{" rm -f /var/lock/subsys/internet ;; restart) -- cgit v1.2.1