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

add macaddr option

This commit is contained in:
Mathieu Cinquin 2015-02-04 18:50:00 +01:00
parent 3a5ff91f5f
commit 4b3ef3666f
1 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
apps/protocols/dhcp/mode/connection.pm
View File

@ -39,6 +39,7 @@ use base qw(centreon::plugins::mode);
use strict; use strict;
use warnings; use warnings;
use IO::Socket; use IO::Socket;
use IO::Select; use IO::Select;
use Net::DHCP::Packet; use Net::DHCP::Packet;
@ -53,8 +54,9 @@ sub new {
$self->{version} = '1.0'; $self->{version} = '1.0';
$options{options}->add_options(arguments => $options{options}->add_options(arguments =>
{ {
"hostname:s" => { name => 'hostname' }, "serverip:s" => { name => 'serverip' },
"timeout:s" => { name => 'timeout', default => '3'}, "timeout:s" => { name => 'timeout', default => '3'},
"macaddr:s" => { name => 'macaddr', default => '999999000000'},
}); });
return $self; return $self;
} }
@ -62,56 +64,51 @@ sub new {
sub check_options { sub check_options {
my ($self, %options) = @_; my ($self, %options) = @_;
$self->SUPER::init(%options); $self->SUPER::init(%options);
if (!defined($self->{option_results}->{hostname})) {
$self->{output}->add_option_msg(short_msg => "Please set the hostname option");
$self->{output}->option_exit();
}
if (!defined($self->{option_results}->{timeout})) {
$self->{output}->add_option_msg(short_msg => "Please set the timeout option");
$self->{output}->option_exit();
}
} }
sub run { sub run {
my ($self, %options) = @_; my ($self, %options) = @_;
my ($discover, $socket, $listen, $response, $discresponse, $buf); my ($discover, $socket, $listen, $response, $discresponse, $buf, $serverip);
#Create DHCP Discover Packet #Create DHCP Discover Packet
$discover = Net::DHCP::Packet->new( $discover = Net::DHCP::Packet->new(
Xid => int(rand(0xFFFFFFFF)), Xid => int(rand(0xFFFFFFFF)),
Flags => 0x8000, Flags => 0x8000,
Chaddr => '999999000000', Chaddr => $self->{option_results}->{macaddr},
DHO_HOST_NAME() => 'perl test', DHO_HOST_NAME() => 'perl test',
DHO_VENDOR_CLASS_IDENTIFIER() => 'foo', DHO_VENDOR_CLASS_IDENTIFIER() => 'foo',
DHO_DHCP_MESSAGE_TYPE() => DHCPDISCOVER(), DHO_DHCP_MESSAGE_TYPE() => DHCPDISCOVER(),
); );
#Create UDP Socket #Create UDP Socket
socket($socket, AF_INET, SOCK_DGRAM, getprotobyname('udp')); socket($socket, AF_INET, SOCK_DGRAM, getprotobyname('udp'));
setsockopt($socket, SOL_SOCKET, SO_REUSEADDR, 1); setsockopt($socket, SOL_SOCKET, SO_REUSEADDR, 1);
setsockopt($socket, SOL_SOCKET, SO_BROADCAST, 1); setsockopt($socket, SOL_SOCKET, SO_BROADCAST, 1);
my $distipaddr = sockaddr_in(67, INADDR_BROADCAST); my $remoteipaddr = sockaddr_in(67, INADDR_BROADCAST);
my $str = $discover->serialize(); my $str = $discover->serialize();
my $binding = bind($socket, sockaddr_in('68', INADDR_ANY)); my $binding = bind($socket, sockaddr_in('68', INADDR_ANY));
#Send UDP Packet #Send UDP Packet
send($socket, $str, 0, $distipaddr); send($socket, $str, 0, $remoteipaddr);
#Wait DHCP OFFER Packet #Wait DHCP OFFER Packet
my $wait = IO::Select->new($socket); my $wait = IO::Select->new($socket);
while (my ($found) = $wait->can_read($self->{option_results}->{timeout})) { while (my ($found) = $wait->can_read($self->{option_results}->{timeout})) {
my $srcpaddr = recv($socket, my $data, 4096, 0); my $srcpaddr = recv($socket, my $data, 4096, 0);
$response = new Net::DHCP::Packet($data); $response = new Net::DHCP::Packet($data);
$discresponse = $response->toString(); #$discresponse = $response->toString();
}
foreach my $k (keys(%{$response})) {
print "Clef=$k Valeur=$response{$k}\n";
} }
close $socket; close $socket;
#Output #Output
if ($discresponse !~ /siaddr = $self->{option_results}->{hostname}/) { if ($discresponse !~ /siaddr = $self->{option_results}->{serverip}/) {
$self->{output}->output_add(severity => 'CRITICAL', $self->{output}->output_add(severity => 'CRITICAL',
short_msg => sprintf("No DHCP Server found")); short_msg => sprintf("No DHCP Server found"));
} elsif ( $discresponse =~ /yiaddr = 0.0.0.0/ ) { } elsif ( $discresponse =~ /yiaddr = 0.0.0.0/ ) {
@ -146,3 +143,4 @@ Connection timeout in seconds (Default: 3)
=back =back
=cut =cut