/[mdap]/lib/MDAP/ChangeIP.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/MDAP/ChangeIP.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 47 by dpavlin, Fri Nov 16 14:59:30 2007 UTC revision 54 by dpavlin, Fri Nov 16 17:45:22 2007 UTC
# Line 1  Line 1 
1  package CWMP::ChangeIP;  package MDAP::ChangeIP;
2    
3  use strict;  use strict;
4  use warnings;  use warnings;
5    
6    use Module::Pluggable;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8    
9  my $debug = 0;  my $debug = 0;
10  my $verbose = 1;  my $verbose = 1;
11    
12  my $serial2ip = {  my $serial2ip = {
13          'CP0636JT3SH' => '192.168.1.242',          'CP0636JT3SH' => '192.168.1.242;10.0.0.1',
14          'CP0644JTHJ4' => '192.168.1.243',          'CP0644JTHJ4' => '192.168.1.243;10.0.0.2',
15          'CP0624BH55U' => '192.168.1.244',          'CP0624BH55U' => '192.168.1.244;10.0.0.3',
16  };  };
17    
18  sub check {  sub check {
19          my $h = shift;          my ( $self, $h ) = @_;
20          warn "## ",__PACKAGE__,"check(",dump($h),")" if $debug;          warn "## ",__PACKAGE__,"check(",dump($h),")" if $debug;
21    
22          my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";          my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";
# Line 23  sub check { Line 24  sub check {
24          my $ip_list = $h->{'IP_LIST'} || die "no IP_LIST";          my $ip_list = $h->{'IP_LIST'} || die "no IP_LIST";
25    
26          if ( my $ip = $serial2ip->{$serial} ) {          if ( my $ip = $serial2ip->{$serial} ) {
27                  return if $ip eq $ip_list;                  if ( $ip eq $ip_list ) {
28                            warn "OK ",__PACKAGE__," $serial $ip_list\n" if $verbose;
29                            return;
30                    }
31    
32                  warn "## change_ip $serial ",                  warn "## change_ip $serial ",
33                          $h->{'_VARIANT_FRIENDLY_NAME'}, " ",                          $h->{'_VARIANT_FRIENDLY_NAME'}, " ",
# Line 50  sub check { Line 54  sub check {
54          }          }
55  }  }
56    
57    1;
   
Legend:
Removed from v.47  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.26