projects
/
usenet
/
INN.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
filter_innd: Add missing module.
[usenet/INN.git]
/
filter
/
cleanfeed.local
diff --git
a/filter/cleanfeed.local
b/filter/cleanfeed.local
index
e3b872c
..
9f1fe0f
100644
(file)
--- a/
filter/cleanfeed.local
+++ b/
filter/cleanfeed.local
@@
-1,8
+1,8
@@
-# vim: set
syntax=perl ts=4 ai si
:
+# vim: set
tabstop=4 shiftwidth=4 expandtab syntax=perl
:
use MIME::Base64();
use MIME::Base64();
-use Digest::SHA
1
();
-use Digest::
HMAC_SHA1
();
+use Digest::SHA();
+use Digest::
MD5
();
#
# local_filter_cancel
#
# local_filter_cancel
@@
-37,10
+37,13
@@
sub verify_cancel($$$) {
for my $line(split(/\s*\n/, $headers)) {
if ($line =~ m/^([[:alnum:]-]+):\s+(.*)/) {
$headers{$1} = $2;
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'};
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);
if (defined($lock)) {
my $key = $r_hdr->{'Cancel-Key'} || return "$descr of $target without Cancel-Key";
#return verify_cancel_key($key, $lock, ' target=' . $target);
@@
-66,20
+69,24
@@
sub verify_cancel_key($$$) {
my %lock;
for my $l(split(/\s+/, $cancel_lock)) {
my %lock;
for my $l(split(/\s+/, $cancel_lock)) {
- next unless($l =~ m/^(sha1|md5):(\S+)/);
+ next unless($l =~ m/^(sha
512|sha256|sha
1|md5):(\S+)/);
$lock{$2} = $1;
}
for my $k(split(/\s+/, $cancel_key)) {
$lock{$2} = $1;
}
for my $k(split(/\s+/, $cancel_key)) {
- unless($k =~ m/^(sha1|md5):(\S+)/) {
+ unless($k =~ m/^(sha
512|sha256|sha
1|md5):(\S+)/) {
INN::syslog('notice', "Invalid Cancel-Key syntax '$k'.$msg");
next;
}
my $key;
INN::syslog('notice', "Invalid Cancel-Key syntax '$k'.$msg");
next;
}
my $key;
- if ($1 eq 'sha1') {
- $key = Digest::SHA1::sha1($2); }
- elsif ($1 eq 'md5') {
+ if ($1 eq 'sha512') {
+ $key = Digest::SHA::sha512($2);
+ } elsif ($1 eq 'sha256') {
+ $key = Digest::SHA::sha256($2);
+ } elsif($1 eq 'sha1') {
+ $key = Digest::SHA::sha1($2);
+ } elsif ($1 eq 'md5') {
$key = Digest::MD5::md5($2);
}
$key = MIME::Base64::encode_base64($key, '');
$key = Digest::MD5::md5($2);
}
$key = MIME::Base64::encode_base64($key, '');
This page took
0.011903 seconds
and
4
git commands to generate.