r218@brr: dpavlin | 2007-11-14 22:54:48 +0100

[perl-cwmp.git] / bin / cpe-queue.pl

diff --git a/bin/cpe-queue.pl b/bin/cpe-queue.pl
index c9f9c21..05dc602 100755 (executable)
--- a/bin/cpe-queue.pl
+++ b/bin/cpe-queue.pl
@@ -113,13 +113,10 @@ if ( $list ) {
 
        warn "injecting some tests commands\n";
 
-       $q->enqueue( 'SetParameterValues', {
-               'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
-#              'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,
-       });
+       $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] );
 
        $q->enqueue( 'GetParameterValues', [
-               'InternetGatewayDevice.DeviceInfo.ProvisioningCode',
+               'InternetGatewayDevice.',
        ]);
 
 }