| line |
true |
false |
branch |
|
44
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
50
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
57
|
0 |
0 |
if (my $f = $conn->{'imp_factory'}) |
|
75
|
0 |
0 |
unless $self->{'conn'} |
|
82
|
0 |
0 |
if (my $conn = $self->{'conn'}) |
|
92
|
0 |
0 |
if (my $relay = $self->{'conn'} && $self->{'conn'}{'relay'}) |
|
95
|
0 |
0 |
unless $self->{'acct'}{'code'} |
|
120
|
0 |
0 |
unless my $conn = $self->{'conn'} |
|
121
|
0 |
0 |
if ($conn->{'spool'}) |
|
123
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
128
|
0 |
0 |
unless my $relay = $conn->{'relay'} |
|
132
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
137
|
0 |
0 |
if (my $imp = $self->{'imp_analyzer'}) { } |
|
156
|
0 |
0 |
unless my $conn = $self->{'conn'} |
|
157
|
0 |
0 |
unless my $relay = $conn->{'relay'} |
|
162
|
0 |
0 |
if $met ne $xhdr->{'method'} |
|
169
|
0 |
0 |
if $xhdr->{'junk'} |
|
173
|
0 |
0 |
if ($met eq 'CONNECT') { } |
|
176
|
0 |
0 |
unless defined $self->{'me_proxy'} |
|
178
|
0 |
0 |
if $conn->{'intunnel'} |
|
181
|
0 |
0 |
unless $url =~ /^(?:\[([\w\-.:]+)\]|([\w\-.]+))(?::(\d+))$/ |
|
187
|
0 |
0 |
$host =~ /:/ ? : |
|
190
|
0 |
0 |
if ($url =~ m(^(\w+)://(?:\[([\w\-.:]+)\]|([\w\-.]+))(?::(\d+))?(.+)?)) { } |
|
202
|
0 |
0 |
if (my $h = $head->{'host'}) { } |
|
203
|
0 |
0 |
if @$h > 1 |
|
204
|
0 |
0 |
unless $h->[0] =~ /^(?:\[([\w\-.:]+)\]|([\w\-.]+))(?::(\d+))?$/ |
|
214
|
0 |
0 |
if not $port or $port > 65535 |
|
217
|
0 |
0 |
unless $path =~ m[^/] |
|
221
|
0 |
0 |
$host =~ /:/ ? : |
|
222
|
0 |
0 |
if $default_port{$proto} != $port |
|
228
|
0 |
0 |
if $conn->{'intunnel'} |
|
233
|
0 |
0 |
if ($met eq 'CONNECT' and not $self->{'up_proxy'}) |
|
242
|
0 |
0 |
unless delete $head->{'connection'} |
|
244
|
0 |
0 |
unless delete $head->{'proxy-connection'} |
|
|
0 |
0 |
defined $self->{'me_proxy'} ? : |
|
246
|
0 |
0 |
if (keys %conn > 1) { } |
|
|
0 |
0 |
elsif ($conn{'close'}) { } |
|
|
0 |
0 |
elsif ($conn{'keep-alive'}) { } |
|
253
|
0 |
0 |
if $version eq '1.1' |
|
257
|
0 |
0 |
if $version eq '1.0' |
|
264
|
0 |
0 |
if (my $via = $self->{'me_proxy'}) |
|
270
|
0 |
0 |
$self->{'up_proxy'} ? : |
|
278
|
0 |
0 |
if ($xhdr->{'internal_url'}) |
|
293
|
0 |
0 |
$met eq 'HEAD' ? : |
|
303
|
0 |
0 |
if (my $imp = $self->{'imp_analyzer'}) |
|
304
|
0 |
0 |
if (defined(my $len = $xhdr->{'content_length'})) { } |
|
313
|
0 |
0 |
if ($conn->{'intunnel'}) { } |
|
317
|
0 |
0 |
unless $self->{'up_proxy'} |
|
327
|
0 |
0 |
if ($hdr eq '') |
|
334
|
0 |
0 |
if (my $imp = $self->{'imp_analyzer'}) |
|
336
|
0 |
0 |
if ($imp->fixup_request_header(\$hdr, 'defered', 0)) { } |
|
345
|
0 |
0 |
unless my $relay = $self->{'conn'}{'relay'} |
|
346
|
0 |
0 |
if $self->{'connected'} == 1 |
|
355
|
0 |
0 |
unless my $spool = $conn->{'spool'} |
|
359
|
0 |
0 |
if $sub == \&App::HTTP_Proxy_IMP::Request::in_request_header |
|
361
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
364
|
0 |
0 |
if @$spool |
|
372
|
0 |
0 |
unless my $spool = $conn->{'spool'} |
|
376
|
0 |
0 |
if $sub == \&App::HTTP_Proxy_IMP::Request::in_request_header |
|
377
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
382
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
385
|
0 |
0 |
if @$spool |
|
397
|
0 |
0 |
unless my $conn = $self->{'conn'} |
|
398
|
0 |
0 |
unless my $relay = $conn->{'relay'} |
|
399
|
0 |
0 |
unless ($self->{'connected'}) |
|
401
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
406
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
408
|
0 |
0 |
unless ($imp) |
|
411
|
0 |
0 |
if $data ne '' and $self->{'connected'} == 1 |
|
416
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
418
|
0 |
0 |
if $data ne '' |
|
419
|
0 |
0 |
if $eof |
|
428
|
0 |
0 |
unless my $conn = $self->{'conn'} |
|
429
|
0 |
0 |
unless my $relay = $conn->{'relay'} |
|
433
|
0 |
0 |
if ($self->{'defer_rqhdr'} ne '') { } |
|
435
|
0 |
0 |
unless ($self->{'imp_analyzer'}->fixup_request_header(\$self->{'defer_rqhdr'}, 'defered', length $self->{'defer_rqbody'})) |
|
440
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
442
|
0 |
0 |
unless $eof |
|
447
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
450
|
0 |
0 |
if $self->{'connected'} == 1 |
|
454
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
455
|
0 |
0 |
if $self->{'connected'} == 1 |
|
465
|
0 |
0 |
if $xhdr->{'code'} == 100 |
|
467
|
0 |
0 |
if (my $imp = $self->{'imp_analyzer'}) { } |
|
482
|
0 |
0 |
unless my $relay = $self->{'conn'}{'relay'} |
|
488
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
493
|
0 |
0 |
if $xhdr->{'junk'} |
|
498
|
0 |
0 |
if ($xhdr->{'chunked'}) |
|
511
|
0 |
0 |
if (defined $clen) { } |
|
|
0 |
0 |
elsif ($self->{'method'} eq 'CONNECT') { } |
|
512
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
514
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
516
|
0 |
0 |
if ($version eq '1.1' and $self->{'rq_version'} eq '1.1') { } |
|
519
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
526
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
532
|
0 |
0 |
if ($version eq '1.1' and not $self->{'keep_alive'}) { } |
|
|
0 |
0 |
elsif ($version eq '1.0' and $self->{'keep_alive'}) { } |
|
549
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
552
|
0 |
0 |
if ($self->{'method'} eq 'CONNECT') |
|
572
|
0 |
0 |
if (my $imp = $self->{'imp_analyzer'}) { } |
|
574
|
0 |
0 |
if $data ne '' |
|
576
|
0 |
0 |
if $eof |
|
586
|
0 |
0 |
unless my $relay = $self->{'conn'}{'relay'} |
|
589
|
0 |
0 |
if (my $encode = $self->{'rp_encoder'}) |
|
590
|
0 |
0 |
if $data ne '' |
|
591
|
0 |
0 |
if $eof |
|
593
|
0 |
0 |
if ($data ne '') |
|
594
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
598
|
0 |
0 |
if ($eof) |
|
600
|
0 |
0 |
unless ($self->{'keep_alive'}) |
|
602
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
608
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
621
|
0 |
0 |
if (my $imp = $self->{'imp_analyzer'}) { } |
|
623
|
0 |
0 |
if $data ne '' |
|
624
|
0 |
0 |
if $eof |
|
626
|
0 |
0 |
unless my $relay = $self->{'conn'}{'relay'} |
|
627
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
628
|
0 |
0 |
if ($data ne '') |
|
629
|
0 |
0 |
if ($dir == 1) { } |
|
632
|
0 |
0 |
if $self->{'connected'} == 1 |
|
635
|
0 |
0 |
if $eof |
|
640
|
0 |
0 |
unless my $relay = $self->{'conn'}{'relay'} |
|
641
|
0 |
0 |
if $App::HTTP_Proxy_IMP::Request::DEBUG |
|
642
|
0 |
0 |
if ($data ne '') |
|
643
|
0 |
0 |
if ($dir == 1) { } |
|
646
|
0 |
0 |
if $self->{'connected'} == 1 |
|
650
|
0 |
0 |
if $eof |