Changeset 30533 for main/trunk/greenstone2/perllib/servercontrol.pm
- Timestamp:
- 2016-05-12T21:52:42+12:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/servercontrol.pm
r30531 r30533 154 154 foreach my $line (@lines) { 155 155 #print STDERR "@@@@ LINE: $line\n"; 156 if($line =~ m@failed: Connection timed out.$@) { 156 if($line =~ m@failed: Connection timed out.$@) { # linux 157 157 $response_code = "failed: Connection timed out."; 158 last; # break keyword in perl = last 159 } 160 elsif($line =~ m@Giving up.$@) { # windows (unless -T 5 -t 1 is not passed in) 161 $response_code = "failed: Giving up."; 158 162 last; # break keyword in perl = last 159 163 } … … 169 173 } 170 174 171 if($command =~ m@ping@ && $response_code =~ m@failed: Connection refused@) {175 if($command =~ m@ping@ && $response_code =~ m@failed: (Connection refused|Giving up)@) { 172 176 # server not running 173 177 $self->print_msg("*** Server not running. $library_url$command\n", 3);
Note:
See TracChangeset
for help on using the changeset viewer.