5 # 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
15 my $store_path = './';
16 my $store_plugin = 'YAML';
17 my $protocol_dump = 0;
22 'store-path=s' => \$store_path,
23 'store-plugin=s' => \$store_plugin,
24 'protocol-dump!' => \$protocol_dump,
29 if ( $protocol_dump ) {
31 warn "generating dump of xml protocol with CPE\n";
36 # [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ],
37 # [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 ],
38 [ 'GetParameterValues',
39 'InternetGatewayDevice.DeviceInfo.SerialNumber',
40 'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
41 'InternetGatewayDevice.DeviceInfo.X_000E50_Country',
43 [ 'SetParameterValues',
44 'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
45 # 'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,
52 my $server = CWMP::Server->new({
55 module => $store_plugin,
60 default_queue => [ $queue ],