r222@brr: dpavlin | 2007-11-15 00:01:24 +0100

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

diff --git a/bin/cpe-queue.pl b/bin/cpe-queue.pl
index c9f9c21..f991aee 100755 (executable)
--- a/bin/cpe-queue.pl
+++ b/bin/cpe-queue.pl
@@ -113,13 +113,13 @@ 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',
-       ]);
+#      $q->enqueue( 'GetParameterValues', [
+#              'InternetGatewayDevice.',
+#      ]);
 
+       $q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
+       $q->enqueue( 'SetParameterValues', { '.ExternalIPAddress' => '192.168.1.250' });
+       $q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
 }