mysql/kill_procs.cgi

   1 #!/usr/local/bin/perl
   2 # Terminate several mysql connections
   3
   4 require './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
  12 foreach $d (@d) {
  13         &execute_sql_logged($master_db, "kill $d");
  14         }
  15 &webmin_log("kill", undef, scalar(@d));
  16 &redirect("list_procs.cgi");
  17