I have a couple of MegaRaid controllers (Intel RS2BL040 & LSI 9260-4i)
\nI’m not thrilled with the monitoring software so I wrote this script to email me in the event of a raid problem:
\nThere are a couple other pieces but this is the meat of it;
\nRuns from crontab every 5 minutes, named “process.pl”<\/p>\n
use strict; use MIME::Lite::TT;<\/p>\n # Process the current log file in <\/p>\n my $logs_dir = '\/home\/megaraid\/logs\/';<\/p>\n my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = $year += 1900; while ( $min % 5 ) { #print \"year: $year Month: $mon Day $mday hour $hour : $min \\n\";<\/p>\n my $filename = $year.$mon.$mday.$hour.$min.'.txt';<\/p>\n print \"Getting filename $filename \\n\";<\/p>\n my $text_file = '\/home\/megaraid\/logs\/'.$filename;<\/p>\n my @cmd = ( 'scp root@192.168.0.175:\/tmp\/megaraid\/'.$filename.' \/home\/megaraid\/logs\/' );<\/p>\n system( @cmd );<\/p>\n unless ( -f '\/home\/megaraid\/logs\/'.$filename ) { die ( $filename . \" could not be retrieved, exiting now.\\n\\n\" ); }<\/p>\n print \"Successfully retrieved, now processing $text_file \\n...\\n\";<\/p>\n my $capture; open ( TXT, $text_file ) || die \"Couldn't open Text file $text_file!\\n\";<\/p>\n while ($line = if ( $line =~ m\/Device Present\/gi ) { #We want the next 5 lines, start capture<\/p>\n $counter++;<\/p>\n }<\/p>\n if ( $counter > 0 && $counter < 11 ) {\n\n $capture .= $line;\n $counter++;\n\n if ( $line =~ m\/Degraded\\s*:\\s(\\d+)\\s\/ && $1 > 0 ) { if ( $line =~ m\/Offline\\s*:\\s(\\d+)\\s\/ && $1 > 0 ) { if ( $line =~ m\/Critical Disks\\s*:\\s(\\d+)\\s\/ && $1 > 0 ) { if ( $line =~ m\/Failed Disks\\s*:\\s(\\d+)\\s\/ && $1 > 0 ) { } # End of 10 rows we need to look at (physical drive status)<\/p>\n }<\/p>\n close( TXT );<\/p>\n print $capture . \"\\n\";<\/p>\n my $alert_file = '\/home\/megaraid\/status.txt'; if ( (scalar keys %alerts) > 0 ){<\/p>\n print \"ALERTS! \\n Check alert file and possibly send email if new alert status.\\n\"; my $val = $alerts{ $alert }; $alert_text = \"$alert $val\\n\"; $counter = 0;<\/p>\n while ($line = close ( ALERT );<\/p>\n if ( $counter == 0 ) {<\/p>\n print \"THIS IS A NEW ALERT, send email $alert_text \\n\"; $params{'first_name'} = \"Bob\"; my $msg = MIME::Lite::TT->new( $msg->send;<\/p>\n }<\/p>\n }<\/p>\n } else {<\/p>\n # check if there were previous alerts, notify when cleared $counter = 0; $params{alert_text} = $alert_text; $msg->send;<\/p>\n } exit();<\/code><\/p>\n Leave a comment if you want details on how to get the rest of it working. Or if there is a better way to do it, please let me know!<\/p>\n","protected":false},"excerpt":{"rendered":" I have a couple of MegaRaid controllers (Intel RS2BL040 & LSI 9260-4i) I’m not thrilled with the monitoring software so I wrote this script to email me in the event of a raid problem: There are a couple other pieces … Continue reading #!\/usr\/bin\/perl<\/p>\n
\nuse warnings;<\/p>\n
\n localtime(time);<\/p>\n
\n$mon = sprintf('%.2d',$mon+1);
\n$mday = sprintf('%.2d',$mday);
\n$hour = sprintf('%.2d',$hour);<\/p>\n
\n $min--;
\n}
\n$min = sprintf('%.2d',$min);<\/p>\n
\nmy $counter = 0;
\nmy %alerts;
\nmy $line;
\nmy %params;
\nmy %options;
\n$options{INCLUDE_PATH} = '\/home\/megaraid';
\n$options{anything} = 'nothing';<\/p>\n
\n print \"Degraded: $1 \\n\";
\n $alerts{'degraded'} = $1;
\n }<\/p>\n
\n print \"Offline: $1 \\n\";
\n $alerts{'offline'} = $1;
\n }<\/p>\n
\n print \"Critical: $1 \\n\";
\n $alerts{'critical'} = $1;
\n }<\/p>\n
\n print \"Failed: $1 \\n\";
\n $alerts{'failed'} = $1;
\n }<\/p>\n
\nmy $alert_text = \"\";<\/p>\n
\n foreach my $alert ( keys %alerts ) {<\/p>\n
\n print \"$alert => $val\\n\";<\/p>\n
\n open ( ALERT, \"$alert_file\" );<\/p>\n
\n if ( $line eq $alert_text ) {
\n print \"found match $line $alert_text \\n\";
\n $counter++;
\n }
\n }<\/p>\n
\n open ( ALERT, \">>$alert_file\" );
\n print ALERT $alert_text;
\n close ( ALERT );<\/p>\n
\n $params{'alert_text'} = $alert_text;<\/p>\n
\n From => 'ESXI@omniweb.com',
\n To => 'ESXI@omniweb.com,my_cell_number',
\n Subject => 'RAID Alert',
\n Template => 'email.txt.tt',
\n TmplOptions => \\%options,
\n TmplParams => \\%params,
\n );<\/p>\n
\n open ( ALERT, \"$alert_file\" );<\/p>\n
\n while ($line =
\n if ( $line ne \"Good\" ) {
\n print \"Status was $line now Good\\n\";
\n $alert_text .= \"Status was $line now Good\\n\";
\n $counter++;
\n }
\n }
\n close ( ALERT );
\n if ( $counter > 0 ){
\n open ( ALERT, \">$alert_file\" );
\n print ALERT \"Good\";
\n close ( ALERT );
\n print \"Email $alert_text \\n\";<\/p>\n
\n my $msg = MIME::Lite::TT->new(
\n From => 'ESXI@omniweb.com',
\n To => 'ESXI@omniweb.com,my_cell_number',
\n Subject => 'RAID Good',
\n Template => 'email.txt.tt',
\n TmplOptions => \\%options,
\n TmplParams => \\%params,
\n ); <\/p>\n
\n}<\/p>\n