rooty/yubikey-ksm
1
0
Fork 0
mirror of https://github.com/Yubico/yubikey-ksm.git synced 2025-01-20 01:52:17 +01:00
Code Issues Projects Releases Wiki Activity

Replaced DIGEST::SHA1 with DIGEST::SHA.

Browse Source
This commit is contained in:
Dain Nilsson 2012-12-18 11:06:55 +01:00
parent 36c077196d
commit bdda65d4cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ykksm-checksum.pl
View File

@ -31,7 +31,7 @@
use strict; use strict;
use DBI; use DBI;
use POSIX qw(strftime); use POSIX qw(strftime);
use Digest::SHA1; use Digest::SHA;
sub usage { sub usage {
print "Usage: $0 [--verbose] [--help]\n"; print "Usage: $0 [--verbose] [--help]\n";
@ -87,7 +87,7 @@ my $sth = $dbh->prepare ('SELECT serialnr, publicname, internalname, aeskey '.
$sth->execute() $sth->execute()
or die "Couldn't execute statement: " . $sth->errstr; or die "Couldn't execute statement: " . $sth->errstr;
my $sha1 = Digest::SHA1->new; my $sha1 = Digest::SHA->new(1);
my $row; my $row;
while ($row = $sth->fetchrow_hashref()) { while ($row = $sth->fetchrow_hashref()) {