lib/CWMP/Response.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	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