--- lib/MDAP/ChangeIP.pm	2007/11/18 00:55:43	64
+++ lib/MDAP/ChangeIP.pm	2007/12/05 23:13:38	85
@@ -5,12 +5,24 @@
 
 use Module::Pluggable;
 use MDAP;
+use NetAddr::IP;
 
-my $serial2ip = {
-	'CP0636JT3SH' => '192.168.1.242;10.0.0.1',
-	'CP0644JTHJ4' => '192.168.1.243;10.0.0.2',
-	'CP0624BH55U' => '192.168.1.244;10.0.0.3',
-};
+# start IPs
+my $ip1 = NetAddr::IP->new('192.168.1.242/24');
+my $ip2 = NetAddr::IP->new('10.0.0.1/8');
+
+my @serials = ( qw/
+	CP0636JT3SH
+	CP0644JTHJ4
+	CP0624BH55U
+	CP0703KT3PP
+/);
+
+my $serial2ip;
+
+foreach my $serial ( @serials ) {
+	$serial2ip->{$serial} = $ip1++ . ';' . $ip2++;
+}
 
 sub check {
 	my ( $self, $h ) = @_;
@@ -19,7 +31,9 @@
 	my $ip_list = $h->{'IP_LIST'} || die "no IP_LIST";
 
 	if ( my $ip = $serial2ip->{$serial} ) {
-		if ( $ip eq $ip_list ) {
+		my $ip_only = $ip;
+		$ip_only =~ s/\/\d+//g;
+		if ( $ip eq $ip_list || $ip_only eq $ip_list ) {
 			once "OK ",__PACKAGE__," $serial $ip_list";
 			return;
 		}
@@ -32,7 +46,7 @@
 
 		my $ip_status;
 		$ip_status->{$_}-- foreach ( split(/;/, $ip_list ) );
-		$ip_status->{$_}++ foreach ( split(/;/, $ip ) );
+		$ip_status->{$_}++ foreach ( split(/;/, $ip_only ) );
 		foreach my $current_ip ( sort { $ip_status->{$b} <=> $ip_status->{$a} } keys %$ip_status ) {
 			if ( $ip_status->{$current_ip} < 0 ) {
 				warn "-- remove IP $current_ip\n" if $debug;
@@ -44,7 +58,8 @@
 		}
 		return;
 	} else {
-		once "ERROR: can't find serial2ip mapping for $serial IP $ip_list";
+		once "WARNING: unknown serial $serial assigning $ip1;$ip2";
+		$serial2ip->{$serial} = $ip1++ . ';' . $ip2++;
 		return;
 	}
 }