projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
re-enable all_parameteres collection of first connect
[perl-cwmp.git]
/
lib
/
CWMP
/
Store.pm
diff --git
a/lib/CWMP/Store.pm
b/lib/CWMP/Store.pm
index
6d9a784
..
b90fd62
100644
(file)
--- a/
lib/CWMP/Store.pm
+++ b/
lib/CWMP/Store.pm
@@
-109,6
+109,19
@@
sub get_state {
}
}
+
+=head2 set_state
+
+ $store->set_state( $uid, $state );
+
+=cut
+
+sub set_state {
+ my $self = shift;
+ return $self->current_store->set_state( @_ );
+}
+
+
=head2 all_uids
my @cpe = $store->all_uids;
=head2 all_uids
my @cpe = $store->all_uids;
@@
-126,7
+139,7
@@
sub all_uids {
my $CPE_uid = $store->ID_to_uid( $state );
my $CPE_uid = $store->ID_to_uid( $state );
-It uses C<< DeviceI
D
.SerialNumber >> from C<Inform> message as unique ID
+It uses C<< DeviceI
d
.SerialNumber >> from C<Inform> message as unique ID
for each CPE.
=cut
for each CPE.
=cut
@@
-137,8
+150,9
@@
sub state_to_uid {
warn "#### state_to_uid",dump( $state ),$/ if $self->debug > 4;
warn "#### state_to_uid",dump( $state ),$/ if $self->debug > 4;
- my $uid = $state->{DeviceID}->{SerialNumber} ||
- confess "no DeviceID.SerialNumber in ",dump( $state );
+ my $uid = $state->{DeviceId}->{SerialNumber} ||
+ confess "no DeviceId.SerialNumber in ",dump( $state );
+ chomp($uid);
return $uid;
}
return $uid;
}