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 c5b5da9..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;
@@ -126,7 +139,7 @@ sub all_uids {
 
   my $CPE_uid = $store->ID_to_uid( $state );
 
-It uses C<< DeviceID.SerialNumber >> from C<Inform> message as unique ID
+It uses C<< DeviceId.SerialNumber >> from C<Inform> message as unique ID
 for each CPE.
 
 =cut
@@ -137,8 +150,8 @@ sub state_to_uid {
 
        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;