/[cwmp]/google/acs.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/acs.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by dpavlin, Mon May 21 12:06:04 2007 UTC revision 15 by dpavlin, Mon May 21 15:27:38 2007 UTC
# Line 5  use strict; Line 5  use strict;
5    
6  use lib 'lib';  use lib 'lib';
7  use SOAP::Transport::HTTP +trace => 'debug';  use SOAP::Transport::HTTP +trace => 'debug';
8  use SOAP::Lite +trace => 'debug';  use HTTP::Cookies;
9    use CGI::Simple::Cookie;
10    
11    SOAP::Trace->import( 'all' );
12    
13  # Eh...  # Eh...
14  $SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND = 1;  $SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND = 1;
# Line 23  my $daemon = SOAP::Transport::HTTP::Daem Line 26  my $daemon = SOAP::Transport::HTTP::Daem
26          )          )
27  ;  ;
28    
29    my $cookies = new CGI::Simple::Cookie(
30            -name => 'foo',
31            -value => 'bar',
32    );
33    $daemon->options->{simple_cookie} = $cookies;
34    
35  print "Contact to ACS server at ", $daemon->url, "\n";  print "Contact to ACS server at ", $daemon->url, "\n";
36  $daemon->handle;  $daemon->handle;
# Line 99  sub empty_request { Line 107  sub empty_request {
107          my @results = (          my @results = (
108                  SOAP::Header->name('ID' => $ID)->prefix('cwmp')->mustUnderstand(1),                  SOAP::Header->name('ID' => $ID)->prefix('cwmp')->mustUnderstand(1),
109                  SOAP::Data->name('GetParameterValues' =>                  SOAP::Data->name('GetParameterValues' =>
110                          'ParameterNames' => [                          \SOAP::Data->value( 'ParametarNames' => [
111                                  'InternetGatewayDevice.ManagementServer.',                                  'InternetGatewayDevice.ManagementServer.',
112                                  'a.', 'a.b.', 'a.b.c.',                                  'a.', 'a.b.', 'a.b.c.',
113                          ],                          ]),
114                  )->prefix('cwmp'),                  )->prefix('cwmp'),
115          );          );
116    
# Line 115  sub empty_request { Line 123  sub empty_request {
123          my $xml = $result;          my $xml = $result;
124          $xml =~ s/</\n</gs;          $xml =~ s/</\n</gs;
125    
126          print "empty request result: $xml\n";          print "empty request result: $xml\n", dump( $self->request->headers, $self->response->headers, $self->packager->headers_http );
127    
128          return $result;          return $result;
129  }  }
Legend:
Removed from v.12  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.26