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

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

revision 49 by dpavlin, Tue Jun 19 20:02:36 2007 UTC revision 50 by dpavlin, Tue Jun 19 21:29:04 2007 UTC
# Line 84  sub xml { Line 84  sub xml {
84    
85          confess "no ID in state ", dump( $state ) unless ( $state->{ID} );          confess "no ID in state ", dump( $state ) unless ( $state->{ID} );
86    
87            warn "state used to generate xml = " . dump( $state ) if $self->debug;
88    
89          my $X = XML::Generator->new(':pretty');          my $X = XML::Generator->new(':pretty');
90    
91          return $X->Envelope( $soap, { 'soap:encodingStyle' => "http://schemas.xmlsoap.org/soap/encoding/" },          return $X->Envelope( $soap, { 'soap:encodingStyle' => "http://schemas.xmlsoap.org/soap/encoding/" },
92                  $X->Header( $soap,                  $X->Header( $soap,
93                          $X->ID( $cwmp, { mustUnderstand => 1 }, $state->{ID} ),                          $X->ID( $cwmp, { mustUnderstand => 1 }, $state->{ID} ),
94                            $X->NoMoreRequests( $cwmp, $state->{NoMoreRequests} || 0 ),
95                  ),                  ),
96                  $X->Body( $soap, $closure->( $X, $state ) ),                  $X->Body( $soap, $closure->( $X, $state ) ),
97          );          );
Legend:
Removed from v.49  
changed lines
  Added in v.50
  ViewVC Help
Powered by ViewVC 1.1.26