Changeset 1134 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

Jan 5, 2011, 3:44:01 AM (13 years ago)

Author:

Bruno Cornec

Message:

• Fix the sendmail require bug for announce command
• Fix warnings with param undefined for announce command

File:

• devel/pb/bin/pb (modified) (3 diffs)

devel/pb/bin/pb

@@ -617 +617 @@
     require DBI;
     require DBD::SQLite;
-    require Mail::SendMail;
 
     pb_announce();
@@ -3069 +3068 @@
     
     # Preparation of headers
-    require Mail::Sendmail;
-
-    my %mail = (    
+    eval
+    {
+        require Mail::Sendmail;
+        Mail::Sendmail->import();
+    };
+    if ($@) {
+        # Mail::Sendmail not found not sending mail !
+        pb_log(0,"No Mail::Sendmail module found so not sending any mail !\n");
+    } else {
+        my %mail = (    
             To          =>  $pbml->{$ENV{'PBPROJ'}},
             From        =>  $pbpackager->{$ENV{'PBPROJ'}},
@@ -3079 +3085 @@
         );
             
-    # Send mail
-    if (! sendmail(%mail)) {
-        if ((defined $Mail::Sendmail::error) and (defined $Mail::Sendmail::log)) {
-            die "Unable to send mail ($Mail::Sendmail::error): $Mail::Sendmail::log";
+        # Send mail
+        if (! sendmail(%mail)) {
+            if ((defined $Mail::Sendmail::error) and (defined $Mail::Sendmail::log)) {
+                die "Unable to send mail ($Mail::Sendmail::error): $Mail::Sendmail::log";
+            }
         }
     }