Select Code to Download

Select or download this

Software error:
<lookup> died something went wrong: OLE exception from "ADODB.Connecti
+on":

...

Win32::OLE(0.1707) error 0x800a0e78
    in METHOD/PROPERTYGET "Execute"

Select or download this

use strict;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
...
#=====================================================================
+===================#
#                                        CONFIG                       
+                   #
#=====================================================================
+===================#

Select or download this

# Original line to check NTSM database for hostname. I have hashed thi
+s out and changed it so that the '$EVENT->{'slots'}->{'hostname'}' is
+ now substitued by 
# the extracted $hostN see my comments of 18/03/09
...


# End of changes made 18/03/09 by Mych Dubil

Select or download this

# used to lookup_values from the NTSM database
sub lookup_NTSM_val
{
...
   ( map { LogIt( $fhDEBUG,"". $_ ) } split /\n/, Dumper $result ) if 
+$CONFIG{DEBUG}  > 3;
   return( $result );
}

Select or download this

#==========  more robust logging  ===============#
sub OpenLog
{
...

    printf $fhLog ( "%-20s   %-25s   %-5s   %-25s   %s\n", $strDate, $
+caller_info{"filename"}, $caller_info{"line"}, $caller_info{"subrouti
+ne"}, $Message);
}