+++ /dev/null
-#!/usr/bin/perl
-@ARGV == 2 && $ARGV[0] != m/^-/
- or die
- "usage: udptunnel-vpnd SYSLOGFAC LIBDIR LOGDIR\n"
- " eg udptunnel-vpnd local2 /var/lib/udptunnel-vpn /var/log/udptunnel-vpn\n"
-
-($syslocfac,$libdir,$logdir) = @ARGV;
-
-chdir($logdir) or die "$logdir: $!\n";
-
-open A, "$libdir/active-sites" or die "$libdir/active-sites: $!\n";
-while (<A>) {
- next if m/^\#/ || !m/\S/;
- m/^(\w+)\s/ or die;
- push @restart_queue, $1;
-}
-close A;
-
-$c= open LO, "|logger -p $syslogfac.notice -t vpnd[$$]" or die $!;
-$pid{$c}= ' LOGGER NOTICE';
-
-$c= open LE, "|logger -p $syslogfac.err -t vpnd[$$]" or die $!;
-$pid{$c}= ' LOGGER NOTICE';
-
-sleep 1;
-
-print LO "starting vpnd\n" or die $!;
-
-open STDERR, ">&LE";
-open STDOUT, ">&L";
-
-for (;;) {
-