JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr#!/usr/bin/perl # disc.cgi # Disconnect a VPN connection require './pptp-server-lib.pl'; &ReadParse(); &error_setup($text{'disc_err'}); $access{'conns'} || &error($text{'conns_ecannot'}); @conns = &list_connections(); ($conn) = grep { $_->[0] eq $in{'pid'} } @conns; $conn || &error($text{'disc_egone'}); &kill_logged('TERM', $conn->[0]) || &error($text{'disc_ekill'}); &kill_logged('TERM', $conn->[1]); sleep(2); # wait for it to quit &webmin_log("disc", undef, $conn->[2]); &redirect("list_conns.cgi");