return;
}
- my $req = '<REQ CMD="sensorpropget"><HANDLE>0x1</HANDLE><SENSORLIST>';
+ my $req = '<REQ CMD="sensorpropget"><HANDLE>'.$slist->{HANDLE}.'</HANDLE><SENSORLIST>';
foreach my $s (@{$slist->{SENSORLIST}->{SENSOR}}) {
$req .= '<SENSOR KEY="'.$s->{KEY}.'"/>';
}
$poweronms = ${$Config{$hostalias}}{"poweronms"} if (defined(${$Config{$hostalias}}{"poweronms"}));
$poweroffms = ${$Config{$hostalias}}{"poweroffms"} if (defined(${$Config{$hostalias}}{"poweroffms"}));
-$url = "http://${host}";
+my $ssl = ${$Config{$hostalias}}{"ssl"};
+my $port = ${$Config{$hostalias}}{"port"};
+
+if (defined($ssl) && (lc($ssl) eq 'yes')) {
+ $ENV{HTTPS_DEBUG} = 1;
+ $ENV{HTTPS_VERSION} = 3;
+ $port = 443 if (!defined($port));
+ $url = "https://${host}:${port}";
+} else {
+ $port = 80 if (!defined($port));
+ $url = "http://${host}:${port}";
+}
if ($gui) {
spawn_gui($url);