/[cwmp]/google/trunk/lib/CWMP/Session.pm
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/trunk/lib/CWMP/Session.pm

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

revision 119 by dpavlin, Fri Oct 26 15:51:27 2007 UTC revision 127 by dpavlin, Fri Oct 26 16:52:24 2007 UTC
# Line 102  sub process_request { Line 102  sub process_request {
102          warn "<<<< ", $sock->peerhost, " [" . localtime() . "] ", $r->method, " ", $r->uri, " $size bytes\n";          warn "<<<< ", $sock->peerhost, " [" . localtime() . "] ", $r->method, " ", $r->uri, " $size bytes\n";
103    
104          if ( $self->debug > 2 ) {          if ( $self->debug > 2 ) {
105                  my $file = sprintf("dump/%04d.request", $dump_nr++);                  my $file = sprintf("dump/%04d-%s.request", $dump_nr++, $sock->peerhost);
106                  write_file( $file, $r->as_string );                  write_file( $file, $r->as_string );
107                  warn "### request dump: $file\n";                  warn "### request dump: $file\n";
108          }          }
# Line 184  sub dispatch { Line 184  sub dispatch {
184                  my $xml = $response->$dispatch( $self->state, @_ );                  my $xml = $response->$dispatch( $self->state, @_ );
185                  warn "## response payload: ",length($xml)," bytes\n$xml\n" if $self->debug;                  warn "## response payload: ",length($xml)," bytes\n$xml\n" if $self->debug;
186                  if ( $self->debug > 2 ) {                  if ( $self->debug > 2 ) {
187                          my $file = sprintf("dump/%04d.response", $dump_nr++);                          my $file = sprintf("dump/%04d-%s.response", $dump_nr++, $self->sock->peerhost);
188                          write_file( $file, $xml );                          write_file( $file, $xml );
189                          warn "### response dump: $file\n";                          warn "### response dump: $file\n";
190                  }                  }
Legend:
Removed from v.119  
changed lines
  Added in v.127
  ViewVC Help
Powered by ViewVC 1.1.26