| | 1 | <?php |
| | 2 | |
| | 3 | @chdir(dirname(__FILE__).'/../'); |
| | 4 | require_once('mitsql.cfg.php'); |
| | 5 | require_once('mitsql.lib.php'); |
| | 6 | isOffline() && exit; |
| | 7 | |
| | 8 | define('MAX_PROC_TIME', 100); |
| | 9 | |
| | 10 | $baddbs = $badusers = $bad = array(); |
| | 11 | $result = mysql_query('SHOW FULL PROCESSLIST'); |
| | 12 | while ($row = mysql_fetch_assoc($result)){ |
| | 13 | if ($row['Time']>MAX_PROC_TIME && $row['Command']!='Sleep') { |
| | 14 | $bad[] = $row; |
| | 15 | $baddbs[] = $row['db']; |
| | 16 | $badusers[] = $row['User']; |
| | 17 | } |
| | 18 | } |
| | 19 | mysql_free_result($result); |
| | 20 | |
| | 21 | foreach($bad as $badproc) { |
| | 22 | mysql_query('KILL '.$badproc['Id']); |
| | 23 | continue; |
| | 24 | $mailtos = $mailnames = array(); |
| | 25 | $baddb = mysql_escape_string($badproc['db']); |
| | 26 | if (empty($baddb)) continue; |
| | 27 | $badtime = $badproc['Time']; |
| | 28 | $badquery = $badproc['Info']; |
| | 29 | $sql = "SELECT User.UserId,User.Name,User.Email |
| | 30 | FROM `User` |
| | 31 | NATURAL JOIN DBOwner |
| | 32 | NATURAL JOIN DB |
| | 33 | WHERE DB.Name = '$baddb' |
| | 34 | AND User.UL < 10"; |
| | 35 | $r = fetchRows(DBSelect($sql),'UserId'); |
| | 36 | foreach($r as $addy) { |
| | 37 | $mailtos[] = $addy['Email']; |
| | 38 | $mailnames[] = $addy['Name']; |
| | 39 | } |
| | 40 | if (empty($mailtos)) { |
| | 41 | echo "No email found for $baddb\n"; |
| | 42 | continue; |
| | 43 | } |
| | 44 | $mailto = implode(', ',$mailtos); |
| | 45 | $mailname = implode(', ',$mailnames); |
| | 46 | $mailsubj = "[sql.mit.edu] Slow Query on $baddb"; |
| | 47 | $mailbody = "Dear $mailname: |
| | 48 | |
| | 49 | A slow query was found on your database: $baddb |
| | 50 | It took $badtime seconds and has been aborted. |
| | 51 | |
| | 52 | We do not allow inefficient SQL queries to run this long. Your query has |
| | 53 | been appended to this message for your records. Please optimize your |
| | 54 | queries to avoid having your queries killed in the future. If you have any |
| | 55 | questions, please contact sql@mit.edu. |
| | 56 | |
| | 57 | The SQL Service |
| | 58 | Email: <sql@mit.edu> |
| | 59 | Web: http://sql.mit.edu/ |
| | 60 | |
| | 61 | --------------------------------------------------------------------------- |
| | 62 | |
| | 63 | $badquery"; |
| | 64 | |
| | 65 | mysql_query('KILL '.$badproc['Id']); |
| | 66 | #mail($mailto,$mailsubj,$mailbody,"From: SQL Service <sql@mit.edu>\r\nBcc: sql@mit.edu\r\n"); |
| | 67 | echo $mailbody; |
| | 68 | } |
| | 69 | |
| | 70 | ?> |
andersk / sql-web.git / blame_incremental