/[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 208 by dpavlin, Sun Nov 18 12:58:40 2007 UTC revision 209 by dpavlin, Sun Nov 18 16:43:09 2007 UTC
# Line 113  sub process_request { Line 113  sub process_request {
113    
114          if ( $self->create_dump ) {          if ( $self->create_dump ) {
115                  write_file( $file, $r->as_string );                  write_file( $file, $r->as_string );
116                  warn "### request dumped to file: $file\n";                  warn "### request dumped to file: $file\n" if $self->debug;
117          }          }
118    
119          my $state;          my $state;
# Line 131  sub process_request { Line 131  sub process_request {
131                          symlink $file, $type || warn "can't symlink $file -> $type: $!";                          symlink $file, $type || warn "can't symlink $file -> $type: $!";
132                  }                  }
133    
134                  warn "## acquired state = ", dump( $state ), "\n";                  warn "## acquired state = ", dump( $state ), "\n" if $self->debug;
135    
136                  if ( ! defined( $state->{DeviceID} ) ) {                  if ( ! defined( $state->{DeviceID} ) ) {
137                          warn "## state with DeviceID, using old one...\n";                          warn "## state with DeviceID, using old one...\n";
# Line 216  sub dispatch { Line 216  sub dispatch {
216                  if ( $self->create_dump ) {                  if ( $self->create_dump ) {
217                          my $file = sprintf("dump/%04d-%s.response", $dump_nr++, $self->sock->peerhost);                          my $file = sprintf("dump/%04d-%s.response", $dump_nr++, $self->sock->peerhost);
218                          write_file( $file, $xml );                          write_file( $file, $xml );
219                          warn "### response dump: $file\n";                          warn "### response dump: $file\n" if $self->debug;
220                  }                  }
221                  return $xml;                  return $xml;
222          } else {          } else {
Legend:
Removed from v.208  
changed lines
  Added in v.209
  ViewVC Help
Powered by ViewVC 1.1.26