7 use base qw/Class::Accessor/;
8 __PACKAGE__->mk_accessors( qw/
12 #use Carp qw/confess/;
13 use Data::Dump qw/dump/;
17 CWMP::Vendor - implement vendor specific logic into ACS server
23 my $obj = CWMP::Vendor->new({
33 my $self = $class->SUPER::new( @_ );
35 warn "created ", __PACKAGE__, "(", dump( @_ ), ") object\n" if $self->debug;
37 $debug = $self->debug;
45 'CP0636JT3SH' => '10.0.0.1',
46 'CP0644JTHJ4' => '10.0.0.2',
47 'CP0624BH55U' => '10.0.0.3',
50 my ( $last_ip, $last_serial );
54 my $serial = state2serial( $state );
61 my $serial = $state->{DeviceId}->{SerialNumber} || die "no DeviceId.SerialNumber in ",dump($state);
64 $state->{Parameter}->{'.ExternalIPAddress'} ||
65 $state->{Parameter}->{
66 # fix for firmware 5.3.3.4 which returns full path
67 ( grep { m/\.ExternalIPAddress/ } keys %{ $state->{Parameter} } )[0]
69 die "no .ExternalIPAddress in ",dump($state);
71 warn "## state2serial $serial $ip\n" if $debug;
73 ( $last_ip, $last_serial ) = ( $ip, $serial );
75 return ( $serial, $ip );
80 Install all custom triggers
82 CWMP::Vendor->add_triggers;
93 warn __PACKAGE__, "->add_triggers\n" if $debug;
95 CWMP::Request->add_trigger( name => 'Fault', callback => sub {
96 my ( $self, $state ) = @_;
97 warn "## Fault trigger state = ",dump( $self, $state ) if $debug;
98 die "can't map fault to serial!" unless $last_serial;
99 warn "ERROR: got Fault and ingoring $last_ip $last_serial\n";
100 $cpe_faulty->{$last_serial}++;
103 CWMP::Request->add_trigger( name => 'Inform', callback => sub {
104 my ( $self, $state ) = @_;
106 my ( $serial, $ip ) = state2serial( $state );
108 if ( $cpe_faulty->{$serial} ) {
109 warn "## Inform trigger from $ip $serial -- IGNORED\n" if $debug;
113 warn "## Inform trigger from $ip $serial\n" if $debug;
117 warn "### serial2ip = ",dump( $serial2ip ) if $debug;
119 foreach my $target_serial ( keys %$serial2ip ) {
121 next unless $target_serial eq $serial;
125 my $target_ip = $serial2ip->{$target_serial};
127 if ( $ip ne $target_ip ) {
129 warn "CHANGE IP $ip to $target_ip for $serial\n";
133 my $q = CWMP::Queue->new({ id => $serial, debug => $debug }) || die "no queue?";
135 $q->enqueue( 'SetParameterValues', {
136 'InternetGatewayDevice.LANDevice.1.LANHostConfigManagement.IPInterface.1.IPInterfaceIPAddress' => $target_ip,
140 warn "IP $ip of $serial ok\n";
144 warn "UNKNOWN CPE $ip $serial\nadd\t'$serial' => '$ip',\n" unless $found;