projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use new CWMP::Parser
[perl-cwmp.git]
/
lib
/
CWMP
/
Vendor.pm
diff --git
a/lib/CWMP/Vendor.pm
b/lib/CWMP/Vendor.pm
index
fdbdc1e
..
071d7cb
100644
(file)
--- a/
lib/CWMP/Vendor.pm
+++ b/
lib/CWMP/Vendor.pm
@@
-58,7
+58,7
@@
my ( $last_ip, $last_serial );
sub state2serial {
my $state = shift;
sub state2serial {
my $state = shift;
- my $serial = $state->{DeviceI
D}->{SerialNumber} || die "no DeviceID
.SerialNumber in ",dump($state);
+ my $serial = $state->{DeviceI
d}->{SerialNumber} || die "no DeviceId
.SerialNumber in ",dump($state);
chomp($serial);
my $ip =
$state->{Parameter}->{'.ExternalIPAddress'} ||
chomp($serial);
my $ip =
$state->{Parameter}->{'.ExternalIPAddress'} ||
@@
-84,6
+84,11
@@
Install all custom triggers
=cut
sub add_triggers {
=cut
sub add_triggers {
+}
+
+1;
+
+__END__
warn __PACKAGE__, "->add_triggers\n" if $debug;
warn __PACKAGE__, "->add_triggers\n" if $debug;