projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove debug messages all over chunked code
[perl-cwmp.git]
/
lib
/
CWMP
/
Server.pm
diff --git
a/lib/CWMP/Server.pm
b/lib/CWMP/Server.pm
index
f69ece6
..
f90b115
100644
(file)
--- a/
lib/CWMP/Server.pm
+++ b/
lib/CWMP/Server.pm
@@
-125,8
+125,6
@@
sub sock_session {
return $sock->connected unless $headers;
return $sock->connected unless $headers;
-warn dump( $headers );
-
warn "missing $_ header\n" foreach grep { ! defined $headers->{ lc $_ } } ( 'SOAPAction' );
my $body;
warn "missing $_ header\n" foreach grep { ! defined $headers->{ lc $_ } } ( 'SOAPAction' );
my $body;
@@
-134,16
+132,12
@@
warn dump( $headers );
read( $sock, $body, $len );
} elsif ( $headers->{'transfer-encoding'} =~ m/^chunked/i ) {
while ( my $len = <$sock> ) {
read( $sock, $body, $len );
} elsif ( $headers->{'transfer-encoding'} =~ m/^chunked/i ) {
while ( my $len = <$sock> ) {
-warn "chunked ",dump($len);
$len =~ s/[\r\n]+$//;
$len = hex($len);
last if $len == 0;
$len =~ s/[\r\n]+$//;
$len = hex($len);
last if $len == 0;
-warn "reading $len bytes\n";
read( $sock, my $chunk, $len );
read( $sock, my $chunk, $len );
-warn "|$chunk| $len == ", length($chunk);
$body .= $chunk;
my $padding = <$sock>;
$body .= $chunk;
my $padding = <$sock>;
-warn "padding ",dump($padding);
}
} else {
warn "empty request\n";
}
} else {
warn "empty request\n";