Changeset 28707 for trunk/tools/roboczar.pl
- Timestamp:
- Jul 23, 2010, 3:55:02 PM (16 years ago)
- File:
-
- 1 edited
-
trunk/tools/roboczar.pl (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/roboczar.pl
r28704 r28707 47 47 } 48 48 49 50 49 ########################################################################### 51 50 # … … 54 53 ########################################################################### 55 54 sub updateServerStatus { 56 print "* Checking Servers\n";55 print "* Checking all pantasks servers\n"; 57 56 58 57 my $servers = $pantasks->getServerList(); … … 104 103 if ($str =~ m/on/) {$reverting = 1;} 105 104 else {$reverting = 0;} 106 print "* Storing for stage $stage\n";105 print "* Checking labels for $stage stage\n"; 107 106 108 107 foreach $row ( @{$rows} ) { … … 178 177 } 179 178 180 181 179 ########################################################################### 182 180 # … … 195 193 close(MAIL); 196 194 } 197 198
Note:
See TracChangeset
for help on using the changeset viewer.
