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