|
Lines 472-477
foreach my $field (@fields_multiple)
Link Here
|
| 472 |
my $url = "${self_url_base}${PR}"; |
472 |
my $url = "${self_url_base}${PR}"; |
| 473 |
|
473 |
|
| 474 |
my $outp = ""; |
474 |
my $outp = ""; |
|
|
475 |
my $qpcont = ""; |
| 475 |
my %mime_headers; |
476 |
my %mime_headers; |
| 476 |
my $mime_boundary; |
477 |
my $mime_boundary; |
| 477 |
my $mime_endheader; |
478 |
my $mime_endheader; |
|
Lines 594-599
foreach my $field (@fields_multiple)
Link Here
|
| 594 |
if ($inresponse) { |
595 |
if ($inresponse) { |
| 595 |
my $txt = $1; |
596 |
my $txt = $1; |
| 596 |
|
597 |
|
|
|
598 |
# Detect Q-P line continuations, |
| 599 |
# join them with the next line |
| 600 |
# and process when the full line |
| 601 |
# will be assembled. |
| 602 |
if ($encoding == ENCODING_QP) { |
| 603 |
if ($txt =~ /=$/) { |
| 604 |
$txt =~ s/=$//; |
| 605 |
$qpcont .= $txt; |
| 606 |
next; |
| 607 |
} else { |
| 608 |
$txt = $qpcont . $txt; |
| 609 |
$qpcont = ""; |
| 610 |
} |
| 611 |
} |
| 612 |
|
| 597 |
if ($txt !~ /^-+$/ && $txt !~ /(?:cut|snip)/i && $txt =~ /^--(\S+)$/) { |
613 |
if ($txt !~ /^-+$/ && $txt !~ /(?:cut|snip)/i && $txt =~ /^--(\S+)$/) { |
| 598 |
$mime_boundary = $1 if (!defined $mime_boundary && !$inpatch); |
614 |
$mime_boundary = $1 if (!defined $mime_boundary && !$inpatch); |
| 599 |
|
615 |
|
|
Lines 658-665
foreach my $field (@fields_multiple)
Link Here
|
| 658 |
$outp .= $txt; |
674 |
$outp .= $txt; |
| 659 |
next; |
675 |
next; |
| 660 |
} elsif ($encoding == ENCODING_QP) { |
676 |
} elsif ($encoding == ENCODING_QP) { |
| 661 |
# XXX: lines ending in = should be joined |
|
|
| 662 |
$txt =~ s/=$//; |
| 663 |
$txt = decode_qp($txt); |
677 |
$txt = decode_qp($txt); |
| 664 |
} |
678 |
} |
| 665 |
|
679 |
|
| 666 |
- |
|
|