j3d1/tinc
1
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity

Ported it back to /bin/sh.

Browse source
This commit is contained in:
Ivo Timmermans 2000-12-05 09:03:41 +00:00
parent 1e38dcc3fa
commit 4610d98c04
1 changed files with 51 additions and 66 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

117
debian/init.d vendored
View file

@ -1,7 +1,7 @@
#! /usr/bin/perl -w #! /bin/sh
# #
# System startup script for tinc # System startup script for tinc
# $Id: init.d,v 1.14.2.3 2000/10/31 16:22:49 guus Exp $ # $Id: init.d,v 1.14.2.4 2000/12/05 09:03:41 zarq Exp $
# #
# Based on Lubomir Bulej's Redhat init script. # Based on Lubomir Bulej's Redhat init script.
# #
@ -11,71 +11,56 @@
# file. # file.
# #
my $DAEMON="/usr/sbin/tincd"; DAEMON="/usr/sbin/tincd"
my $NAME="tinc"; NAME="tinc"
my $DESC="tinc daemons"; DESC="tinc daemons"
my $TCONF="/etc/tinc"; TCONF="/etc/tinc"
my $EXTRA=""; EXTRA=""
my $NETSFILE="$TCONF/nets.boot"; NETSFILE="$TCONF/nets.boot"
my @NETS=(); NETS=""
test -f $DAEMON || exit 0
if (! -f $DAEMON) { exit 0; } find_nets () {
if [ ! -f $NETSFILE ] ; then
echo "Please create $NETSFILE."
exit 0
sub find_nets { fi
if(! open(FH, $NETSFILE)) { NETS="`egrep '^[ ]*[a-zA-Z0-9_]+[ ]*$' $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])) { case "$1" in
die "Usage: /etc/init.d/$NAME {start|stop|restart|force-reload}\n"; start)
} find_nets
echo -n "Starting $DESC:"
if($ARGV[0] eq "start") { for n in $NETS ; do
find_nets; echo -n " $n"
print "Starting $DESC:"; $DAEMON -n $n $EXTRA
foreach $n (@NETS) { done
print " $n"; echo "."
system("$DAEMON -n $_[0] $EXTRA"); ;;
} stop)
print ".\n"; find_nets
} elsif ($ARGV[0] eq "stop") { echo -n "Stopping $DESC:"
find_nets; for n in $NETS ; do
print "Stopping $DESC:"; echo -n " $n"
foreach $n (@NETS) { $DAEMON -n $n $EXTRA -k
print " $n"; done
system("$DAEMON -n $_[0] $EXTRA -k"); echo "."
} ;;
print ".\n"; restart|force-reload)
} elsif ($ARGV[0] eq "restart" || $ARGV[0] eq "force-reload") { find_nets
find_nets; echo -n "Restarting $DESC:"
print "Stopping $DESC:"; for n in $NETS ; do
foreach $n (@NETS) { echo -n " $n"
print " $n"; $DAEMON -n $n $EXTRA -k
system("$DAEMON -n $_[0] $EXTRA -k"); sleep 1
} $DAEMON -n $n $EXTRA
print ".\n"; done
print "Starting $DESC:"; echo "."
foreach $n (@NETS) { ;;
print " $n"; *)
system("$DAEMON -n $_[0] $EXTRA"); echo "Usage: /etc/init.d/$NAME {start|stop|restart|force-reload}"
} exit 1
print ".\n"; ;;
} else { esac
die "Usage: /etc/init.d/$NAME {start|stop|restart|force-reload}\n";
}