1#!/usr/local/bin/perl
2# Terminate several mysql connections
3
4require './mysql-lib.pl';
5&error_setup($text{'kill_err'});
6$access{'perms'} == 1 || &error($text{'kill_ecannot'});
7
8&ReadParse();
9@d = split(/\0/, $in{'d'});
10@d || &error($text{'kill_enone'});
11
12foreach $d (@d) {
13	&execute_sql_logged($master_db, "kill $d");
14	}
15&webmin_log("kill", undef, scalar(@d));
16&redirect("list_procs.cgi");
17
18