542837d266
Squashed commit of the following: commit975e4c6afcAuthor: Oliver Gorwits <oliver@cpan.org> Date: Tue Sep 3 13:35:26 2019 +0100 also support regexp in domain_suffix commit0a2b5c8fa2Author: Oliver Gorwits <oliver@cpan.org> Date: Tue Sep 3 13:17:17 2019 +0100 fix rancid, graph, and nodemonitor commit6d881de3ffAuthor: Oliver Gorwits <oliver@cpan.org> Date: Tue Sep 3 13:11:54 2019 +0100 improve docs and set default domain_suffix to be list commit1dcafc08a8Merge:9a752e0214ac69dcAuthor: Oliver Gorwits <oliver@cpan.org> Date: Tue Sep 3 13:00:39 2019 +0100 Merge branch 'master' into og-multiple-domain-suffix commit9a752e0298Merge:c836619f82a99ea9Author: Oliver Gorwits <oliver@cpan.org> Date: Tue Sep 3 09:45:25 2019 +0100 Merge branch 'master' into og-multiple-domain-suffix commitc836619f8cAuthor: Oliver Gorwits <oliver@cpan.org> Date: Thu Jun 13 07:52:45 2019 +0100 hokey fix for nodes with domains commitfed14bd810Author: Oliver Gorwits <oliver@cpan.org> Date: Thu Jun 13 07:02:09 2019 +0100 basic implementation, rancid graph and nodemonitor missing
56 lines
1.4 KiB
Perl
56 lines
1.4 KiB
Perl
package App::Netdisco::Util::NodeMonitor;
|
|
|
|
use App::Netdisco;
|
|
|
|
use Dancer qw/:syntax :script/;
|
|
use Dancer::Plugin::DBIC 'schema';
|
|
|
|
use Net::Domain 'hostfqdn';
|
|
use App::Netdisco::Util::DNS qw/hostname_from_ip ipv4_from_hostname/;
|
|
|
|
use base 'Exporter';
|
|
our @EXPORT_OK = qw/
|
|
monitor
|
|
/;
|
|
our %EXPORT_TAGS = (all => \@EXPORT_OK);
|
|
|
|
sub _email {
|
|
my ($to, $subject, $body) = @_;
|
|
return unless $to;
|
|
$domain =~ (hostfqdn || 'fqdn-undefined');
|
|
|
|
my $SENDMAIL = '/usr/sbin/sendmail';
|
|
open (SENDMAIL, "| $SENDMAIL -t") or die "Can't open sendmail at $SENDMAIL.\n";
|
|
print SENDMAIL "To: $to\n";
|
|
print SENDMAIL "From: Netdisco <netdisco\@$domain>\n";
|
|
print SENDMAIL "Subject: $subject\n\n";
|
|
print SENDMAIL $body;
|
|
close (SENDMAIL) or die "Can't send letter. $!\n";
|
|
}
|
|
|
|
sub monitor {
|
|
my $monitor = schema('netdisco')->resultset('Virtual::NodeMonitor');
|
|
|
|
while (my $entry = $monitor->next) {
|
|
my $body = <<"end_body";
|
|
........ n e t d i s c o .........
|
|
Node : @{[$entry->mac]} (@{[$entry->why]})
|
|
When : @{[$entry->date]}
|
|
Switch : @{[$entry->name]} (@{[$entry->switch]})
|
|
Port : @{[$entry->port]} (@{[$entry->portname]})
|
|
Location: @{[$entry->location]}
|
|
|
|
end_body
|
|
|
|
debug sprintf ' monitor - reporting on %s at %s:%s',
|
|
$entry->mac, $entry->name, $entry->port;
|
|
_email(
|
|
$entry->cc,
|
|
"Saw mac @{[$entry->mac]} (@{[$entry->why]}) on @{[$entry->name]} @{[$entry->port]}",
|
|
$body
|
|
);
|
|
}
|
|
}
|
|
|
|
1;
|