[Orca-checkins] rev 255 - in trunk/orca: . lib/Orca

[Blair Zajac]

Author: blair
Date: Mon Oct  6 14:41:25 2003
New Revision: 255

Modified:
   trunk/orca/configure.in
   trunk/orca/lib/Orca/Utils.pm
Log:
The previous revision broke Orca's ability to run 'ps' against its own
PID, since @PS_SELF@ was moved from orca.pl.in which is processed by
config.status, to lib/Orca/Utils.pm, which is not.  Since nobody seems
to use this output, remove it entirely.

* configure.in:
  Do not determine how to run 'ps' on the system.  Do not substitute
  @PS@ and @PS_SELF at .

* lib/Orca/Utils.pm
  (print_running_stats): Do not run 'ps' any more.


Modified: trunk/orca/configure.in
==============================================================================
--- trunk/orca/configure.in	(original)
+++ trunk/orca/configure.in	Mon Oct  6 14:41:25 2003
@@ -293,31 +293,6 @@
 AC_PATH_PROG(POD2MAN,  pod2man,  :)
 AC_PATH_PROG(POD2TEXT, pod2text, :)
 
-# Determine the correct ps command to use to find out about process
-# information for itself.
-AC_PATH_PROG(PS, ps)
-case "$target" in
-  *-solaris*)
-    PS_SELF="$PS -p PID -o \'rss vsz pmem time user pid comm\'"
-    ;;
-  *-linux-*)
-    PS_SELF="$PS up PID"
-    ;;
-  *)
-    PS_SELF="$PS aux | grep PID"
-    AC_MSG_WARN([*** If you know a better PS command than])
-    AC_MSG_WARN([***   '$PS_SELF'])
-    AC_MSG_WARN([*** to get process information for your host,])
-    AC_MSG_WARN([*** please email the command and the output from])
-    AC_MSG_WARN([*** ./config/config.guess to])
-    AC_MSG_WARN([*** orca-dev at orcaware.com])
-    ;;
-esac
-if test "$PS_SELF"; then
-  AC_MSG_CHECKING([for ps command])
-  AC_MSG_RESULT($PS_SELF)
-  AC_SUBST(PS_SELF)
-fi
 AC_PATH_PROG(SE, se,,$PATH:/opt/RICHPse/bin)
 AC_PATH_PROG(UNAME, uname, uname)
 AC_PATH_PROG(UNCOMPRESS, uncompress)

Modified: trunk/orca/lib/Orca/Utils.pm
==============================================================================
--- trunk/orca/lib/Orca/Utils.pm	(original)
+++ trunk/orca/lib/Orca/Utils.pm	Mon Oct  6 14:41:25 2003
@@ -203,12 +203,6 @@
 # starting time of the script.
 my $start_time = time;
 sub print_running_stats {
-  my $ps_self = '@PS_SELF@';
-  if ($ps_self) {
-    $ps_self =~ s/PID/$$/g;
-    system($ps_self);
-  }
-
   my $time_span = time - $start_time;
   my $minutes   = int($time_span/60);
   my $seconds   = $time_span - 60*$minutes;