X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=bin%2Fcpe-queue.pl;h=f991aee4f94bfefacd634c57929854d5048500c2;hb=12a50bdc9389aa9a6dd5011365c11ed2091106e7;hp=05dc602668a6830e18600ce422943b5d37d024ac;hpb=c65d35f21aa8ffd43d5c993f710cd2d6c377591f;p=perl-cwmp.git

diff --git a/bin/cpe-queue.pl b/bin/cpe-queue.pl
index 05dc602..f991aee 100755
--- 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 ] );
 }