MIDAS Server Readiness Check v$iv

#!/usr/bin/perl #EDIT THE ABOVE LINE TO REFLECT THE LOCATION OF PERL ON YOUR SERVER ##### DO NOT EDIT ANYTHING BELOW THIS LINE ##### use strict;use utf8;use lib qw(.);use version;my$iv='1.37';my$fname="servercheck.pl";$|=1;if(!defined $ENV{GATEWAY_INTERFACE}){print "The MIDAS Server Readiness Tool is not designed to be run from the command line\n\nPlease access this tool via your web browser instead\n\n\nPress ENTER to exit\n";;exit}$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;my$cwd=$ENV{SCRIPT_FILENAME};if($cwd){$cwd=~s!(?:[^/\\]*)$!!}else{($_=$0)=~s![\\/][^\\/]+$!!;unshift@INC,$_;$cwd=$_};$cwd=~s/\\/\//g;$cwd=~s!\.\./|[%\$\|]!!g;$cwd=$1 if $cwd=~m!^([-\@\w./:~ ]+)\z!;my%in=parse();my$act=$in{act};my$proxy=$in{proxy}||'';my$user=$in{user}||'';my$pass=$in{pass}||'';my$nolog=$in{nolog}||'';if($in{debug}){require CGI::Carp;CGI::Carp->import('fatalsToBrowser','set_message');set_message('For help, please refer to the MIDAS Knowledge Base')}if(($proxy)&&($user)&&($pass)){$ENV{HTTPS_PROXY}=$proxy;$ENV{HTTPS_PROXY_USERNAME}=$user;$ENV{HTTPS_PROXY_PASSWORD}=$pass}my$protocol=(lc($ENV{HTTPS})=~m/on|yes|1/)?"https://":"http://";my$pv;if($^V=~m/\d/){$pv=$^V}else{if($]=~m/(\d\.\d{3})/){$pv=$1;$pv=~s/\.0+/\./}else{$pv=$]}}my$pvn=$pv;$pv=~s/[^\d|\.]//img;$pv=version->declare($pv)->numify;if(!$act){splash()}elsif($act eq "starttests"){starttests()}elsif($act eq "runtest"){runtest()}elsif($act eq "ssltest"){print "content-type:text/html;charset=UTF-8\n\n1"}elsif($act eq "getmod"){getmod()}elsif($act eq "getlog"){getlog()}sub pagehead {print "content-type:text/html;charset=UTF-8\n\n";print qq~ MIDAS Server Readiness Check v$iv

Server Check v$iv

