-# vim: set syntax=perl ts=4 ai si:
+# vim: set tabstop=4 shiftwidth=4 expandtab syntax=perl:
use MIME::Base64();
use Digest::SHA();
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);