X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=bin%2Fcpe-queue.pl;h=f991aee4f94bfefacd634c57929854d5048500c2;hb=7a346eeec59e7415d184a0e76cc863863cc308f6;hp=c9f9c2105621979cb75b23265b413e8d08adf4ac;hpb=6ae55ee7caaa8c33a10a983dcc3b50928eb52914;p=perl-cwmp.git

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