*** mx_root:[contrib]mx_watchdog.com	Sat Jan 17 13:31:28 1998
--- mx_watchdog.com	Sat Jan 31 13:26:00 1998
***************
*** 1,5 ****
--- 1,6 ----
  $! Title:	MX_WATCHDOG.COM
  $! Author:	Shawn A. Clifford	<sac@ufl.edu>
+ $! More hackers:Richard Levitte		<levitte@lp.se>
  $! Date:	31-Jul-1995
  $! Purpose:	This DCL script is a self-resubmitting batch job that will
  $!		make sure that all of the MX processes are running on the host.
***************
*** 11,18 ****
  $!
  $! When		Who	Description
  $! ---------------------------------------------------------------------------
! $! 08-AUG-195	SAC	Fixed multiple agent process naming; corrected the
  $!			problem with the queue context in the subroutine
  $! ---------------------------------------------------------------------------
  $!
  $ set symbol/scope=(local,noglobal)
--- 12,20 ----
  $!
  $! When		Who	Description
  $! ---------------------------------------------------------------------------
! $! 08-AUG-1995	SAC	Fixed multiple agent process naming; corrected the
  $!			problem with the queue context in the subroutine
+ $! 31-JAN-1998	RL	Added knowledge about the new process LSV
  $! ---------------------------------------------------------------------------
  $!
  $ set symbol/scope=(local,noglobal)
***************
*** 23,32 ****
  $ next_run = "0:5"				! Run this job every 5 minutes
  $ datafile = "MX_DIR:MX_STARTUP_INFO.DAT"	! MX startup info. file
  $ srvrcom = "SYS$STARTUP:MX_STARTUP"		! MX startup program
  $!
  $! Get ready to resubmit this
  $!
! $ proc = f$environment("PROCEDURE")		! Get this programs path
  $ this_job_name = f$parse(proc,,,"name",)	! Get this job's name
  $ if (f$mode().nes."BATCH") then -
  	call clean_batch_queue 'this_job_name'	! Clean previous jobs
--- 25,36 ----
  $ next_run = "0:5"				! Run this job every 5 minutes
  $ datafile = "MX_DIR:MX_STARTUP_INFO.DAT"	! MX startup info. file
  $ srvrcom = "SYS$STARTUP:MX_STARTUP"		! MX startup program
+ $! log = "/LOG=OPER:[000000]/KEEP"
+ $ log = "/NOLOG"
  $!
  $! Get ready to resubmit this
  $!
! $ proc = f$element(0,";",f$environment("PROCEDURE")) ! Get this programs path
  $ this_job_name = f$parse(proc,,,"name",)	! Get this job's name
  $ if (f$mode().nes."BATCH") then -
  	call clean_batch_queue 'this_job_name'	! Clean previous jobs
***************
*** 67,72 ****
--- 71,77 ----
  $	if (proc.eqs."SMTP") then proc="MX SMTP"
  $	if (proc.eqs."SMTP_SERVER") then proc="MX SMTP Server"
  $	if (proc.eqs."MLF") then proc="MX MLF"
+ $	if (proc.eqs."LSV") then proc="MX LSV Intfc"
  $!
  $! Set the process name(s) to look for
  $!