--- doc/loncapafiles/updatequery.piml	2002/08/17 19:05:03	1.18
+++ doc/loncapafiles/updatequery.piml	2002/09/08 23:57:51	1.19
@@ -1,7 +1,7 @@
 <!-- updatequery.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: updatequery.piml,v 1.18 2002/08/17 19:05:03 harris41 Exp $ -->
+<!-- $Id: updatequery.piml,v 1.19 2002/09/08 23:57:51 harris41 Exp $ -->
 
 <!--
 
@@ -562,7 +562,8 @@ END
        close(OUT);
       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
       # email appropriate message
-      `echo "REPLACE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "REPLACE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
+      system('ping -c 1 www.lon-capa.org > /dev/null || ping -c 1 www.msu.edu > /dev/null || ping -c 1 www.mit.edu > /dev/null');
+      `echo "REPLACE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "REPLACE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org` unless $?;
     }
     elsif ($hostidexistflag and $lineexistflag) {
       print &lt;&lt;END;