Merge branch 'master' of ssh://git.rot13.org/git/perl-cwmp
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 8 Mar 2010 10:59:48 +0000 (11:59 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 8 Mar 2010 10:59:48 +0000 (11:59 +0100)
lib/CWMP/Methods.pm
t/methods/GetRPCMethods.xml
t/methods/SetParameterValues.xml

index 5721c41..d614630 100644 (file)
@@ -77,7 +77,7 @@ sub GetRPCMethods {
        my ( $self, $state ) = @_;
        $self->xml( $state, sub {
                my ( $X, $state ) = @_;
-               $X->GetRPCMethods();
+               $X->GetRPCMethods( $cwmp, '' );
        });
 };
 
index 259756b..c52aa65 100644 (file)
@@ -6,6 +6,6 @@
     <cwmp:NoMoreRequests>0</cwmp:NoMoreRequests>
   </soap:Header>
   <soap:Body>
-    <GetRPCMethods />
+    <cwmp:GetRPCMethods></cwmp:GetRPCMethods>
   </soap:Body>
 </soap:Envelope>
\ No newline at end of file
index f72471c..acdc028 100644 (file)
@@ -7,16 +7,16 @@
   </soap:Header>
   <soap:Body>
     <cwmp:SetParameterValues>
-      <cwmp:ParameterList>
-        <cwmp:ParameterValueStruct>
-          <cwmp:Name>InternetGatewayDevice.DeviceInfo.ProvisioningCode</cwmp:Name>
-          <cwmp:Value>test provision</cwmp:Value>
-        </cwmp:ParameterValueStruct>
-        <cwmp:ParameterValueStruct>
-          <cwmp:Name>InternetGatewayDevice.DeviceInfo.X_000E50_Country</cwmp:Name>
-          <cwmp:Value>42</cwmp:Value>
-        </cwmp:ParameterValueStruct>
-      </cwmp:ParameterList>
+      <ParameterList>
+        <ParameterValueStruct>
+          <Name>InternetGatewayDevice.DeviceInfo.ProvisioningCode</Name>
+          <Value>test provision</Value>
+        </ParameterValueStruct>
+        <ParameterValueStruct>
+          <Name>InternetGatewayDevice.DeviceInfo.X_000E50_Country</Name>
+          <Value>42</Value>
+        </ParameterValueStruct>
+      </ParameterList>
     </cwmp:SetParameterValues>
   </soap:Body>
 </soap:Envelope>
\ No newline at end of file