Show
Ignore:
Timestamp:
06.01.2015 16:42:44 (5 years ago)
Author:
jts21
Message:

Fixed bug in CLI commands (was assuming there to be multiple servlets)

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/package-kits/linux/files/servlet.pl

    r29665 r29666  
    5353    my $file = shift; 
    5454    # The xml needs a root element, so we wrap it in one 
    55     my $xml=' 
    56 <!DOCTYPE doc [<!ENTITY real_doc SYSTEM "' . $file . '">] > 
     55    my $xml='<!DOCTYPE doc [<!ENTITY real_doc SYSTEM "' . $file . '">] > 
    5756    <__root__> 
    5857        &real_doc; 
     
    176175        }; 
    177176        /^count$/i && do { 
    178             print "Found ", scalar @{$hash->{servlet}}, " servlets\n"; 
     177            my $servlets = $hash->{servlet}; 
     178            my $count = 1; 
     179            if (ref $servlets eq 'ARRAY') { 
     180                $count = scalar @{$hash->{servlet}}; 
     181            } 
     182            print "Found ", $count, " servlets\n"; 
    179183            last; 
    180184        }; 
    181185        /^list$/i && do { 
    182186            print "Servlets:\n"; 
    183             for my $servlet (@{$hash->{servlet}}) { 
    184                 print "  ", $servlet->{'servlet-name'}, "\n"; 
     187            my $servlets = $hash->{servlet}; 
     188            if (ref $servlets eq 'ARRAY') { 
     189                for my $servlet (@{$hash->{servlet}}) { 
     190                    print "  ", $servlet->{'servlet-name'}, "\n"; 
     191                } 
     192            } else { 
     193                print "  ", $servlets->{'servlet-name'}, "\n"; 
    185194            } 
    186195            last;