~}sub pagefoot {print qq~

~}sub splash {pagehead();if(${^TAINT}!=1){print qq~

~}print qq~

IS YOUR SERVER READY FOR MIDAS?

This tool will check your server setup to determine whether you're able to install and run MIDAS on this server.

Anonymous usage statistics are collected to allow us to improve our software. No personally identifiable information is collected during this process.

THIS TOOL IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT WILL THE AUTHOR BE LIABLE TO YOU FOR INDIRECT, SPECIAL, OR CONSEQUENTIAL DAMAGES, ARISING OUT OF ANY USE THEREOF OR BREACH OF ANY WARRANTY, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.

Click "Begin Test" to begin. This process may take a moment or so to complete. Please do not worry if your browser appears unresponsive during this process - this is normal!

~;if(${^TAINT}!=1){print qq~~}else{print qq~

ERROR: TAINT MODE DETECTED
Perl appears to be running in "Taint" mode.
You will need to disable this before proceeding - [More information]

~}print qq~

~;pagefoot()}sub starttests{pagehead();my$button=(-e "$cwd/install.pl")?qq~~:qq~~;print qq~

Your Server:

$ENV{SERVER_SOFTWARE} $^O (Perl: $pv)

Server Test Results:

Passed: 0

Failed: 0

Warnings: 0

Next Steps:

~;pagefoot()}sub geturl{my($url,$p)=@_;require LWP::UserAgent;LWP::UserAgent->import();eval{require IO::Socket::SSL};if($@){$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0}my$ua;if($url=~m/https:/i){$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;require IO::Socket::SSL;IO::Socket::SSL->import('SSL_VERIFY_NONE');my$svm=$IO::Socket::SSL::SSL_VERIFY_NONE;$ua=LWP::UserAgent->new(env_proxy=>0,keep_alive=>0,timeout=>30,agent =>"MIDAS i$iv",ssl_opts=>{verify_hostname=>0, SSL_verify_mode=>$svm})}else{$ua=LWP::UserAgent->new(env_proxy=>0,keep_alive=>0,timeout=>30,agent =>"MIDAS i$iv")}if(($p)&&($proxy)){$ENV{HTTPS_PROXY}=$proxy;$ua->proxy(['http','https'],$proxy)}my$r=$ua->get($url);return ($r->is_success)?($r->code,$r->status_line,$r->header("Content-Type"),$r->content):($r->code,$r->status_line)}sub runtest{my$test=$in{number};print "content-type:text/html;charset=UTF-8\n\n";if($test==1){if($pv lt '5.010'){print qq~0|Perl too old ($pv)|Your server appears to be running Perl $pv. Perl 5 (version 5.10 or later) is required. Please update your Perl 5 installation.~}else{print qq~2|Perl version OK ($pvn)~}}elsif($test==2){if($cwd=~m/xampp/i){print qq~0|Server appears to be XAMPP|Your server appears to be an XAMPP server. XAMPP is a development server, and not a stable/production web server. XAMPP is know to cause issues with MIDAS, and therefore should not be used. Please refer to our Knowledge Base for alternatives~}else{print qq~2|Didn't detect an XAMPP server~}}elsif($test==3){if(($ENV{SERVER_SOFTWARE}=~m/mod_perl/i)||($ENV{MOD_PERL})){my$modpv=($ENV{MOD_PERL})?" ($ENV{MOD_PERL})":'';print qq~0|mod_perl$modpv appears to be running on this server|Your server appears to be running the "mod_perl" extension. This is known to cause issues with MIDAS. Please disable "mod_perl" and restart your server in order to install MIDAS. Details on how to do this may be found here~}else{print qq~2|mod_perl was not detected on this server~}}elsif($test==4){eval{require POSIX};if($@){print qq~0|POSIX not available|POSIX does not appear to be supported on your server~}else{eval{POSIX::tzset()};if($@){eval{require DateTime};if($@){print qq~0|Neither POSIX::tzset or DateTime is available|Your server does not appear to support POSIX::tzset. In such instances, MIDAS will fallback to use DateTime, however this module doesn't appear to be currently installed. Please install DateTime which may be freely obtained from MetaCPAN|DateTime~}else{print qq~2|DateTime ($DateTime::VERSION) is present and will be used in place of POSIX::tzset~}}else{print qq~2|POSIX::tzset is available~}}}elsif($test==5){eval{require Archive::Tar};if($@){print qq~0|The required Perl module Archive::Tar was not found|A required Perl module (Archive::Tar) does not appear to be installed on this server. This module may be freely obtained from MetaCPAN|Archive::Tar~}else{my$tarver=$Archive::Tar::VERSION;if($tarver<1.24){print qq~0|Version 1.24 or later of the Perl module Archive::Tar is required|Version 1.24 or later of the Perl module Archive::Tar is required to be installed on this server. The version currently installed is $tarver. An updated module can be freely downloaded from MetaCPAN|Archive::Tar~}else{print qq~2|The Perl module Archive::Tar is present ($tarver)~}}}elsif($test==6){eval{require Authen::SASL};if($@){print qq~1|The Perl module Authen::SASL was not found|The Perl module (Authen::SASL) does not appear to be installed on your server. This module is only required if you intend to configure MIDAS to send email through an SMTP server that requires SSL, and may be freely obtained from MetaCPAN|Authen::SASL~}else{print qq~2|The Perl module Authen::SASL is present ($Authen::SASL::VERSION)~}}elsif($test==7){eval{require CGI};if($@){print qq~0|The required Perl module CGI was not found|A required Perl module (CGI) does not appear to be installed on this server. This module may be freely obtained from MetaCPAN|CGI~}else{my$cgiver=$CGI::VERSION;if($cgiver<4.08){print qq~1|Version 4.08 or later of the Perl module CGI is recommended|The currently installed version of the CGI Perl module is $cgiver. Version 4.08 or later of this module is strongly recommended for increased security and to ensure full functionality of your MIDAS system. An updated module can be freely downloaded from MetaCPAN|CGI~}else{print qq~2|The Perl module CGI is present ($cgiver)~}}}elsif($test==8){eval{require Crypt::Eksblowfish::Bcrypt};if($@){eval{require Digest::SHA};my$digestver=$Digest::SHA::VERSION;if($@){print qq~0|The Perl module Crypt::Eksblowfish was not found|The Perl module (Crypt::Eksblowfish) does not appear to be installed on your server. This module is required for running MIDAS v4.15 (or later), and may be freely obtained from MetaCPAN|Crypt::Eksblowfish~}else{print qq~1|The Perl module Crypt::Eksblowfish was not found|The Perl module (Crypt::Eksblowfish) does not appear to be installed on your server, however, the module Digest::SHA ($digestver) was found. MIDAS will fallback to Digest::SHA when Crypt::Eksblowfish::Bcrypt is not available. For greater security however, we strongly recommend installing Crypt::Eksblowfish::Bcrypt. This module may be freely obtained from MetaCPAN|Crypt::Eksblowfish~}}else{print qq~2|The Perl module Crypt::Eksblowfish is present ($Crypt::Eksblowfish::Bcrypt::VERSION)~}}elsif($test==9){eval{require Crypt::PRNG};if($@){print qq~1|The Perl module Crypt::PRNG was not found|The Perl module (Crypt::PRNG) does not appear to be installed on your server. For greater security, we recommend installing Crypt::PRNG. This module may be freely obtained from MetaCPAN|Crypt::PRNG~}else{print qq~2|The Perl module Crypt::PRNG is present ($Crypt::PRNG::VERSION)~}}elsif($test==10){eval{require DBD::MariaDB};if($@){eval{require DBD::mysql};if($@){print qq~0|The Perl module DBD::MariaDB was not found|The Perl module (DBD::MariaDB) does not appear to be installed on your server. This module (or alternatively DBD::mysql) is required for running MIDAS, and may be freely obtained from MetaCPAN|DBD::MariaDB~}else{print qq~2|The Perl module DBD::MariaDB was not found, but DBD::mysql is present ($DBD::mysql::VERSION)~}}else{print qq~2|The Perl module DBD::MariaDB is present ($DBD::MariaDB::VERSION)~}}elsif($test==11){eval{require DBD::mysql};if($@){eval{require DBD::MariaDB};if($@){print qq~0|The Perl module DBD::mysql was not found|The Perl module (DBD::mysql) does not appear to be installed on your server. This module (or alternatively DBD::MariaDB) is required for running MIDAS, and may be freely obtained from MetaCPAN|DBD::mysql~}else{print qq~2|The Perl module DBD::mysql was not found, but DBD::MariaDB is present ($DBD::MariaDB::VERSION)~}}else{print qq~2|The Perl module DBD::mysql is present ($DBD::mysql::VERSION)~}}elsif($test==12){eval{require DBI};if($@){print qq~0|The Perl module DBI was not found|The Perl module (DBI) does not appear to be installed on your server. This module is required for running MIDAS, and may be freely obtained from MetaCPAN|DBI~}else{print qq~2|The Perl module DBI is present ($DBI::VERSION)~}}elsif($test==13){eval{require Digest::HMAC_SHA1};if($@){print qq~1|The Perl module Digest::HMAC_SHA1 was not found|The Perl module (Digest::HMAC_SHA1) does not appear to be installed on your server. This module is only required if you wish to enable 2FA with an external authenticator app, and may be freely obtained from MetaCPAN.|Digest::HMAC_SHA1~}else{print qq~2|The Perl module Digest::HMAC_SHA1 is present ($Digest::HMAC_SHA1::VERSION)~}}elsif($test==14){eval{require Digest::MD5};if($@){print qq~0|The Perl module Digest::MD5 was not found|The Perl module (Digest::MD5) does not appear to be installed on your server. This module is required for running MIDAS, and may be freely obtained from MetaCPAN|Digest::MD5~}else{print qq~2|The Perl module Digest::MD5 is present ($Digest::MD5::VERSION)~}}elsif($test==15){eval{require Encode};if($@){print qq~0|The Perl module Encode was not found|The Perl module (Encode) does not appear to be installed on your server. This module is required for running MIDAS, and may be freely obtained from MetaCPAN|Encode~}else{print qq~2|The Perl module Encode is present ($Encode::VERSION)~}}elsif($test==16){eval{require Excel::Writer::XLSX};if($@){print qq~1|The Perl module Excel::Writer::XLSX was not found|The Perl module (Excel::Writer::XLSX) does not appear to be installed on your server. This module (which may be freely obtained from MetaCPAN) is only required if you wish to be able to export data from MIDAS in Excel 2007+ format (.xlsx)|Excel::Writer::XLSX~}else{print qq~2|The Perl module Excel::Writer::XLSX is present ($Excel::Writer::XLSX::VERSION)~}}elsif($test==17){eval{require Image::PNG::QRCode};if($@){print qq~1|The Perl module Image::PNG::QRCode was not found|The Perl module (Image::PNG::QRCode) does not appear to be installed on your server. This module is only required if you wish to enable 2FA with an external authenticator app, and may be freely obtained from MetaCPAN.|Image::PNG::QRCode~}else{print qq~2|The Perl module Image::PNG::QRCode is present ($Image::PNG::QRCode::VERSION)~}}elsif($test==18){eval{require IO::Socket::SSL};if($@){print qq~0|The Perl module IO::Socket::SSL was not found|The Perl module (IO::Socket::SSL) does not appear to be installed on your server. This module is required for downloading and obtaining software updates for MIDAS and may be freely obtained from MetaCPAN|IO::Socket::SSL~}else{print qq~2|The Perl module IO::Socket::SSL is present ($IO::Socket::SSL::VERSION)~}}elsif($test==19){eval{require JSON};if($@){print qq~0|The required Perl module JSON was not found|A required Perl module (JSON) does not appear to be installed on your server. This module may be freely obtained from MetaCPAN|JSON~}else{print qq~2|The Perl module JSON is present ($JSON::VERSION)~}}elsif($test==20){eval{require LWP};if($@){print qq~0|The required Perl module LWP was not found|A required Perl module (LWP) does not appear to be installed on this server. This module may be freely obtained from MetaCPAN|LWP~}else{print qq~2|The Perl module LWP is present ($LWP::VERSION)~}}elsif($test==21){eval{require LWP::Protocol::https};if($@){print qq~0|The required Perl module LWP::Protocol::https was not found|A required Perl module (LWP::Protocol::https) does not appear to be installed on this server. This module may be freely obtained from MetaCPAN|LWP::Protocol::https~}else{print qq~2|The Perl module LWP::Protocol::https is present ($LWP::Protocol::https::VERSION)~}}elsif($test==22){eval{require Memoize};if($@){print qq~0|The Perl module Memoize was not found|The Perl module (Memoize) does not appear to be installed on your server. This module is required for running MIDAS, and may be freely obtained from MetaCPAN|Memoize~}else{print qq~2|The Perl module Memoize is present ($Memoize::VERSION)~}}elsif($test==23){eval{require MIME::Base64};if($@){print qq~0|The Perl module MIME::Base64 was not found|A required Perl module (MIME::Base64) does not appear to be installed on this server. This module may be freely obtained from MetaCPAN|MIME::Base64~}else{print qq~2|The Perl module MIME::Base64 is present ($MIME::Base64::VERSION)~}}elsif($test==24){eval{require Net::Config};if($@){print qq~1|The Perl module Net::Config was not found|The Perl module (Net::Config) does not appear to be installed on your server. This module is only required if you intend to configure MIDAS to send email through an SMTP server, and may be freely obtained from MetaCPAN|Net::Config}~}else{print qq~2|The Perl module Net::Config is present ($Net::Config::VERSION)~}}elsif($test==25){eval{require Net::SMTP};if($@){print qq~1|The Perl module Net::SMTP was not found|The Perl module (Net::SMTP) does not appear to be installed on your server. This module is only required if you intend to configure MIDAS to send email through an SMTP server, and may be freely obtained from MetaCPAN|Net::SMTP~}else{my$smtpver=$Net::SMTP::VERSION;if($smtpver<3.10){print qq~1|The Perl module Net::SMTP needs updating|Whilst the Perl module Net::SMTP is present, version 3.10 (or later) of this module is necessary if you intend to configure MIDAS to send email through an SMTP server (You currently have v$Net::SMTP::VERSION). If you don't intent to use the SMTP capabilities in MIDAS, this warning may be ignored~}else{print qq~2|The Perl module Net::SMTP is present ($Net::SMTP::VERSION)~}}}elsif($test==26){eval{require Net::SMTP::TLS};if($@){print qq~1|The Perl module Net::SMTP::TLS was not found|The Perl module (Net::SMTP::TLS) does not appear to be installed on your server. This module is only required if you intend to configure MIDAS to send email through an SMTP server that requires TLS, and may be freely obtained from MetaCPAN|Net:SMTP::TLS~}else{print qq~2|The Perl module Net::SMTP::TLS is present ($Net::SMTP::TLS::VERSION)~}}elsif($test==27){eval{require PDF::WebKit};if($@){print qq~1|The Perl module PDF::WebKit was not found|The Perl module (PDF::WebKit) does not appear to be installed on your server. This module is only required if you wish to be able to have MIDAS attach PDF versions of invoices to emails (rather than including them inline), and may be freely obtained from MetaCPAN. If you install PDF::WebKit, you'll also need to install wkhtmltopdf|PDF::WebKit~}else{print qq~2|The Perl module PDF::WebKit is present ($PDF::WebKit::VERSION)~}}elsif($test==28){eval{require Time::Local};if($@){print qq~0|The required Perl module Time::Local was not found|A required Perl module (Time::Local) does not appear to be installed on your server. This module may be freely obtained from MetaCPAN|Time::Local~}else{print qq~2|The Perl module Time::Local is present ($Time::Local::VERSION)~}}elsif($test==29){eval{require XML::Simple};if($@){print qq~1|The Perl module XML::Simple was not found|The Perl module (XML::Simple) does not appear to be installed on your server. This module is only required if you wish to be able to export data from your MIDAS system in XML format, and may be freely obtained from MetaCPAN|XML::Simple~}else{print qq~2|The Perl module XML::Simple is present ($XML::Simple::VERSION)~}}elsif($test==30){my$writable=1;open(my$TEST,'>',"$cwd/servertest.pl") or $writable=0;if(!$writable){print qq~0|The current directory cannot be written to|Unable to write to $cwd. Please check that Perl has permission to write to this location~}else{close($TEST);print qq~2|The current directory can be written to~;unlink $cwd."/servertest.pl"}}elsif($test==31){my$writable=1;open(my$TEST,'>',"$cwd/servertest.pl") or $writable=0;if($writable){close($TEST);unlink $cwd."/servertest.pl";my$size=10;open(my$BIGFILE,'>',"$cwd/bigfile.dat");print $BIGFILE "MIDASMIDASMIDASMIDAS" for 1..(($size*1024*1024)/20);close($BIGFILE);my$actualsize=-s "$cwd/bigfile.dat";if($actualsize<10485760){if($actualsize<1048676){print qq~0|There is not enough free space on this server|MIDAS requires a minimum of 10MB of free space on your server. Free up some space or increase your disk quota in order to install MIDAS. If you believe there already is enough space, please check your write permissions to ensure that the server location from which this tool is being run can be written to by this tool~}else{print qq~1|There appears to only be ~.sprintf("%.0f",($actualsize/1024/1024)).qq~MB of free space on this server/disk quota|Whilst you will be able to install MIDAS, it is recommended that there be at least 10MB of free space on your server/quota as your database will grow over time~}}else{print qq~2|There is at least 10MB of free space on this server~}unlink $cwd."/bigfile.dat"}else{print ""}}elsif($test==32){eval{require LWP::UserAgent};if(!$@){my@chk=geturl("https://u.mid.as/minim.png",1);if($chk[0]==200){print qq~2|Your server has an internet connection~;open(my$TEST,'>',"$cwd/supporttest.png");flock($TEST,2);binmode $TEST;print $TEST $chk[3];flock($TEST,8);close($TEST);chmod (0644,"$cwd/supporttest.png")}else{print qq~0|No internet connection detected|Your server was not able to establish a connection to the Internet ($chk[1]). MIDAS requires an active connection to the internet to authorize your MIDAS installation. If your server connects to the internet through a proxy, please run this test again with the address of your proxy server appended to the URL of the installer i.e. $protocol$ENV{HTTP_HOST}/$ENV{SCRIPT_NAME}?proxy=http://your.proxy~}}else{print qq~0|Unable to test internet connection|Unable to check your server's connection to the Internet due to the Perl Module LWP::Simple not being installed. Please install this module and then re-run these tests~}}elsif($test==33){eval{require LWP::UserAgent};if(!$@){my$spath=$ENV{SCRIPT_NAME};$spath=~s/\/$fname//g;my@chk=geturl($protocol.$ENV{HTTP_HOST}."/".$spath."/supporttest.png",1);if($chk[0]==200){print qq~2|Images are allowed in the current directory~}elsif($chk[0]==500){print qq~1|Images are not allowed in the current directory|Images do not appear to be allowed in $cwd ($chk[1]). Some server setups do not allow images to be placed within certain directories i.e. "cgi-bin". You can still install MIDAS, but you'll need to specify a different directory into which support files should be installed~}else{print qq~1|Unable to determine whether images are allowed in the current directory|Unable to determine whether images are allowed in the current directory ($chk[1]). please check your write permissions to ensure that the server location from which this tool is being run can be written to by this tool~}unlink $cwd."/supporttest.png"}else{print qq~0|Unable to test internet connection|Unable to check your server's connection to the Internet due to the Perl Module LWP::Simple not being installed. Please install this module and then re-run these tests~}}elsif($test==34){eval{require LWP::UserAgent};if(!$@){open(my$SVGTEST,'>',"$cwd/1x1.svg");print $SVGTEST qq~~;close($SVGTEST);my$ua=LWP::UserAgent->new(env_proxy=>0,keep_alive=>0,timeout=>10,agent=>'MIDAS i$iv');my$spath=$ENV{SCRIPT_NAME};$spath=~s/\/$fname//g;my@chk=geturl($protocol.$ENV{HTTP_HOST}."/".$spath."/1x1.svg",1);my$SVGsupport=($chk[2]=~m!image/svg\+xml!i)?1:0;if($SVGsupport){print qq~2|Your server is configured for SVG images~}else{print qq~1|Your server doesn't appear to be correctly configured to support SVG images|Consider enabling server support for SVG images in order to get the best MIDAS experience. For help configuring your server to correctly serve SVG files, Please refer to our Knowledge Base~}unlink $cwd."/1x1.svg"}else{print qq~0|Unable to test for SVG support|Unable to check your server's support for SVG images due to the Perl Module LWP::UserAgent not being installed. Please install this module and then re-run these tests~}}elsif($test==35){if(lc($ENV{HTTPS})=~m/on|yes|1/){print qq~2|Your server accepts https connections~}else{print qq~1|Your server is serving this page over an insecure http connection|It is highly recommended that you configure your server to only allow secure https connections to your MIDAS system~}}elsif($test==36){eval{require Net::SSLeay};if(!$@){my$netssleayv=$Net::SSLeay::VERSION;if($netssleayv<1.42){print qq~1|Unable to determine OpenSSL version|In order for MIDAS to download and receive updates, it needs to communicate with our secure servers. Only TLS 1.1 and TLS 1.2 protocols are permitted by our servers (older and less secure TLS 1.0, SSLv3 and SSLv2 protocols are not supported). As long your server supports making TLS 1.1/1.2 connections (available with OpenSSL 1.0.1 or later), this warning can be safely ignored. If you're unsure of what version of OpenSSL is available on your server, this tool can help determine that, provided you first update the Perl modules, Net::SSLeay, to v1.42 or later ($Net::SSLeay::VERSION is currently installed)~}else{my$opensslvt=Net::SSLeay::SSLeay_version();if(Net::SSLeay::SSLeay()>=0x10001000){if(Net::SSLeay::SSLeay()>=0x10101000){print qq~2|Your server runs $opensslvt~}else{print qq~1|Your server runs $opensslvt|OpenSSL 1.1.1 or later is recommended~}}else{if($opensslvt){print qq~0|Your server runs $opensslvt|In order for MIDAS to download and receive updates, it needs to communicate with our secure servers. Only TLS 1.1 and TLS 1.2 protocols are permitted by our servers (older and less secure TLS 1.0, SSLv3 and SSLv2 protocols are not supported). Versions of OpenSSL prior to 1.0.1 do not support TLS 1.1/1.2 connections. Your server appears to currently run $opensslvt, therefore you will need to update OpenSSL to at least 1.0.1~}else{print qq~1|Unable to determine OpenSSL version|In order for MIDAS to download and receive updates, it needs to communicate with our secure servers. Only TLS 1.1 and TLS 1.2 protocols are permitted by our servers (older and less secure TLS 1.0, SSLv3 and SSLv2 protocols are not supported). As long your server supports making TLS 1.1/1.2 connections (available with OpenSSL 1.0.1 or later), this warning can be safely ignored. If you're unsure of what version of OpenSSL is available on your server, this tool can help determine that, provided you first install the Perl module Net::SSLeay which may be freely obtained from MetaCPAN~}}}}else{print qq~1|Unable to determine OpenSSL version|OpenSSL: In order for MIDAS to download and receive updates, it needs to communicate with our secure servers. Only TLS 1.1 and TLS 1.2 protocols are permitted by our servers (older and less secure TLS 1.0, SSLv3 and SSLv2 protocols are not supported). As long your server supports making TLS 1.1/1.2 connections (available with OpenSSL 1.0.1 or later), this warning can be safely ignored. If you're unsure of what version of OpenSSL is available on your server, this tool can help determine that, provided you first install the Perl module Net::SSLeay which may be freely obtained from MetaCPAN~}}}sub getmod{my@modules=split(/,/,$in{module});require CPAN;open OUTPUT, '>', $cwd."cpan.out";select OUTPUT; $|=1;print "Attempting to install Perl modules\\n*** WARNING: THIS COULD TAKE SEVERAL MINUTES ***\n\n";foreach my$mod(@modules){if($mod){CPAN::Shell->install($mod)}}print "\nFinished!";close(OUTPUT);select STDOUT;print "content-type:text/html\n\n1"}sub getlog{print "content-type:text/plain\n\n";print SSI_INCLUDE($cwd."cpan.out")}sub SSI_INCLUDE{local$/;open(my$F,"<",shift);my$c=<$F>;close($F);return $c}sub parse{my(@pairs,%in);my($buffer,$pair,$name,$value);if($ENV{REQUEST_METHOD}eq'GET'){@pairs=split(/&/,$ENV{QUERY_STRING})}elsif($ENV{REQUEST_METHOD}eq'POST'){read(STDIN,$buffer,$ENV{CONTENT_LENGTH});@pairs=split(/&/,$buffer)}PAIR:foreach my$pair(@pairs){($name,$value)=split(/=/,$pair);$name=~tr/+/ /;$name=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;$value=~tr/+/ /;$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;($value eq "---") and next PAIR;exists $in{$name}?($in{$name}.="~~$value"):($in{$name}=$value)}return %in}