Changeset 29666
- Timestamp:
- 2015-01-06T16:42:44+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/linux/files/servlet.pl
r29665 r29666 53 53 my $file = shift; 54 54 # 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 . '">] > 57 56 <__root__> 58 57 &real_doc; … … 176 175 }; 177 176 /^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"; 179 183 last; 180 184 }; 181 185 /^list$/i && do { 182 186 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"; 185 194 } 186 195 last;
Note:
See TracChangeset
for help on using the changeset viewer.