1 |
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 |
|