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

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

revision 32 by dpavlin, Mon Jun 18 23:52:41 2007 UTC revision 38 by dpavlin, Tue Jun 19 09:43:57 2007 UTC
# Line 3  package CWMP::Response; Line 3  package CWMP::Response;
3  use strict;  use strict;
4  use warnings;  use warnings;
5    
 use XML::Generator;  
6  use base qw/Class::Accessor/;  use base qw/Class::Accessor/;
7  __PACKAGE__->add_accessor( qw/  __PACKAGE__->add_accessor( qw/
8  debug  debug
9  /);  /);
10    
11    use XML::Generator;
12    use Carp qw/confess/;
13    use Data::Dump qw/dump/;
14    
15  =head1 NAME  =head1 NAME
16    
17  CWMP::Response - generate SOAP meesage for response  CWMP::Response - generate SOAP meesage for response
# Line 36  my $soap = [ soap => "http://schemas.xml Line 39  my $soap = [ soap => "http://schemas.xml
39    
40  =head2 Inform  =head2 Inform
41    
42    $response->Inform;    $response->Inform( $state );
43    
44  =cut  =cut
45    
46  sub Inform {  sub Inform {
47          my $self = shift;          my $self = shift;
48    
49            my $state = shift or confess "no state?";
50    
51            confess "no ID in state ", dump( $state ) unless ( $state->{ID} );
52    
53          my $X = XML::Generator->new(':pretty');          my $X = XML::Generator->new(':pretty');
54    
55          return $X->Envelope( $soap, { 'soap:encodingStyle' => "http://schemas.xmlsoap.org/soap/encoding/" },          return $X->Envelope( $soap, { 'soap:encodingStyle' => "http://schemas.xmlsoap.org/soap/encoding/" },
56                  $X->Header( $soap,                  $X->Header( $soap,
57                          $X->ID( $cwmp, { mustUnderstand => 1 }, 1234 ),                          $X->ID( $cwmp, { mustUnderstand => 1 }, $state->{ID} ),
58                  ),                  ),
59                  $X->Body( $soap,                  $X->Body( $soap,
60                          $X->InformResponse( $cwmp,                          $X->InformResponse( $cwmp,
Legend:
Removed from v.32  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.26