/[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 49 by dpavlin, Tue Jun 19 19:50:29 2007 UTC revision 50 by dpavlin, Tue Jun 19 21:29:04 2007 UTC
# Line 102  my $parser = XML::Rules->new( Line 102  my $parser = XML::Rules->new(
102                          my ($tag_name, $tag_hash, $context, $parent_data) = @_;                          my ($tag_name, $tag_hash, $context, $parent_data) = @_;
103                          $state->{MethodList} = _tag( $tag_hash, 'string' );                          $state->{MethodList} = _tag( $tag_hash, 'string' );
104                  },                        },      
105                    #
106                    # Fault
107                    #
108                    qr/^Fault$/ => sub {
109                            my ($tag_name, $tag_hash, $context, $parent_data) = @_;
110                            $state->{Fault} = {
111                                    FaultCode => _tag( $tag_hash, 'FaultCode', '_content' ),
112                                    FaultString => _tag( $tag_hash, 'FaultString', '_content' ),
113                            };
114                            warn "FAULT: ", $state->{Fault}->{FaultCode}, " ", $state->{Fault}->{FaultString}, "\n";
115                    }
116          ]          ]
117  );  );
118    
Legend:
Removed from v.49  
changed lines
  Added in v.50
  ViewVC Help
Powered by ViewVC 1.1.26