Use putenv() instead of clumsy do-it-yourself in execute_script.

[tinc] / debian / init.d

diff --git a/debian/init.d b/debian/init.d
index ffe51bd..109191b 100644 (file)
--- a/debian/init.d
+++ b/debian/init.d
@@ -1,70 +1,81 @@
-#! /bin/sh
+#! /usr/bin/perl -w
 #
-# skeleton     example file to build /etc/init.d/ scripts.
-#              This file should be used to construct scripts for /etc/init.d.
+# System startup script for tinc
+# $Id: init.d,v 1.14.2.3 2000/10/31 16:22:49 guus Exp $
 #
-#              Written by Miquel van Smoorenburg <miquels@cistron.nl>.
-#              Modified for Debian GNU/Linux
-#              by Ian Murdock <imurdock@gnu.ai.mit.edu>.
+# Based on Lubomir Bulej's Redhat init script.
 #
-# Version:     @(#)skeleton  1.8  03-Mar-1998  miquels@cistron.nl
+# Create a file $NETSFILE (/etc/tinc/nets.boot), and put all the names of
+# the networks in there.  These names must be valid directory names under
+# $TCONF (/etc/tinc).  Lines starting with a # will be ignored in this
+# file.
 #
-# This file was automatically customized by dh-make on Fri, 21 Apr 2000 17:07:50 +0200
 
-PATH=/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin
-DAEMON=/usr/sbin/tinc
-NAME=tinc
-DESC=tinc
+my $DAEMON="/usr/sbin/tincd";
+my $NAME="tinc";
+my $DESC="tinc daemons";
+my $TCONF="/etc/tinc";
+my $EXTRA="";
+my $NETSFILE="$TCONF/nets.boot";
+my @NETS=();
 
-test -f $DAEMON || exit 0
 
-set -e
+if (! -f $DAEMON) { exit 0; }
 
-case "$1" in
-  start)
-       echo -n "Starting $DESC: "
-       start-stop-daemon --start --quiet --pidfile /var/run/$NAME.pid \
-               --exec $DAEMON
-       echo "$NAME."
-       ;;
-  stop)
-       echo -n "Stopping $DESC: "
-       start-stop-daemon --stop --quiet --pidfile /var/run/$NAME.pid \
-               --exec $DAEMON
-       echo "$NAME."
-       ;;
-  #reload)
-       #
-       #       If the daemon can reload its config files on the fly
-       #       for example by sending it SIGHUP, do it here.
-       #
-       #       If the daemon responds to changes in its config file
-       #       directly anyway, make this a do-nothing entry.
-       #
-       # echo "Reloading $DESC configuration files."
-       # start-stop-daemon --stop --signal 1 --quiet --pidfile \
-       #       /var/run/$NAME.pid --exec $DAEMON
-  #;;
-  restart|force-reload)
-       #
-       #       If the "reload" option is implemented, move the "force-reload"
-       #       option to the "reload" entry above. If not, "force-reload" is
-       #       just the same as "restart".
-       #
-       echo -n "Restarting $DESC: "
-       start-stop-daemon --stop --quiet --pidfile \
-               /var/run/$NAME.pid --exec $DAEMON
-       sleep 1
-       start-stop-daemon --start --quiet --pidfile \
-               /var/run/$NAME.pid --exec $DAEMON
-       echo "$NAME."
-       ;;
-  *)
-       N=/etc/init.d/$NAME
-       # echo "Usage: $N {start|stop|restart|reload|force-reload}" >&2
-       echo "Usage: $N {start|stop|restart|force-reload}" >&2
-       exit 1
-       ;;
-esac
 
-exit 0
+
+sub find_nets {
+    if(! open(FH, $NETSFILE)) {
+       warn "Please create $NETSFILE.\n";
+       exit 0;
+    }
+    while (<FH>) {
+       chomp;
+       if( /^[ ]*([^ \#]+)/i ) {
+           push(@NETS, "$1");
+       }
+    }
+    if($#NETS == -1) {
+       warn "$NETSFILE doesn't contain any nets.\n";
+       exit 0;
+    }
+    
+}
+
+if(!defined($ARGV[0])) {
+    die "Usage: /etc/init.d/$NAME {start|stop|restart|force-reload}\n";
+}
+
+if($ARGV[0] eq "start") {
+    find_nets;
+    print "Starting $DESC:";
+    foreach $n (@NETS) {
+       print " $n";
+        system("$DAEMON -n $_[0] $EXTRA");
+    }
+    print ".\n";
+} elsif ($ARGV[0] eq "stop") {
+    find_nets;
+    print "Stopping $DESC:";
+    foreach $n (@NETS) {
+       print " $n";
+        system("$DAEMON -n $_[0] $EXTRA -k");
+    }
+    print ".\n";
+} elsif ($ARGV[0] eq "restart" || $ARGV[0] eq "force-reload") {
+    find_nets;
+    print "Stopping $DESC:";
+    foreach $n (@NETS) {
+       print " $n";
+        system("$DAEMON -n $_[0] $EXTRA -k");
+    }
+    print ".\n";
+    print "Starting $DESC:";
+    foreach $n (@NETS) {
+       print " $n";
+        system("$DAEMON -n $_[0] $EXTRA");
+    }
+    print ".\n";
+} else {
+    die "Usage: /etc/init.d/$NAME {start|stop|restart|force-reload}\n";
+}