--- google/bin/acs.pl	2007/06/19 22:06:46	53
+++ google/bin/acs.pl	2007/06/20 21:31:03	57
@@ -8,17 +8,24 @@
 
 use lib './lib';
 use CWMP::Server;
+use Getopt::Long;
 
 my $port = 3333;
-my $debug = shift @ARGV;
+my $debug = 0;
+
+GetOptions(
+	'debug+' => \$debug,
+	'port=i' => \$port,
+);
 
 my $server = CWMP::Server->new({
 	port => $port,
 	debug => $debug,
 	queue => [ qw/
 		GetRPCMethods
-		Reboot
+		GetParameterNames
 	/ ],
+#		Reboot
 });
 $server->run();