X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/rsbs2/blobdiff_plain/0efb50b5cc0af4236a5ad8aa5b501eac0f67d8c9..453203717769c12e37678c93fcaf4150f2d16a39:/rsbs2.pl diff --git a/rsbs2.pl b/rsbs2.pl index cb0534a..c835c0d 100755 --- a/rsbs2.pl +++ b/rsbs2.pl @@ -385,7 +385,7 @@ sub get_sensors { return; } - my $req = '0x1'; + my $req = ''.$slist->{HANDLE}.''; foreach my $s (@{$slist->{SENSORLIST}->{SENSOR}}) { $req .= ''; } @@ -477,7 +477,7 @@ sub status { sub spawn_gui { my $base = shift; - open(APPLET,"|appletviewer /dev/stdin"); + open(APPLET,"|appletviewer -J-Djava.security.policy=applet.policy /dev/stdin"); print APPLET 'RSB S2 User Interface'; print APPLET ''; print APPLET ''; @@ -689,7 +689,18 @@ my $host = ${$Config{$hostalias}}{"host"}; $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);