supermicro-kvm: handle redirects to https

[rsbs2] / rsbs2.pl
diff --git a/rsbs2.pl b/rsbs2.pl

index 69272cad21bac6511a1732c22e30ab9616d6b3b6..76f745b52e3c471aa97f023d2c62b3612e7c7c9d 100755 (executable)
--- a/rsbs2.pl
+++ b/rsbs2.pl
@@ -427,7 +427,7 @@ sub show_sensors {
                 print $sensor->{NAME}.": ".$sensor->{VAL}.$sensor->{UNITS};
  
                 my @info = ();
-               foreach my $field qw(MIN MAX LOW_NON_CRITICAL UPPER_NON_CRITICAL LOW_CRITICAL UPPER_CRITICAL) {
+               foreach my $field (qw(MIN MAX LOW_NON_CRITICAL UPPER_NON_CRITICAL LOW_CRITICAL UPPER_CRITICAL)) {
                         if ($sensor->{$field} ne '') {
                                 push @info, "${field}: ".$sensor->{$field}.$sensor->{UNITS};
                         }
@@ -492,7 +492,8 @@ sub status {
  
  sub spawn_gui {
         my $base = shift;
-       open(APPLET,"|appletviewer -J-Djava.security.policy=applet.policy /dev/stdin");
+       $ENV{'AWT_TOOLKIT'} = 'MToolkit';
+       open(APPLET,"|appletviewer -J-Djava.security.policy=applet.policy -J-Djava.net.preferIPv4Stack=true /dev/stdin");
         print APPLET '<HTML><HEAD><TITLE>RSB S2 User Interface</TITLE></HEAD>';
         print APPLET '<BODY>';
         print APPLET '<object width="640" height="480">';
@@ -719,6 +720,7 @@ if (defined($ssl) && (lc($ssl) eq 'yes')) {
  
  if ($gui) {
         spawn_gui($url);
+       exit 0;
  }
  
  login(${$Config{$hostalias}}{"user"}, ${$Config{$hostalias}}{"pass"});