r206@brr: dpavlin | 2007-11-12 23:02:21 +0100

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

diff --git a/bin/acs.pl b/bin/acs.pl
index d8e923d..b4b1e8e 100755 (executable)
--- a/bin/acs.pl
+++ b/bin/acs.pl
@@ -22,6 +22,7 @@ GetOptions(
        'store-plugin=s' => \$store_plugin,
 );
 
+
 my $server = CWMP::Server->new({
        port => $port,
        store => {
@@ -30,22 +31,6 @@ my $server = CWMP::Server->new({
                debug => $debug,
        },
        debug => $debug,
-       default_queue => [
-               'GetRPCMethods',
-               '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',
-       ],
 });
 $server->run();