--- google/acs.pl	2007/05/21 12:06:04	12
+++ google/acs.pl	2007/05/21 15:27:38	15
@@ -5,7 +5,10 @@
 
 use lib 'lib';
 use SOAP::Transport::HTTP +trace => 'debug';
-use SOAP::Lite +trace => 'debug';
+use HTTP::Cookies;
+use CGI::Simple::Cookie;
+
+SOAP::Trace->import( 'all' );
 
 # Eh...
 $SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND = 1;
@@ -23,6 +26,11 @@
 	)
 ;
 
+my $cookies = new CGI::Simple::Cookie(
+	-name => 'foo',
+	-value => 'bar',
+);
+$daemon->options->{simple_cookie} = $cookies;
 
 print "Contact to ACS server at ", $daemon->url, "\n";
 $daemon->handle;
@@ -99,10 +107,10 @@
 	my @results = (
 		SOAP::Header->name('ID' => $ID)->prefix('cwmp')->mustUnderstand(1),
 		SOAP::Data->name('GetParameterValues' =>
-			'ParameterNames' => [
+			\SOAP::Data->value( 'ParametarNames' => [
 				'InternetGatewayDevice.ManagementServer.',
 				'a.', 'a.b.', 'a.b.c.',
-			],
+			]),
 		)->prefix('cwmp'),
 	);
 
@@ -115,7 +123,7 @@
 	my $xml = $result;
 	$xml =~ s/</\n</gs;
 
-	print "empty request result: $xml\n";
+	print "empty request result: $xml\n", dump( $self->request->headers, $self->response->headers, $self->packager->headers_http );
 
 	return $result;
 }