projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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";
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 ] );
}
}