/[cwmp]/google/trunk/lib/CWMP/Request.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 /google/trunk/lib/CWMP/Request.pm

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

revision 237 by dpavlin, Mon Nov 26 00:28:24 2007 UTC revision 238 by dpavlin, Mon Nov 26 00:28:54 2007 UTC
# Line 108  push @$rules, Line 108  push @$rules,
108  =cut  =cut
109    
110  push @$rules,  push @$rules,
111                  'GetParameterAttributesResponse' => sub {                  'ParameterAttributeStruct' => sub {
112                          my ($tag_name, $tag_hash, $context, $parent_data) = @_;                          my ($tag_name, $tag_hash, $context, $parent_data) = @_;
113                          warn dump( $tag_name, $tag_hash, $context );                          warn dump( $tag_name, $tag_hash, $context );
114            
115                            confess "need state" unless ( $state ); # don't remove!
116    
117                            my $name = _tag($tag_hash, 'Name', '_content');
118    
119    
120                            $state->{ParameterAttribute}->{$name} = {
121                                    Notification => _tag($tag_hash, 'Notification', '_content' ),
122                                    AccessList => _tag($tag_hash, 'AccessList', 'string' ),
123                            };
124    
125                          $state->{_trigger} = 'GetParameterAttributesResponse';                          $state->{_trigger} = 'GetParameterAttributesResponse';
126                  };                  };
127    
Legend:
Removed from v.237  
changed lines
  Added in v.238
  ViewVC Help
Powered by ViewVC 1.1.26