tyler.durden
/
pandorafms
mirror of https://github.com/pandorafms/pandorafms.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

2010-09-08 Sancho Lerena <slerena@artica.es> 

* util/compaq_chassis_trap_manager.pl,
        util/esx_trap_manager.pl: First official external trap handlers.




git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@3232 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
slerena 2010-09-08 18:34:06 +00:00
parent 1c433f2162
commit f4a584c36a
3 changed files with 181 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pandora_server/ChangeLog
View File

@ -1,3 +1,8 @@
2010-09-08 Sancho Lerena <slerena@artica.es>
* util/compaq_chassis_trap_manager.pl,
util/esx_trap_manager.pl: First official external trap handlers.
2010-09-08 Sancho Lerena <slerena@artica.es>
* lib/PandoraFMS/SNMPServer.pm

108
pandora_server/util/compaq_chassis_trap_manager.pl Executable file
View File

@ -0,0 +1,108 @@
#!/usr/bin/perl
# (c) Sancho Lerena 2010 <slerena@artica.es>
# Specific Pandora FMS trap collector for Compaq Hardware
# To match custom value: 1.3.6.1.4.1.232
# Optional: IP Address
use POSIX qw(setsid strftime);
sub show_help {
print "\nSpecific Pandora FMS trap collector for compaq Hardware\n";
print "(c) Sancho Lerena 2010 <slerena@artica.es>\n";
print "Usage:\n\n";
print " compaq_chassis_trap_manager.pl <destination_agent_name> <TRAP DATA>\n\n";
exit;
}
sub writexml {
my ($hostname, $xmlmessage ) = @_;
my $file = "/var/spool/pandora/data_in/$hostname.".rand(1000).".data";
# my $file = "/tmp/compaq.debug";
open (FILE, ">> $file") or die "[FATAL] Cannot write to XML '$file'";
print FILE $xmlmessage;
close (FILE);
}
if ($#ARGV == -1){
show_help();
}
$chunk = "";
# First parameter is always destination host for virtual server
$target_host = $ARGV[0];
foreach $argnum (1 .. $#ARGV) {
if ($chunk ne ""){
$chunk .= " ";
}
$chunk .= $ARGV[$argnum];
}
my $hostname = "";
my $now = strftime ("%Y-%m-%d %H:%M:%S", localtime());
my $xmldata = "<agent_data agent_name='$target_host' timestamp='$now' version='1.0' os='Other' os_version='N/A' interval='9999999999'>";
my $blade = "N/A";
my $index_pos = 1;
my $enclosure = "N/A";
my $rack = "N/A";
# Obtener posicion
if ($chunk =~ m/.1.3.6.1.4.1.232.22.2.4.1.1.1.8.([0-9])*\s/){
$index_pos = $1;
}
# Obtener blade
if ($chunk =~ m/.1.3.6.1.4.1.232.22.2.4.1.1.1.4.$index_pos \= STRING\: ([A-Za-z0-9\-\.]*)\s/){
$blade = $1;
}
# Obtener enclosure
if ($chunk =~ m/.1.3.6.1.4.1.232.22.2.4.1.1.1.5.$index_pos \= STRING\: ([A-Za-z0-9\-\.]*)\s/){
$enclosure = $1;
}
# Obtener rack
if ($chunk =~ m/1.3.6.1.4.1.232.22.2.2.1.1.2.1 \= STRING\: ([A-Za-z0-9\-\.]*)\s\.1/){
$rack = $1;
}
if ($chunk =~ m/\s.22042\s/){
$text = sprintf("Server blade %s e-keying failed in position %s, in enclosure %s, in rack %s", $blade, $index_pos, $enclosure, $rack);
$criticity = "critico";
}
elsif ($chunk =~ m/\s.22005\s/){
$text = sprintf("The enclosure %s temperature sensor in rack %s has been set to failed.", $enclosure, $rack);
$criticity = "critico";
}
elsif ($chunk =~ m/\s.22008\s/){
$text = sprintf("The enclosure %s temperature sensor in rack %s has been set to degraded.", $enclosure, $rack);
$criticity = "critico";
}
elsif ($chunk =~ m/\s.22013\s/){
$text = sprintf("A power supply in enclosure %s in rack %s has been set to failed.", $enclosure, $rack);
$criticity = "critico";
}
elsif ($chunk =~ m/\s.22014\s/){
$text = sprintf("A power supply in enclosure %s in rack %s has been set to degraded.", $enclosure, $rack);
$criticity = "critico";
}
elsif ($chunk =~ m/\s.22021\s/){
$text = sprintf("The server shutdown due to lack of power blade %s, in enclosure %s, in rack %s.", $blade, $enclosure, $rack);
$criticity = "critico";
}
$xmldata .= "<module><name>Evento_$criticity</name><type>async_string</type><data>$text</data></module>\n";
$xmldata .= "</agent_data>\n";
writexml ($target_host, $xmldata);

68
pandora_server/util/esx_trap_manager.pl Executable file
View File

@ -0,0 +1,68 @@
#!/usr/bin/perl
# (c) Sancho Lerena 2010 <slerena@artica.es>
# Specific Pandora FMS trap collector for ESX
use POSIX qw(setsid strftime);
sub show_help {
print "\nSpecific Pandora FMS trap collector for ESX\n";
print "(c) Sancho Lerena 2010 <slerena@artica.es>\n";
print "Usage:\n\n";
print " esx_trap_manager.pl <destination_agent_name> <TRAP DATA>\n\n";
exit;
}
sub writexml {
my ($hostname, $xmlmessage ) = @_;
my $file = "/var/spool/pandora/data_in/$hostname.".rand(1000).".data";
open (FILE, ">> $file") or die "[FATAL] Cannot write to XML '$file'";
print FILE $xmlmessage;
close (FILE);
}
if ($#ARGV == -1){
show_help();
}
$chunk = "";
# First parameter is always destination host for virtual server
$target_host = $ARGV[0];
foreach $argnum (1 .. $#ARGV) {
if ($chunk ne ""){
$chunk .= " ";
}
$chunk .= $ARGV[$argnum];
}
my $hostname = "";
my $now = strftime ("%Y-%m-%d %H:%M:%S", localtime());
my $xmldata = "<agent_data agent_name='$target_host' timestamp='$now' version='1.0' os='Other' os_version='ESX_Collectordime ' interval='9999999999'>";
if ($chunk =~ m/.1.3.6.1.4.1.6876.4.3.302 \= STRING\: ([A-Za-z0-9\-\.]*)\s\.1/){
$hostname = "_".$1;
}
if ($chunk =~ m/Host cpu usage \- Metric Usage \= ([0-9]*)\z/){
$value = $1;
$module_name = "CPU_OCUPADA$hostname";
}
if ($chunk =~ m/Host memory usage \- Metric Usage = ([0-9\.]*)\z/){
$value = $1;
$module_name = "MEMORIA_OCUPADA$hostname";
}
if ($chunk =~ m/Datastore usage on disk \- Metric Storage space actually used \= ([0-9\.]*)\z/){
$value = $1;
$module_name = "DISCO_OCUPADO$hostname";
}
$xmldata .= "<module><name>$module_name</name><type>async_data</type><data>$value</data></module>\n";
$xmldata .= "</agent_data>\n";
writexml ($target_host, $xmldata);