Changeset a8c55b5 for perl/modules/Jabber/lib/Net/XMPP/Protocol.pm

Timestamp:

Sep 9, 2012, 6:26:12 PM (13 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.9

Children:

736835d, 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:

• perl/modules/Jabber/lib/Net/XMPP/Protocol.pm (modified) (2 diffs)

perl/modules/Jabber/lib/Net/XMPP/Protocol.pm

@@ -1849 +1849 @@
     if ($authType eq "zerok")
     {
-        my $hashA = Digest::SHA1::sha1_hex($password);
-        $args{hash} = Digest::SHA1::sha1_hex($hashA.$token);
+        my $hashA = Digest::SHA::sha1_hex($password);
+        $args{hash} = Digest::SHA::sha1_hex($hashA.$token);
 
         for (1..$sequence)
         {
-            $args{hash} = Digest::SHA1::sha1_hex($args{hash});
+            $args{hash} = Digest::SHA::sha1_hex($args{hash});
         }
     }
@@ -1868 +1868 @@
     if ($authType eq "digest")
     {
-        $args{digest} = Digest::SHA1::sha1_hex($self->GetStreamID().$password);
+        $args{digest} = Digest::SHA::sha1_hex($self->GetStreamID().$password);
     }