ppp-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 './ppp-client-lib.pl';
   7
   8 ($ip, $pid, $sect) = &get_connect_details();
   9 $disconnected = &ppp_disconnect($ip ? 0 : 1, 1);
  10 exit($disconnected ? 0 : 1);
  11