9 # WARNING: CHANGE THIS! :-P
29 /(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\s+(\d+)\s+(\d+:\d+:\d+).*DHCPACK on (\d+\.\d+\.\d+\.\d+)/ or next;
30 my $date = $year . "-" . $months{$1} . "-" . $2 . " " . $3;
32 if (!defined($dbh) || !$dbh->ping) {
33 $dbh = nms::db_connect();
34 $q = $dbh->prepare("UPDATE dhcp SET last_ack=? WHERE ?::inet << network AND ( last_ack < ? OR last_ack IS NULL )")
35 or die "Couldn't prepare query";
38 print STDERR "$date $4\n";
39 $q->execute($date, $4, $date)
40 or die "Couldn't push $1 into database";