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 05dc602..f991aee 100755 (executable)
--- a/bin/cpe-queue.pl
+++ b/bin/cpe-queue.pl
@@ -113,10 +113,13 @@ if ( $list ) {
 
        warn "injecting some tests commands\n";
 
-       $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] );
+#      $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] );
 
-       $q->enqueue( 'GetParameterValues', [
-               'InternetGatewayDevice.',
-       ]);
+#      $q->enqueue( 'GetParameterValues', [
+#              'InternetGatewayDevice.',
+#      ]);
 
+       $q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
+       $q->enqueue( 'SetParameterValues', { '.ExternalIPAddress' => '192.168.1.250' });
+       $q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
 }