X-Git-Url: https://code.th-h.de/?p=usenet%2FINN.git;a=blobdiff_plain;f=filter%2Fcleanfeed.local;fp=filter%2Fcleanfeed.local;h=ef678c16dd31acb69eeb50bc5976832e75407802;hp=3d37c7d39ff919967ce04042f085bc92cbe6b398;hb=0ed9a8166df528d403e3ad998e583224947b72ae;hpb=121fcbc15fec7c04c43689f38ccbbbac2862a71e diff --git a/filter/cleanfeed.local b/filter/cleanfeed.local index 3d37c7d..ef678c1 100644 --- a/filter/cleanfeed.local +++ b/filter/cleanfeed.local @@ -1,4 +1,4 @@ -# vim: set syntax=perl ts=4 ai si: +# vim: set tabstop=4 shiftwidth=4 expandtab syntax=perl: use MIME::Base64(); use Digest::SHA(); @@ -36,10 +36,13 @@ sub verify_cancel($$$) { for my $line(split(/\s*\n/, $headers)) { if ($line =~ m/^([[:alnum:]-]+):\s+(.*)/) { $headers{$1} = $2; + $lastkey = $1; + } elsif ($line =~ m/^\s+(.*)/ and defined($lastkey)) { + $headers{$lastkey} .= ' ' . $1; } } - my $lock = $headers{'Cancel-Lock'}; + if (defined($lock)) { my $key = $r_hdr->{'Cancel-Key'} || return "$descr of $target without Cancel-Key"; #return verify_cancel_key($key, $lock, ' target=' . $target);