From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 18 Nov 2007 17:27:57 +0000 (+0000)
Subject:  r236@brr:  dpavlin | 2007-11-18 18:21:09 +0100
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=7be6369d2f8ce2bedd88f1012fd1f8a9754e1515

 r236@brr:  dpavlin | 2007-11-18 18:21:09 +0100
 tweaks


git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@211 836a5e1a-633d-0410-964b-294494ad4392
---

diff --git a/bin/cpe-queue.pl b/bin/cpe-queue.pl
index f991aee..7e2e89a 100755
--- a/bin/cpe-queue.pl
+++ b/bin/cpe-queue.pl
@@ -36,7 +36,6 @@ if ( $protocol_dump ) {
 	warn "generating dump of xml protocol with CPE\n";
 
 	$q->enqueue( 'GetRPCMethods' );
-	$q->enqueue( 'GetParameterNames' );
 
 	$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ] );
 	$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.', 1 ] );
@@ -51,7 +50,7 @@ if ( $protocol_dump ) {
 #		'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,
 	});
 
-#	$q->enqueue( 'Reboot' );
+	$q->enqueue( 'Reboot' );
 
 }
 
@@ -119,7 +118,6 @@ if ( $list ) {
 #		'InternetGatewayDevice.',
 #	]);
 
-	$q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
-	$q->enqueue( 'SetParameterValues', { '.ExternalIPAddress' => '192.168.1.250' });
-	$q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
+#	$q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
+	$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.', 1 ] );
 }