--- google/bin/acs.pl	2007/06/19 22:06:46	53
+++ google/trunk/bin/acs.pl	2007/10/28 19:47:30	178
@@ -8,17 +8,44 @@
 
 use lib './lib';
 use CWMP::Server;
+use Getopt::Long;
 
 my $port = 3333;
-my $debug = shift @ARGV;
+my $debug = 0;
+my $store_path = './';
+my $store_plugin = 'YAML';
+
+GetOptions(
+	'debug+' => \$debug,
+	'port=i' => \$port,
+	'store-path=s' => \$store_path,
+	'store-plugin=s' => \$store_plugin,
+);
 
 my $server = CWMP::Server->new({
 	port => $port,
+	store => {
+		module => $store_plugin,
+		path => $store_path,
+		debug => $debug,
+	},
 	debug => $debug,
-	queue => [ qw/
-		GetRPCMethods
-		Reboot
-	/ ],
+	default_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',
+	],
 });
 $server->run();