5 # 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
15 my $store_path = './';
16 my $store_plugin = 'YAML';
21 'store-path=s' => \$store_path,
22 'store-plugin=s' => \$store_plugin,
25 my $server = CWMP::Server->new({
28 module => $store_plugin,
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,