pptp-client/stop.pl

   1 #!/usr/local/bin/perl
   2 # stop.pl
   3 # Shut down a connection by killing it's PID
   4
   5 $no_acl_check++;
   6 require './pptp-client-lib.pl';
   7
   8 @conns = &list_connected();
   9 ($conn) = grep { $_->[0] eq $config{'boot'} } @conns;
  10 $conn || die $text{'disc_egone'};
  11 &kill_logged('HUP', $conn->[1]) || die $text{'disc_ekill'};
  12 print &text('disc_done', $config{'boot'}),"\n";
  13 exit(0);