[Orca-checkins] rev 258 - trunk/orca/data_gatherers/orca_services

[Blair Zajac]

Author: blair
Date: Mon Oct  6 20:39:52 2003
New Revision: 258

Modified:
   trunk/orca/data_gatherers/orca_services/orca_services_running.pl.in
Log:
* data_gatherers/orca_services/orca_services_running.pl.in:
  Correctly refer to orca_services, not percoservices.se.
  Whitespace fix.


Modified: trunk/orca/data_gatherers/orca_services/orca_services_running.pl.in
==============================================================================
--- trunk/orca/data_gatherers/orca_services/orca_services_running.pl.in	(original)
+++ trunk/orca/data_gatherers/orca_services/orca_services_running.pl.in	Mon Oct  6 20:39:52 2003
@@ -7,7 +7,7 @@
 use POSIX qw(strftime);
 
 # Set this to the list of directories that contain the output from
-# percoservices.se.
+# orca_services.pl.
 my @stats_dirs = ('@VAR_DIR@/orca_services');
 
 foreach my $stats_dir (@stats_dirs) {
@@ -31,9 +31,9 @@
       next;
     }
     my $age = (-M $file)*(24*60);
-    if ( $age > 8) {
-      $file= sprintf "%35s", $file;
-      $age = sprintf "%8.2f", $age;
+    if ($age > 8) {
+      $file = sprintf "%35s", $file;
+      $age  = sprintf "%8.2f", $age;
       warn "$0: $file is $age minutes old.\n";
       next;
     }