Mercurial > hg > monetdb-perl

comparison MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm @ 56:cbac6d996b87 v1.3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Version 1.3.
author Sjoerd Mullender <sjoerd@acm.org>
date Mon, 31 Oct 2022 16:18:43 +0100 (2022-10-31)
parents 91ec04bb88c6
children
comparison
equal deleted inserted replaced
55:94f4232ebfcb 56:cbac6d996b87
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.2'; 15 our $VERSION = '1.3';
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];