check if card alias exists

diff --git a/supermicro-kvm.pl b/supermicro-kvm.pl
index afe0523de8bc573c7ed29967178db27a177c9040..91ea8a61a86cb9f4b15a0e995638381dd4f71c32 100755 (executable)
--- a/supermicro-kvm.pl
+++ b/supermicro-kvm.pl
@@ -48,11 +48,9 @@ sub read_inifile {
 
 my %Config = read_inifile("$ENV{HOME}/.rsbs2rc");
 
 
 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 "Usage: $0 card-alias\n\n";
        print STDERR "card-alias\tone of: ";
        foreach my $alias (keys(%Config)) {