mdw@git.distorted.org.uk Git - userv-utils/blob - ipif/udptunnel-vpnd

   1 #!/usr/bin/perl
   2 @ARGV == 2 && $ARGV[0] != m/^-/
   3     or die
   4     "usage: udptunnel-vpnd SYSLOGFAC LIBDIR LOGDIR\n"
   5     " eg udptunnel-vpnd local2 /var/lib/udptunnel-vpn /var/log/udptunnel-vpn\n"
   6
   7 ($syslocfac,$libdir,$logdir) = @ARGV;
   8
   9 chdir($logdir) or die "$logdir: $!\n";
  10
  11 open A, "$libdir/active-sites" or die "$libdir/active-sites: $!\n";
  12 while (<A>) {
  13     next if m/^\#/ || !m/\S/;
  14     m/^(\w+)\s/ or die;
  15     push @restart_queue, $1;
  16 }
  17 close A;
  18
  19 $c= open LO, "|logger -p $syslogfac.notice -t vpnd[$$]" or die $!;
  20 $pid{$c}= ' LOGGER NOTICE';
  21
  22 $c= open LE, "|logger -p $syslogfac.err -t vpnd[$$]" or die $!;
  23 $pid{$c}= ' LOGGER NOTICE';
  24
  25 sleep 1;
  26
  27 print LO "starting vpnd\n" or die $!;
  28
  29 open STDERR, ">&LE";
  30 open STDOUT, ">&L";
  31
  32 for (;;) {
  33