113 |
|
|
114 |
warn "injecting some tests commands\n"; |
warn "injecting some tests commands\n"; |
115 |
|
|
116 |
$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] ); |
# $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] ); |
117 |
|
|
118 |
$q->enqueue( 'GetParameterValues', [ |
# $q->enqueue( 'GetParameterValues', [ |
119 |
'InternetGatewayDevice.', |
# 'InternetGatewayDevice.', |
120 |
]); |
# ]); |
121 |
|
|
122 |
|
$q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] ); |
123 |
|
$q->enqueue( 'SetParameterValues', { '.ExternalIPAddress' => '192.168.1.250' }); |
124 |
|
$q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] ); |
125 |
} |
} |