mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-11-14 15:37:55 +00:00
118 lines
3.7 KiB
Perl
Executable File
118 lines
3.7 KiB
Perl
Executable File
#!/usr/bonsaitools/bin/perl -w
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public
|
|
# License Version 1.1 (the "License"); you may not use this file
|
|
# except in compliance with the License. You may obtain a copy of
|
|
# the License at http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS
|
|
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
|
# implied. See the License for the specific language governing
|
|
# rights and limitations under the License.
|
|
#
|
|
# The Original Code is the Bugzilla Bug Tracking System.
|
|
#
|
|
# The Initial Developer of the Original Code is Netscape Communications
|
|
# Corporation. Portions created by Netscape are
|
|
# Copyright (C) 2000 Netscape Communications Corporation. All
|
|
# Rights Reserved.
|
|
#
|
|
# Contributor(s): Dan Mosedale <dmose@mozilla.org>
|
|
#
|
|
|
|
# mysqld-watcher.pl - a script that watches the running instance of
|
|
# mysqld and kills off any long-running SELECTs against the shadow_db
|
|
#
|
|
use strict;
|
|
|
|
# some configurables:
|
|
|
|
# length of time before a thread is eligible to be killed, in seconds
|
|
#
|
|
my $long_query_time = 180;
|
|
#
|
|
# the From header for any messages sent out
|
|
#
|
|
my $mail_from = "root\@mothra.mozilla.org";
|
|
#
|
|
# the To header for any messages sent out
|
|
#
|
|
my $mail_to = "root";
|
|
#
|
|
# mail transfer agent. this should probably really be converted to a Param().
|
|
#
|
|
my $mta_program = "/usr/lib/sendmail -t -ODeliveryMode=deferred";
|
|
|
|
# The array of long-running queries
|
|
#
|
|
my $long = {};
|
|
|
|
# Run mysqladmin processlist twice, the first time getting complete queries
|
|
# and the second time getting just abbreviated queries. We want complete
|
|
# queries so we know which queries are taking too long to run, but complete
|
|
# queries with line breaks get missed by this script, so we get abbreviated
|
|
# queries as well to make sure we don't miss any.
|
|
foreach my $command ("/opt/mysql/bin/mysqladmin --verbose processlist",
|
|
"/opt/mysql/bin/mysqladmin processlist")
|
|
{
|
|
close(STDIN);
|
|
open(STDIN, "$command |");
|
|
|
|
# iterate through the running threads
|
|
#
|
|
while ( <STDIN> ) {
|
|
my @F = split(/\|/);
|
|
|
|
# if this line is not the correct number of fields, or if the thread-id
|
|
# field contains Id, skip this line. both these cases indicate that this
|
|
# line contains pretty-printing gunk and not thread info.
|
|
#
|
|
next if ( $#F != 9 || $F[1] =~ /Id/);
|
|
|
|
if ( $F[4] =~ /shadow_bugs/ # shadowbugs database in use
|
|
&& $F[5] =~ /Query/ # this is actually a query
|
|
&& $F[6] > $long_query_time # this query has taken too long
|
|
&& $F[8] =~ /(select|SELECT)/ # only kill a select
|
|
&& !defined($long->{$F[1]}) ) # haven't seen this one already
|
|
{
|
|
$long->{$F[1]} = \@F;
|
|
system("/opt/mysql/bin/mysqladmin", "kill", $F[1]);
|
|
}
|
|
}
|
|
}
|
|
|
|
# send an email message
|
|
#
|
|
# should perhaps be moved to somewhere more global for use in bugzilla as a
|
|
# whole; should also do more error-checking
|
|
#
|
|
sub sendEmail($$$$) {
|
|
($#_ == 3) || die("sendEmail: invalid number of arguments");
|
|
my ($from, $to, $subject, $body) = @_;
|
|
|
|
open(MTA, "|$mta_program");
|
|
print MTA "From: $from\n";
|
|
print MTA "To: $to\n";
|
|
print MTA "Subject: $subject\n";
|
|
print MTA "\n";
|
|
print MTA $body;
|
|
print MTA "\n";
|
|
close(MTA);
|
|
|
|
}
|
|
|
|
# if we found anything, kill the database thread and send mail about it
|
|
#
|
|
if (scalar(keys(%$long))) {
|
|
my $message = "";
|
|
foreach my $process_id (keys(%$long)) {
|
|
my $qry = $long->{$process_id};
|
|
$message .= join(" ", @$qry) . "\n\n";
|
|
}
|
|
|
|
# fire off an email telling the maintainer that we had to kill some threads
|
|
#
|
|
sendEmail($mail_from, $mail_to, "long running MySQL thread(s) killed", $message);
|
|
}
|
|
|