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