lib/MDAP/ChangeIP.pm

package CWMP::ChangeIP;

use strict;
use warnings;

use Data::Dump qw/dump/;

my $debug = 0;
my $verbose = 1;

my $serial2ip = {
        'CP0636JT3SH' => '192.168.1.242',
        'CP0644JTHJ4' => '192.168.1.243',
        'CP0624BH55U' => '192.168.1.244',
};

sub check {
        my $h = shift;
        warn "## ",__PACKAGE__,"check(",dump($h),")" if $debug;

        my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";

        my $ip_list = $h->{'IP_LIST'} || die "no IP_LIST";

        if ( my $ip = $serial2ip->{$serial} ) {
                return if $ip eq $ip_list;

                warn "## change_ip $serial ",
                        $h->{'_VARIANT_FRIENDLY_NAME'}, " ",
                        $h->{'_BOARD_NAME'}, " ",
                        $h->{'_BUILD'}, " ",
                        "IP $ip_list -> $ip\n" if $verbose;
                my $ip_status;
                $ip_status->{$_}-- foreach ( split(/;/, $ip_list ) );
                $ip_status->{$_}++ foreach ( split(/;/, $ip ) );
                foreach my $current_ip ( sort { $ip_status->{$b} <=> $ip_status->{$a} } keys %$ip_status ) {
                        warn "## current_ip = $current_ip\n";
                        if ( $ip_status->{$current_ip} < 0 ) {
                                warn "-- remove IP $current_ip\n";
                                return "ip ipdelete addr=$current_ip";
                        } elsif ( $ip_status->{$current_ip} > 0 ) {
                                warn "-- add IP $current_ip\n";
                                return "ip ipadd intf=LocalNetwork addr=$current_ip";
                        }
                }
                return;
        } else {
                warn "!! can't find serial2ip mapping for $serial IP $ip_list\n";
                return;
        }
}


1	dpavlin	47	package CWMP::ChangeIP;
2
3			use strict;
4			use warnings;
5
6			use Data::Dump qw/dump/;
7
8			my $debug = 0;
9			my $verbose = 1;
10
11			my $serial2ip = {
12			'CP0636JT3SH' => '192.168.1.242',
13			'CP0644JTHJ4' => '192.168.1.243',
14			'CP0624BH55U' => '192.168.1.244',
15			};
16
17			sub check {
18			my $h = shift;
19			warn "## ",__PACKAGE__,"check(",dump($h),")" if $debug;
20
21			my $serial = $h->{'_PROD_SERIAL_NBR'} \|\| die "no serial?";
22
23			my $ip_list = $h->{'IP_LIST'} \|\| die "no IP_LIST";
24
25			if ( my $ip = $serial2ip->{$serial} ) {
26			return if $ip eq $ip_list;
27
28			warn "## change_ip $serial ",
29			$h->{'_VARIANT_FRIENDLY_NAME'}, " ",
30			$h->{'_BOARD_NAME'}, " ",
31			$h->{'_BUILD'}, " ",
32			"IP $ip_list -> $ip\n" if $verbose;
33			my $ip_status;
34			$ip_status->{$_}-- foreach ( split(/;/, $ip_list ) );
35			$ip_status->{$_}++ foreach ( split(/;/, $ip ) );
36			foreach my $current_ip ( sort { $ip_status->{$b} <=> $ip_status->{$a} } keys %$ip_status ) {
37			warn "## current_ip = $current_ip\n";
38			if ( $ip_status->{$current_ip} < 0 ) {
39			warn "-- remove IP $current_ip\n";
40			return "ip ipdelete addr=$current_ip";
41			} elsif ( $ip_status->{$current_ip} > 0 ) {
42			warn "-- add IP $current_ip\n";
43			return "ip ipadd intf=LocalNetwork addr=$current_ip";
44			}
45			}
46			return;
47			} else {
48			warn "!! can't find serial2ip mapping for $serial IP $ip_list\n";
49			return;
50			}
51			}
52
53
54