From 725fb69a51870ad955ecc5d79c23f4ffb312042a Mon Sep 17 00:00:00 2001
From: yinle <yinle@cn.ibm.com>
Date: Tue, 20 May 2014 06:28:20 -0700
Subject: [PATCH] add send mail

---
 xCAT-server/share/xcat/tools/xCATreg | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/xCAT-server/share/xcat/tools/xCATreg b/xCAT-server/share/xcat/tools/xCATreg
index 353ecb651..dfdf2f3e2 100755
--- a/xCAT-server/share/xcat/tools/xCATreg
+++ b/xCAT-server/share/xcat/tools/xCATreg
@@ -722,6 +722,25 @@ sub read_conf{
 # pro_result 
 #######################################
 sub pro_result{
+    my $result = shift;
+    my $mailprog = "/bin/mail";
+    my $subject = "[xcat-autotest] autotest result ";
+    my $message = "\n Host:172.20.0.21[Redhat 6.4 RC2]\n";
+    $message = $message."---------------------------------------------------------------------------------------------------------------\n";
+    $message = $message."                              | RESULT |    Remark                                                                 \n";
+    $message = $message."---------------------------------------------------------------------------------------------------------------\n";
+    if($result){
+        $message = $message."| full installation       |  PASS  |\n";
+    } else{
+        $message = $message."| full installation       |  FAIL  |";
+    }
+    $message = $message."---------------------------------------------------------------------------------------------------------------\n";
+
+    $message = $message."Note: This message is sent by Automated test system, Please don't reply it\n";
+    my $sendmail = "echo \"$message\"";
+    my $email = "litingt\@cn.ibm.com";
+    $sendmail = $sendmail." | $mailprog -s \"$subject\" \"$email\" ";
+    system($sendmail);
 
 return 0;