1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#! /usr/bin/perl
use DBI;
use POSIX;
use lib '/opt/gondul/include';
use nms;
use strict;
use Data::Dumper;
use warnings;
my $year = 2018;
my %months = (
Jan => 1,
Feb => 2,
Mar => 3,
Apr => 4,
May => 5,
Jun => 6,
Jul => 7,
Aug => 8,
Sep => 9,
Oct => 10,
Nov => 11,
Dec => 12
);
my $realtime = 0;
my ($dbh, $q,$check);
$dbh = nms::db_connect();
$q = $dbh->prepare("INSERT INTO dhcp (dhcp_server,network,time,ip,mac) VALUES($nms::config::dhcp_id,(SELECT network FROM networks WHERE ?::inet << subnet4 ORDER BY name LIMIT 1),?,?,?)");
$check = $dbh->prepare("SELECT max(time)::timestamp - ?::timestamp < '0s'::interval as doit FROM dhcp where dhcp_server = $nms::config::dhcp_id;");
open(SYSLOG, "tail -n 9999999 -F /var/log/messages |") or die "Unable to tail syslog: $!";
while (<SYSLOG>) {
/(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\s+(\d+)\s+(\d+:\d+:\d+).*DHCPACK on (\d+\.\d+\.\d+\.\d+) to (\S+) / or next;
my $date = $year . "-" . $months{$1} . "-" . $2 . " " . $3 . " Europe/Oslo";
my $machine = $5;
my $via = $6;
$check->execute($date);
$dbh->commit;
my $cond = $check->fetchrow_hashref();
if (!defined($cond) or !defined($cond->{'doit'}) or $cond->{'doit'} eq '1') {
if ($realtime != 1) {
$realtime = 1;
print "real time achieved...\n";
}
$q->execute($4,$date,$4,$machine);
$dbh->commit;
}
}
close SYSLOG;
|
