-#! /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";
+}