chore: import upstream snapshot with attribution

2026-07-13 13:12:17 +08:00
commit cf8edb9f21
44281 changed files with 1655134 additions and 0 deletions
@@ -0,0 +1,22 @@
+#!/usr/local/bin/perl
+# disc.cgi
+# Shut down a PPTP tunnel
+
+require './pptp-client-lib.pl';
+&ReadParse();
+&error_setup($text{'disc_err'});
+@conns = &list_connected();
+($conn) = grep { $_->[0] eq $in{'tunnel'} } @conns;
+$conn || &error($text{'disc_egone'});
+&kill_logged('HUP', $conn->[1]) || &error($text{'disc_ekill'});
+sleep(3);
+@conns = &list_connected();
+($conn) = grep { $_->[0] eq $in{'tunnel'} } @conns;
+if ($conn) {
+	# Not dead .. kill harder
+	&kill_logged('KILL', $conn->[1]);
+	}
+&webmin_log("disc", undef, $in{'tunnel'});
+&redirect("");
+
+