Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding sha1-patch provided by pirast in [9742ac09]

Browse source 
git-svn-id: svn+ssh://svn.code.sf.net/p/ddclient/code/trunk@152 3873ddee-7413-0410-b6c4-c2c57c1ab35a
This commit is contained in:
wimpunk 2013-05-14 19:10:05 +00:00
parent efc62a3d41
commit b8aa76214e
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
ddclient
View file

@ -1789,13 +1789,18 @@ EOM
###################################################################### ######################################################################
sub load_sha1_support { sub load_sha1_support {
my $sha1_loaded = eval {require Digest::SHA1}; my $sha1_loaded = eval {require Digest::SHA1};
unless ($sha1_loaded) { my $sha_loaded = eval {require Digest::SHA};
unless ($sha1_loaded || $sha_loaded) {
fatal(<<"EOM"); fatal(<<"EOM");
Error loading the Perl module Digest::SHA1 needed for freedns update. Error loading the Perl module Digest::SHA1 or Digest::SHA needed for freedns update.
On Debian, the package libdigest-sha1-perl must be installed. On Debian, the package libdigest-sha1-perl or libdigest-sha-perl must be installed.
EOM EOM
} }
if($sha1_loaded) {
import Digest::SHA1 (qw/sha1_hex/); import Digest::SHA1 (qw/sha1_hex/);
} elsif($sha_loaded) {
import Digest::SHA (qw/sha1_hex/);
}
} }
###################################################################### ######################################################################
## geturl ## geturl