lib/CWMP/Methods.pm

package CWMP::Response;

use strict;
use warnings;

use XML::Generator;

my $X = XML::Generator->new(':pretty');

my $ns = [
    encodingStyle => "http://schemas.xmlsoap.org/soap/encoding/",
];

my $cwmp = [ cwmp => 'urn:dslforum-org:cwmp-1-0' ];
my $soap = [ soap => "http://schemas.xmlsoap.org/soap/envelope/" ];

print $X->Envelope( $soap, { 'soap:encodingStyle' => "http://schemas.xmlsoap.org/soap/encoding/" },
        $X->Header( $soap, 
                $X->ID( $cwmp, { mustUnderstand => 1 }, 1234 ),
        ),
        $X->Body( $soap,
                $X->InformResponse( $cwmp,
                        $X->MaxEnvelopes( $cwmp, 1 )
                )
        ),
);

1	dpavlin	31	package CWMP::Response;
2
3			use strict;
4			use warnings;
5
6			use XML::Generator;
7
8			my $X = XML::Generator->new(':pretty');
9
10			my $ns = [
11			encodingStyle => "http://schemas.xmlsoap.org/soap/encoding/",
12			];
13
14			my $cwmp = [ cwmp => 'urn:dslforum-org:cwmp-1-0' ];
15			my $soap = [ soap => "http://schemas.xmlsoap.org/soap/envelope/" ];
16
17			print $X->Envelope( $soap, { 'soap:encodingStyle' => "http://schemas.xmlsoap.org/soap/encoding/" },
18			$X->Header( $soap,
19			$X->ID( $cwmp, { mustUnderstand => 1 }, 1234 ),
20			),
21			$X->Body( $soap,
22			$X->InformResponse( $cwmp,
23			$X->MaxEnvelopes( $cwmp, 1 )
24			)
25			),
26			);
27