X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/rsbs2/blobdiff_plain/a154a83fe4695eca4bb8aeebe7fb5380561a94df..aee449595a07ee4bd86156d8a9e255593c7085d5:/supermicro-kvm.pl

diff --git a/supermicro-kvm.pl b/supermicro-kvm.pl
index afe0523..e24cb19 100755
--- 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);