NMS: Rewrite dhcptailer to use different data format

Now: Logs!

1 files changed, 5 insertions, 34 deletions

diff --git a/clients/dhcptail.pl b/clients/dhcptail.pl
index e7898aa..2b7e6bf 100755
--- a/clients/dhcptail.pl
+++ b/clients/dhcptail.pl
@@ -31,44 +31,15 @@ my %months = (
 	Dec => 12
 );
 
-my ($dbh, $q, $cq);
+my ($dbh, $q);
+$dbh = nms::db_connect();
+$q = $dbh->prepare("INSERT INTO dhcp (switch,time,mac) VALUES((SELECT switch FROM switches WHERE ?::inet << network),?,?)");
 open(SYSLOG, "tail -n 9999999 -F /var/log/syslog |") 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;
 	my $machine = $5;
-	my $owner_color;
-
-	if ($machine eq '00:15:c5:42:ce:e9') {
-		$owner_color = '#00ff00';  # Steinar
-	} elsif ($machine eq '00:1e:37:1c:d2:65') {
-		$owner_color = '#c0ffee';  # Trygve
-	} elsif ($machine eq '00:16:d3:ce:8f:a7') {
-		$owner_color = '#f00f00';  # Jon
-	} elsif ($machine eq '00:16:d4:0c:8a:1c') {
-		$owner_color = '#ff99ff';  # Jørgen
-	} elsif ($machine eq '00:18:8b:aa:2f:f8') {
-		$owner_color = '#663300';  # Kjetil
-	} elsif ($machine eq '00:15:58:29:14:e3') {
-		$owner_color = '#f1720f';  # Bård
-	} else {
-		$owner_color = "#000000";  # Unknown
-	}
-
-	if (!defined($dbh) || !$dbh->ping) {
-		$dbh = nms::db_connect();
-		$q = $dbh->prepare("UPDATE dhcp SET last_ack=? WHERE ?::inet << network AND ( last_ack < ? OR last_ack IS NULL )")
-			or die "Couldn't prepare query";
-		$cq = $dbh->prepare("UPDATE dhcp SET owner_color=? WHERE ?::inet << network AND owner_color IS NULL")
-			or die "Couldn't prepare query";
-	}
-
-	print STDERR "$date $4\n";
-	$q->execute($date, $4, $date)
-		or die "Couldn't push $1 into database";
-	if (defined($owner_color)) {
-		$cq->execute($owner_color, $4)
-			or die "Couldn't push $1 into database";
-	}
+	$q->execute($4,$date,$machine);
+	$q->commit;
 }
 close SYSLOG;