Changeset 153 for trunk/libIGCM/libIGCM_sys/libIGCM_sys_platine.ksh

Timestamp:

08/14/09 13:02:30 (15 years ago)

Author:

sdipsl

Message:

• Add generic function to send mail
• Only one message for now : simulation is finished
• More to follow (simulation stop too early ...)

File:

• trunk/libIGCM/libIGCM_sys/libIGCM_sys_platine.ksh (modified) (1 diff)

trunk/libIGCM/libIGCM_sys/libIGCM_sys_platine.ksh

@@ -215 +215 @@
 
 #D-#==================================================
+#D-function IGCM_sys_SendMail
+#D-* Purpose: Send mail when simulation is over
+#D-* Examples:
+#D-
+function IGCM_sys_SendMail {
+    IGCM_debug_PushStack "IGCM_sys_SendMailPost" $@
+    if ( $DEBUG_sys ) ; then
+        echo "IGCM_sys_SendMail :" $@
+    fi
+
+    cat  << END_MAIL > job_atlas.mail
+Dear ${LOGIN},
+
+  Simulation ${config_UserChoices_JobName} is finished on supercomputer `hostname`.
+  Job started : ${DateBegin}
+  Job ended   : ${DateEnd}
+  Ouput files are available in ${R_SAVE}
+END_MAIL
+
+    if [ ! -z ${config_UserChoices_MailName} ] ; then
+        mailx -s "${config_UserChoices_JobName} completed mail" ${config_UserChoices_MailName} <  job_end.mail
+    elif [ -f ~/.forward ] ; then
+        mailx -s "${config_UserChoices_JobName} completed forward 1" $( cat ~/.forward ) < job_end.mail
+    fi
+
+    if [ $? -gt 0 ] ; then
+        echo "IGCM_sys_SendMail : erreur."
+        IGCM_debug_Exit "IGCM_sys_SendMail"
+    fi
+    IGCM_debug_PopStack "IGCM_sys_SendMail"
+}
+
+#D-#==================================================
 #D-function IGCM_sys_Mkdir
 #D-* Purpose: Master locale mkdir command