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);
print $fh $jnlp;
+$ENV{'AWT_TOOLKIT'} = 'MToolkit';
system("javaws", $fh->filename);
sleep(1);