From 6f7326e660f7998766f124c9df5535ac42a89abf Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 6 Jan 2017 11:27:53 +0000
Subject: [PATCH] 01_FHEMWEB.pm: Change Digest::SHA1 to Digest::SHA (Forum
 #62001)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@12974 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/01_FHEMWEB.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FHEM/01_FHEMWEB.pm b/FHEM/01_FHEMWEB.pm
index 82183153a..8ad56d569 100755
--- a/FHEM/01_FHEMWEB.pm
+++ b/FHEM/01_FHEMWEB.pm
@@ -456,7 +456,7 @@ FW_Read($$)
   if($method eq 'GET' && $FW_httpheader{Connection} =~ /Upgrade/i && 
      $FW_use_sha) {
 
-    my $shastr = Digest::SHA1::sha1_base64($FW_httpheader{'Sec-WebSocket-Key'}.
+    my $shastr = Digest::SHA::sha1_base64($FW_httpheader{'Sec-WebSocket-Key'}.
                                 "258EAFA5-E914-47DA-95CA-C5AB0DC85B11");
 
     TcpServer_WriteBlocking($FW_chash,
@@ -2427,7 +2427,7 @@ FW_Attr(@)
   }
 
   if($attrName eq "longpoll" && $type eq "set" && $param[0] eq "websocket") {
-    eval { require Digest::SHA1; };
+    eval { require Digest::SHA; };
     if($@) {
       Log3 $FW_wname, 1, $@;
       return "$devName: Can't load Digest::SHA, no websocket";