diff options
| author | damien <damien@mandriva.com> | 2001-08-24 00:21:53 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-08-24 00:21:53 +0000 |
| commit | e79ea7e6ae2c0d17d411c19bc441bdb89533ef21 (patch) | |
| tree | 4dcfe5f8eb1d4bf2541d21e1d3b5c403669952ac | |
| parent | 98e5b751926944de8b51f88df086d5a49f2c88df (diff) | |
| download | drakx-backup-do-not-use-e79ea7e6ae2c0d17d411c19bc441bdb89533ef21.tar drakx-backup-do-not-use-e79ea7e6ae2c0d17d411c19bc441bdb89533ef21.tar.gz drakx-backup-do-not-use-e79ea7e6ae2c0d17d411c19bc441bdb89533ef21.tar.bz2 drakx-backup-do-not-use-e79ea7e6ae2c0d17d411c19bc441bdb89533ef21.tar.xz drakx-backup-do-not-use-e79ea7e6ae2c0d17d411c19bc441bdb89533ef21.zip | |
export write_initscript, correct initscript.
| -rw-r--r-- | perl-install/network/tools.pm | 17 |
1 files changed, 7 insertions, 10 deletions
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) |