another swiping change and bump to version [0.08]

[perl-cwmp.git] / bin / acs.pl

diff --git a/bin/acs.pl b/bin/acs.pl
index 461aca8..d8e923d 100755 (executable)
--- a/bin/acs.pl
+++ b/bin/acs.pl
@@ -32,11 +32,17 @@ my $server = CWMP::Server->new({
        debug => $debug,
        default_queue => [
                'GetRPCMethods',
-               [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ],
-               [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 ],
+               'GetParameterNames',
+#              [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ],
+#              [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 ],
                [ 'GetParameterValues',
                        'InternetGatewayDevice.DeviceInfo.SerialNumber',
                        'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
+                       'InternetGatewayDevice.DeviceInfo.X_000E50_Country',
+               ],
+               [ 'SetParameterValues',
+                       'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
+#                      'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,
                ],
 #              'Reboot',
        ],