X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/rsbs2/blobdiff_plain/583bcdfcb6b2280220f4cfeeb5bc829ecf3ccdfc..5e257ef3d52a0bbb3de3179f83e0c20d841a823c:/supermicro-kvm.pl diff --git a/supermicro-kvm.pl b/supermicro-kvm.pl index 91ea8a6..79e4f03 100755 --- a/supermicro-kvm.pl +++ b/supermicro-kvm.pl @@ -27,14 +27,14 @@ sub read_inifile { my @sections = (); while() { 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);