Ignore:
Timestamp:
Sep 9, 2012, 6:26:12 PM (9 years ago)
Author:
David Benjamin <davidben@mit.edu>
Branches:
master, release-1.9
Children:
5f3f1e4, 54d9b42
Parents:
4d9e311c
Message:
Use Digest::SHA in Jabber module instead of Digest::SHA1

The cool kids spell it without the 1 these days. More precisely,
Digest::SHA1 no longer exists in precise. Also it's in perl itself these
days.

(We can just install Digest::SHA into the locker for the sysnames that
need it.)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/Net/XMPP/Protocol.pm

    r7f33c18 ra8c55b5  
    18491849    if ($authType eq "zerok")
    18501850    {
    1851         my $hashA = Digest::SHA1::sha1_hex($password);
    1852         $args{hash} = Digest::SHA1::sha1_hex($hashA.$token);
     1851        my $hashA = Digest::SHA::sha1_hex($password);
     1852        $args{hash} = Digest::SHA::sha1_hex($hashA.$token);
    18531853
    18541854        for (1..$sequence)
    18551855        {
    1856             $args{hash} = Digest::SHA1::sha1_hex($args{hash});
     1856            $args{hash} = Digest::SHA::sha1_hex($args{hash});
    18571857        }
    18581858    }
     
    18681868    if ($authType eq "digest")
    18691869    {
    1870         $args{digest} = Digest::SHA1::sha1_hex($self->GetStreamID().$password);
     1870        $args{digest} = Digest::SHA::sha1_hex($self->GetStreamID().$password);
    18711871    }
    18721872
Note: See TracChangeset for help on using the changeset viewer.