list ipmi boards one per line

[rsbs2] / supermicro-kvm.pl

diff --git a/supermicro-kvm.pl b/supermicro-kvm.pl
index afe0523de8bc573c7ed29967178db27a177c9040..e24cb1926150106eaf07bca70a0118fdc1eea511 100755 (executable)
--- a/supermicro-kvm.pl
+++ b/supermicro-kvm.pl
@@ -48,15 +48,13 @@ sub read_inifile {
 
 my %Config = read_inifile("$ENV{HOME}/.rsbs2rc");
 
-my $hostalias;
+my $hostalias = $ARGV[0];
 
-if (defined($ARGV[0])) {
-       $hostalias = $ARGV[0];
-} else {
+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);
@@ -77,5 +75,6 @@ $fh->unlink_on_destroy(1);
 
 print $fh $jnlp;
 
+$ENV{'AWT_TOOLKIT'} = 'MToolkit';
 system("javaws", $fh->filename);
 sleep(1);