whitespace cleanup; URL to buster oracle jre

[rsbs2] / supermicro-kvm.pl

diff --git a/supermicro-kvm.pl b/supermicro-kvm.pl
index 91ea8a61a86cb9f4b15a0e995638381dd4f71c32..79e4f03752fd021898f9845ebf0c019ea2ca8637 100755 (executable)
--- a/supermicro-kvm.pl
+++ b/supermicro-kvm.pl
@@ -27,14 +27,14 @@ sub read_inifile {
        my @sections = ();
        while(<INIFILE>) {
                chomp;
-       
+
                next if (m/^#/);
-       
+
                if (m/^\s*\[(.*)\]\s*$/) {
                        push @sections, $1;
                        next;
                }
-       
+
                if (@sections) {
                        if (m/^\s*([^=]+)\s*=\s*(.*)\s*$/) {
                                ${$Ini{$sections[$#sections]}}{$1} = $2;
@@ -52,9 +52,9 @@ my $hostalias = $ARGV[0];
 
 if (!defined($hostalias) || !defined($Config{$hostalias})) {
        print STDERR "Usage: $0 card-alias\n\n";
-       print STDERR "card-alias\tone of: ";
-       foreach my $alias (keys(%Config)) {
-               print STDERR "\"${alias}\" ";
+       print STDERR "card-alias\tone of:\n";
+       foreach my $alias (sort keys(%Config)) {
+               print STDERR "\"${alias}\"\n";
        }
        print STDERR "(see ~/.rsbs2rc)\n";
        exit(1);
@@ -75,5 +75,6 @@ $fh->unlink_on_destroy(1);
 
 print $fh $jnlp;
 
+$ENV{'AWT_TOOLKIT'} = 'MToolkit';
 system("javaws", $fh->filename);
 sleep(1);