#!/usr/bin/perl
# angepasst 2009, by roli

use strict;
use warnings;
use WatchLAN;

my $db = WatchLAN->new();

while(<DATA>) {
    if(/^#\s*(.*)/) {
        my $name = $1;
        my $nextline = <DATA>;
        chomp $nextline;
        my($mac, $ip, $ip_change) = split ' ', $nextline;
        if($ip_change) {
            $db->device_add($name, $mac);
        }
        else {
            $db->device_add($name, $mac, $ip);
        }
    }
}

__DATA__
#MyLaptop
00:26:25:d2:9a:12 10.0.0.150 ip_change

#MyFileSRV
00:e0:a1:19:57:c5 10.1.0.1