36 |
warn "generating dump of xml protocol with CPE\n"; |
warn "generating dump of xml protocol with CPE\n"; |
37 |
|
|
38 |
$q->enqueue( 'GetRPCMethods' ); |
$q->enqueue( 'GetRPCMethods' ); |
|
$q->enqueue( 'GetParameterNames' ); |
|
39 |
|
|
40 |
$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ] ); |
$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ] ); |
41 |
$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.', 1 ] ); |
$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.', 1 ] ); |
50 |
# 'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1, |
# 'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1, |
51 |
}); |
}); |
52 |
|
|
53 |
# $q->enqueue( 'Reboot' ); |
$q->enqueue( 'Reboot' ); |
54 |
|
|
55 |
} |
} |
56 |
|
|
118 |
# 'InternetGatewayDevice.', |
# 'InternetGatewayDevice.', |
119 |
# ]); |
# ]); |
120 |
|
|
121 |
$q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] ); |
# $q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] ); |
122 |
$q->enqueue( 'SetParameterValues', { '.ExternalIPAddress' => '192.168.1.250' }); |
$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.', 1 ] ); |
|
$q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] ); |
|
123 |
} |
} |