Acceptation du sftp et https

Modules/HostIsDown.pm

@@ -59,7 +59,7 @@ sub send_result
 			$answer =~ s/^\s*(.*?)\s*$/$1/;
 			
 			my $host = $params->{"host"};
-			$host = $host =~ m#^http://#i ? $host : "http://".$host;
+			$host = $host =~ m#^(?:ht|s?f)tps?://#i ? $host : "http://".$host;
 			
 			$::logger->debug("Host: '$host'");
 			$::logger->debug("Answer: '$answer'");