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;
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);