## LW module manager stuff ## %AVAILABLE = (); $LW_SSL_LIB = 0; $LW_NONBLOCK_CONNECT=0; eval "require MIME::Base64"; if(!$@){ $AVAILABLE{'mime::base64'}=$MIME::Base64::VERSION; 1 if($MIME::Base64::VERSION); } eval "require MD5"; if(!$@){ $AVAILABLE{'md5'}=$MD5::VERSION; 1 if($MD5::VERSION); } eval "use Socket"; if(!$@){ $AVAILABLE{'socket'}=$Socket::VERSION; eval "use Net::SSLeay"; # do we have SSL support? if(!$@){ $LW_SSL_LIB=1; $AVAILABLE{'net::ssleay'}=$Net::SSLeay::VERSION; 1 if($Net::SSLeay::VERSION); Net::SSLeay::load_error_strings(); Net::SSLeay::SSLeay_add_ssl_algorithms(); Net::SSLeay::randomize(); } else { eval "use Net::SSL"; if(!$@){ $LW_SSL_LIB=2; $AVAILABLE{'net::ssl'}=$Net::SSL::VERSION; 1 if($Net::SSL::VERSION); } } if($^O!~/Win32/){ eval "use POSIX qw(:errno_h :fcntl_h)"; if(!$@){ $LW_NONBLOCK_CONNECT=1; } } }