#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - oopscheck                                 Copyright 2015 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;

my $inoops = 0;
my @DMESG  = split( /\n/, `dmesg` );
my $oops   = '';
foreach (@DMESG) {
    s/[\n\r]//g;
    if ( /^EIP/ || ( ( /invalid operand: /i || /Unable to handle/i ) && !/^PCI/ ) ) {
        $inoops = 1;
    }
    if ($inoops) {
        $oops .= $_ . "\n";
    }
    if (/^code:/i) {
        $inoops = 0;
    }
}

# Uncomment to test
# $oops = "test";

if ( length $oops ) {

    require Cpanel::Notify;
    Cpanel::Notify::notification_class(
        'class'            => 'Check::Oops',
        'application'      => 'Check::Oops',
        'constructor_args' => [
            'origin'       => 'oopscheck',
            'attach_files' => [ { 'name' => 'oops_log.txt', 'content' => \$oops } ],
        ]
    );
    print "Oops detected .. sent email\n";
}