display CPE uid (serial number) for better info
git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@197
836a5e1a-633d-0410-964b-
294494ad4392
$sock->send( "Set-Cookie: ID=" . $state->{ID} . "; path=/\r\n" ) if ( $state->{ID} );
$sock->send( "Set-Cookie: ID=" . $state->{ID} . "; path=/\r\n" ) if ( $state->{ID} );
+ my $uid = $self->store->ID_to_uid( $state->{ID}, $state );
+
my $queue = CWMP::Queue->new({
my $queue = CWMP::Queue->new({
- id => $self->store->ID_to_uid( $state->{ID}, $state ),
debug => $self->debug,
});
my $job;
debug => $self->debug,
});
my $job;
} elsif ( $job = $queue->dequeue ) {
$xml = $self->dispatch( $job->dispatch );
} elsif ( $size == 0 ) {
} elsif ( $job = $queue->dequeue ) {
$xml = $self->dispatch( $job->dispatch );
} elsif ( $size == 0 ) {
- warn ">>> no more queued commands, closing connection\n";
+ warn ">>> no more queued commands, closing connection to $uid\n";
- warn ">>> empty response\n";
+ warn ">>> empty response to $uid\n";
$state->{NoMoreRequests} = 1;
$xml = $self->dispatch( 'xml', sub {} );
}
$state->{NoMoreRequests} = 1;
$xml = $self->dispatch( 'xml', sub {} );
}
$sock->send( "Content-Length: " . length( $xml ) . "\r\n\r\n" );
$sock->send( $xml ) or die "can't send response";
$sock->send( "Content-Length: " . length( $xml ) . "\r\n\r\n" );
$sock->send( $xml ) or die "can't send response";
- warn ">>>> " . $sock->peerhost . " [" . localtime() . "] sent ", length( $xml )," bytes\n";
+ warn ">>>> " . $sock->peerhost . " [" . localtime() . "] sent ", length( $xml )," bytes to $uid\n";
- warn "### request over\n" if $self->debug;
+ warn "### request over for $uid\n" if $self->debug;
return 1; # next request
};
return 1; # next request
};