[LON-CAPA-cvs] cvs: loncom / loncron

[www]

www		Mon Mar 10 12:39:21 2003 EDT

  Modified files:              
    /loncom	loncron 
  Log:
  Raise bar on emailing systemwide administrator
  
  
Index: loncom/loncron
diff -u loncom/loncron:1.36 loncom/loncron:1.37
--- loncom/loncron:1.36	Mon Feb  3 13:03:52 2003
+++ loncom/loncron	Mon Mar 10 12:39:21 2003
@@ -805,7 +805,10 @@
 
 if ($totalcount>200) {
    print "mailing\n";
-   $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
+   $emailto="$perlvar{'lonAdmEMail'}";
+   if ($totalcount>600) {
+      $emailto.=",$perlvar{'lonSysEMail'}";
+   }
    $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; 
    system(
  "metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html");