--- projects/cms/source/host/ihost-perl/ihost.pl	2001/11/19 22:31:18	1.40
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/11/20 12:47:03	1.41
@@ -8,7 +8,7 @@
 # a typical Unix/Linux box.
 #
 # $Author: tdb $
-# $Id: ihost.pl,v 1.40 2001/11/19 22:31:18 tdb Exp $
+# $Id: ihost.pl,v 1.41 2001/11/20 12:47:03 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -47,7 +47,11 @@ $seq_no = 1;
 $retry_wait = 60;
 
 # write our PID to a file
-$pidfile = "/var/tmp/ihost.pid";
+# use home dir by default
+$pidfile = $ENV{"HOME"};
+# or drop it in /var/tmp if we can't find HOME
+$pidfile = "/var/tmp" if not defined $pidfile;
+$pidfile .= "/.ihost.pid";
 &write_pid();
 
 &tcp_configure();