Replace Digest::SHA1 with Digest::SHA.
Installation of install libdigest-sha-perl
is necessary.
Signed-off-by: Thomas Hochstein <thh@inter.net>
# vim: set syntax=perl ts=4 ai si:
use MIME::Base64();
# vim: set syntax=perl ts=4 ai si:
use MIME::Base64();
my $key;
if ($1 eq 'sha1') {
my $key;
if ($1 eq 'sha1') {
- $key = Digest::SHA1::sha1($2); }
+ $key = Digest::SHA::sha1($2); }
elsif ($1 eq 'md5') {
$key = Digest::MD5::md5($2);
}
elsif ($1 eq 'md5') {
$key = Digest::MD5::md5($2);
}
# Do any initialization steps.
#
use Digest::MD5 qw(md5_base64);
# Do any initialization steps.
#
use Digest::MD5 qw(md5_base64);
use Digest::HMAC_SHA1();
use MIME::Base64();
use Digest::HMAC_SHA1();
use MIME::Base64();
elsif (exists( $hdr{"Supersedes"} )) {
my $key = calc_cancel_key($user, $hdr{"Supersedes"});
add_cancel_item(\%hdr, 'Cancel-Key', $key);
elsif (exists( $hdr{"Supersedes"} )) {
my $key = calc_cancel_key($user, $hdr{"Supersedes"});
add_cancel_item(\%hdr, 'Cancel-Key', $key);
sub add_cancel_lock($$) {
my ( $r_hdr, $user ) = @_;
my $key = calc_cancel_key($user, $r_hdr->{'Message-ID'});
sub add_cancel_lock($$) {
my ( $r_hdr, $user ) = @_;
my $key = calc_cancel_key($user, $r_hdr->{'Message-ID'});
- my $lock = MIME::Base64::encode(Digest::SHA1::sha1($key), '');
+ my $lock = MIME::Base64::encode(Digest::SHA::sha1($key), '');
add_cancel_item($r_hdr, 'Cancel-Lock', $lock);
add_cancel_item($r_hdr, 'Cancel-Lock', $lock);
-}
\ No newline at end of file