#! /usr/bin/perl -w
#
# System startup script for tinc
-# $Id: init.d,v 1.14 2000/06/01 20:21:27 guus Exp $
+# $Id: init.d,v 1.14.2.2 2000/08/20 23:08:17 zarq Exp $
#
# Based on Lubomir Bulej's Redhat init script.
#
chomp($VPN);
} elsif ( /^[ ]*VpnMask[ =]+([^ \#]+)/i ) {
$VPNMASK=$1;
+ chomp($VPNMASK);
}
}
if(!defined($DEV)) {
if(!defined($VPNMASK)) {
$VPNMASK = $MSK;
+ $VPNMASK = join(".", unpack('C4', $VPNMASK));
}
-
- $VPNMASK = pack('C4', split(/\./, $VPNMASK));
- $VPNMASK = join(".", unpack('C4', $VPNMASK));
$ADR = join(".", unpack('C4', $ADR));
$MSK = join(".", unpack('C4', $MSK));