pptp-client/disc.cgi

   1 #!/usr/local/bin/perl
   2 # disc.cgi
   3 # Shut down a PPTP tunnel
   4
   5 require './pptp-client-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'disc_err'});
   8 @conns = &list_connected();
   9 ($conn) = grep { $_->[0] eq $in{'tunnel'} } @conns;
  10 $conn || &error($text{'disc_egone'});
  11 &kill_logged('HUP', $conn->[1]) || &error($text{'disc_ekill'});
  12 sleep(3);
  13 @conns = &list_connected();
  14 ($conn) = grep { $_->[0] eq $in{'tunnel'} } @conns;
  15 if ($conn) {
  16         # Not dead .. kill harder
  17         &kill_logged('KILL', $conn->[1]);
  18         }
  19 &webmin_log("disc", undef, $in{'tunnel'});
  20 &redirect("");
  21
  22