--- google/trunk/bin/acs.pl 2007/11/12 22:00:41 196 +++ google/trunk/bin/acs.pl 2007/11/12 22:03:01 197 @@ -14,40 +14,14 @@ my $debug = 0; my $store_path = './'; my $store_plugin = 'YAML'; -my $protocol_dump = 0; GetOptions( 'debug+' => \$debug, 'port=i' => \$port, 'store-path=s' => \$store_path, 'store-plugin=s' => \$store_plugin, - 'protocol-dump!' => \$protocol_dump, ); -my $queue; - -if ( $protocol_dump ) { - - warn "generating dump of xml protocol with CPE\n"; - - $queue = [ - 'GetRPCMethods', - 'GetParameterNames', -# [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ], -# [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 ], - [ 'GetParameterValues', - 'InternetGatewayDevice.DeviceInfo.SerialNumber', - 'InternetGatewayDevice.DeviceInfo.VendorConfigFile.', - 'InternetGatewayDevice.DeviceInfo.X_000E50_Country', - ], - [ 'SetParameterValues', - 'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision', -# 'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1, - ], -# 'Reboot', - ]; -}; - my $server = CWMP::Server->new({ port => $port, @@ -57,7 +31,6 @@ debug => $debug, }, debug => $debug, - default_queue => [ $queue ], }); $server->run();