X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=bin%2Facs.pl;h=b4b1e8e48f3fde5da97b7a0be5c4e2a04d5dee23;hp=f143b4c70d6b4d1646d45a7dc4ec395c1247905f;hb=fec1acf5d1dfce1a661535d2b40b0e9d97de6005;hpb=ca6ef25dcfcb37bd49839770139c8568de69471c

diff --git a/bin/acs.pl b/bin/acs.pl
index f143b4c..b4b1e8e 100755
--- a/bin/acs.pl
+++ b/bin/acs.pl
@@ -14,40 +14,14 @@ my $port = 3333;
 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 @@ my $server = CWMP::Server->new({
 		debug => $debug,
 	},
 	debug => $debug,
-	default_queue => [ $queue ],
 });
 $server->run();