[LON-CAPA-cvs] cvs: doc /loncapafiles updatequery.piml

[harris41]

harris41		Sun Sep  8 19:57:51 2002 EDT

  Modified files:              
    /doc/loncapafiles	updatequery.piml 
  Log:
  BUG 583 FIX; just ping several different locations; if failure then do
  not send out an e-mail
  
  
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.18 doc/loncapafiles/updatequery.piml:1.19
--- doc/loncapafiles/updatequery.piml:1.18	Sat Aug 17 15:05:03 2002
+++ doc/loncapafiles/updatequery.piml	Sun Sep  8 19:57:51 2002
@@ -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 @@
        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;