/[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 200 by dpavlin, Wed Nov 14 19:23:32 2007 UTC revision 214 by dpavlin, Sun Nov 18 17:49:51 2007 UTC
# Line 56  my $rules =  [ Line 56  my $rules =  [
56                          # Name/Value tags must be case insnesitive                          # Name/Value tags must be case insnesitive
57                          my $value = (grep( /value/i, keys %$tag_hash ))[0];                          my $value = (grep( /value/i, keys %$tag_hash ))[0];
58                          $state->{Parameter}->{ _tag($tag_hash, 'Name', '_content') } = _tag($tag_hash, 'Value', '_content' );                          $state->{Parameter}->{ _tag($tag_hash, 'Name', '_content') } = _tag($tag_hash, 'Value', '_content' );
59                            $state->{_trigger} = 'ParameterValue';
60                  },                  },
61    
62  ];  ];
# Line 96  push @$rules, Line 97  push @$rules,
97    
98                          confess "need state" unless ( $state ); # don't remove!                          confess "need state" unless ( $state ); # don't remove!
99    
100    =for obsolete
101    
102                          # XXX dragons ahead: convert name to tree rewriting it into perl                          # XXX dragons ahead: convert name to tree rewriting it into perl
103                          my $s = '$state->{ParameterInfo}->' . $tree->name2perl( $name ) . "->{writable} = $writable;";                          my $s = '$state->{ParameterInfo}->' . $tree->name2perl( $name ) . "->{writable} = $writable;";
104                          eval "$s";                          eval "$s";
105                          confess "can't eval $s : $@" if ($@);                          confess "can't eval $s : $@" if ($@);
106    
107    =cut
108    
109                            $state->{ParameterInfo}->{$name} = $writable;
110    
111                          #warn "## state = dump( $state ), "\n";                          #warn "## state = dump( $state ), "\n";
112    
113                          $state->{_trigger} = 'GetParameterNamesResponse';                          $state->{_trigger} = 'GetParameterNamesResponse';
# Line 151  sub parse { Line 158  sub parse {
158          $state = {};          $state = {};
159          $parser->parsestring( $xml );          $parser->parsestring( $xml );
160          if ( my $trigger = $state->{_trigger} ) {          if ( my $trigger = $state->{_trigger} ) {
161                  __PACKAGE__->call_trigger( $trigger, $state );                  warn "### call_trigger( $trigger )\n";
162                    $self->call_trigger( $trigger, $state );
163          }          }
164          # XXX don't propagate _trigger (useful?)          # XXX don't propagate _trigger (useful?)
165          delete( $state->{_trigger} );          delete( $state->{_trigger} );
Legend:
Removed from v.200  
changed lines
  Added in v.214
  ViewVC Help
Powered by ViewVC 1.1.26