--- google/bin/acs.pl	2007/06/18 08:36:30	29
+++ google/bin/acs.pl	2007/06/18 19:16:28	30
@@ -6,31 +6,14 @@
 
 use strict;
 
-use HTTP::Server::Simple;
+use lib './lib';
+use CWMP::Server;
 
 my $port = 3333;
 
 my $server = CWMP::Server->new( $port );
 $server->run();
 
-package CWMP::Server;
 
-use Data::Dump qw/dump/;
-
-use base qw(HTTP::Server::Simple::CGI);
-
-sub handle_request {
-	my ($self, $cgi) = @_;
-							            
-	#... do something, print output to default
-	# selected filehandle...
-
-	warn $cgi->param('POSTDATA');
-
-	print "Content-Type: text/xml\r\n\r\n";
-
-};
-
-1;