[Bio] / FigKernelPackages / ServerThing.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/ServerThing.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25, Thu Dec 10 15:34:10 2009 UTC revision 1.26, Thu Dec 10 16:40:12 2009 UTC
# Line 160  Line 160 
160          }          }
161          # Put all the filters together to form the new filter.          # Put all the filters together to form the new filter.
162          $$filter = join(" AND ", @newFilters);          $$filter = join(" AND ", @newFilters);
163          Trace("Subsystem filter is $$filter.") if T(3);          Trace("Subsystem filter is $$filter.") if T(ServerUtilities => 3);
164      }      }
165  }  }
166    
# Line 255  Line 255 
255      # Compute the log file name.      # Compute the log file name.
256      my $errorLog = "$FIG_Config::temp/errors$$.log";      my $errorLog = "$FIG_Config::temp/errors$$.log";
257      # Execute the command.      # Execute the command.
258      Trace("Executing command: $cmd") if T(3);      Trace("Executing command: $cmd") if T(ServerUtilities => 3);
259      my $res = system("$cmd 2> $errorLog");      my $res = system("$cmd 2> $errorLog");
260      Trace("Return from $name tool is $res.") if T(3);      Trace("Return from $name tool is $res.") if T(ServerUtilities => 3);
261      # Check the result code.      # Check the result code.
262      if ($res != 0) {      if ($res != 0) {
263          # We have an error. If tracing is on, trace it.          # We have an error. If tracing is on, trace it.
264          if (T(1)) {          if (T(ServerUtilities => 1)) {
265              TraceErrorLog($name, $errorLog);              TraceErrorLog($name, $errorLog);
266          }          }
267          # Delete the error log.          # Delete the error log.
# Line 270  Line 270 
270          Confess("$name command failed with error code $res.");          Confess("$name command failed with error code $res.");
271      } else {      } else {
272          # Everything worked. Trace the error log if necessary.          # Everything worked. Trace the error log if necessary.
273          if (T(3) && -s $errorLog) {          if (T(ServerUtilities => 3) && -s $errorLog) {
274              TraceErrorLog($name, $errorLog);              TraceErrorLog($name, $errorLog);
275          }          }
276          # Delete the error log if there is one.          # Delete the error log if there is one.

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3