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

Applied checked_ssl_load.diff from ubuntu

Browse source 
git-svn-id: svn+ssh://svn.code.sf.net/p/ddclient/code/trunk/svn@47 3873ddee-7413-0410-b6c4-c2c57c1ab35a
This commit is contained in:
wimpunk 2007-05-19 11:22:59 +00:00
parent 71b8022af1
commit 85bb9aaee2
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
ddclient
View file

@ -1635,6 +1635,20 @@ sub encode_base64 ($;$) {
$res; $res;
} }
###################################################################### ######################################################################
## load_ssl_support
######################################################################
sub load_ssl_support {
my $ssl_loaded = eval {require IO::Socket::SSL};
unless ($ssl_loaded) {
fatal(<<"EOM");
Error loading the Perl module IO::Socket::SSL needed for SSL connect.
On Debian, the package libio-socket-ssl-perl must be installed.
EOM
}
import IO::Socket::SSL;
{ no warnings; $IO::Socket::SSL::DEBUG = 0; }
}
######################################################################
## geturl ## geturl
###################################################################### ######################################################################
sub geturl { sub geturl {
@ -1663,9 +1677,7 @@ sub geturl {
if ( $globals{'ssl'} and (caller(1))[3] ne 'main::get_ip' ) { if ( $globals{'ssl'} and (caller(1))[3] ne 'main::get_ip' ) {
$use_ssl = 1; $use_ssl = 1;
$default_port = 443; $default_port = 443;
require IO::Socket::SSL; load_ssl_support;
import IO::Socket::SSL;
{ no warnings; $IO::Socket::SSL::DEBUG = 0; }
} else { } else {
$use_ssl = 0; $use_ssl = 0;
$default_port = 80; $default_port = 80;