- implement parametars to commands in queue (just pass array as command)

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

diff --git a/bin/acs.pl b/bin/acs.pl
index ddfa2b8..c472fd6 100755 (executable)
--- a/bin/acs.pl
+++ b/bin/acs.pl
@@ -30,11 +30,12 @@ my $server = CWMP::Server->new({
                debug => $debug,
        },
        debug => $debug,
-       default_queue => [ qw/
-               GetRPCMethods
-               GetParameterNames
-       / ],
-#              Reboot
+       default_queue => [
+               'GetRPCMethods',
+               [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ],
+               [ 'GetParameterValues', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 1 ],
+#              'Reboot',
+       ],
 });
 $server->run();