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

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

revision 83 by dpavlin, Fri Jun 22 15:54:43 2007 UTC revision 84 by dpavlin, Fri Jun 22 18:25:24 2007 UTC
# Line 47  sub new { Line 47  sub new {
47    
48          confess "need sock" unless $self->sock;          confess "need sock" unless $self->sock;
49    
50            $self->debug( 0 ) unless $self->debug;
51    
52          warn "created ", __PACKAGE__, "(", dump( @_ ), ") for ", $self->sock->peerhost, "\n" if $self->debug;          warn "created ", __PACKAGE__, "(", dump( @_ ), ") for ", $self->sock->peerhost, "\n" if $self->debug;
53    
54          $self->store( CWMP::Store->new({          $self->store( CWMP::Store->new({
# Line 72  sub process_request { Line 74  sub process_request {
74    
75          my $sock = $self->sock || die "no sock?";          my $sock = $self->sock || die "no sock?";
76    
77          die "not IO::Socket::INET but ", ref( $sock ) unless ( ref($sock) eq 'IO::Socket::INET' );          die "not IO::Socket::INET but ", ref( $sock ) unless ( ref($sock) eq 'Net::Server::Proto::TCP' );
78    
79          if ( ! $sock->connected ) {          if ( ! $sock->connected ) {
80                  warn "SOCKET NOT CONNECTED\n";                  warn "SOCKET NOT CONNECTED\n";
Legend:
Removed from v.83  
changed lines
  Added in v.84
  ViewVC Help
Powered by ViewVC 1.1.26