Mercurial > hg > monetdb-perl

comparison MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm @ 51:91ec04bb88c6 v1.2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Version 1.2.
author Sjoerd Mullender <sjoerd@acm.org>
date Thu, 15 Jul 2021 13:28:58 +0200 (2021-07-15)
parents 96edc4137944
children cbac6d996b87
comparison
equal deleted inserted replaced
50:96edc4137944 51:91ec04bb88c6
10 use Socket; 10 use Socket;
11 use IO::Socket; 11 use IO::Socket;
12 use Digest::MD5 'md5_hex'; 12 use Digest::MD5 'md5_hex';
13 use Digest::SHA qw(sha1_hex sha256_hex sha512_hex); 13 use Digest::SHA qw(sha1_hex sha256_hex sha512_hex);
14 14
15 our $VERSION = '1.1'; 15 our $VERSION = '1.2';
16 16
17 sub pass_chal { 17 sub pass_chal {
18 my ($passwd, @challenge) = @_; 18 my ($passwd, @challenge) = @_;
19 if ($challenge[2] == 9) { 19 if ($challenge[2] == 9) {
20 my $pwhash = $challenge[5]; 20 my $pwhash = $challenge[5];