Changeset 1134 in ProjectBuilder for devel/pb/bin/pb
- Timestamp:
- Jan 5, 2011, 3:44:01 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r1132 r1134 617 617 require DBI; 618 618 require DBD::SQLite; 619 require Mail::SendMail;620 619 621 620 pb_announce(); … … 3069 3068 3070 3069 # Preparation of headers 3071 require Mail::Sendmail; 3072 3073 my %mail = ( 3070 eval 3071 { 3072 require Mail::Sendmail; 3073 Mail::Sendmail->import(); 3074 }; 3075 if ($@) { 3076 # Mail::Sendmail not found not sending mail ! 3077 pb_log(0,"No Mail::Sendmail module found so not sending any mail !\n"); 3078 } else { 3079 my %mail = ( 3074 3080 To => $pbml->{$ENV{'PBPROJ'}}, 3075 3081 From => $pbpackager->{$ENV{'PBPROJ'}}, … … 3079 3085 ); 3080 3086 3081 # Send mail 3082 if (! sendmail(%mail)) { 3083 if ((defined $Mail::Sendmail::error) and (defined $Mail::Sendmail::log)) { 3084 die "Unable to send mail ($Mail::Sendmail::error): $Mail::Sendmail::log"; 3087 # Send mail 3088 if (! sendmail(%mail)) { 3089 if ((defined $Mail::Sendmail::error) and (defined $Mail::Sendmail::log)) { 3090 die "Unable to send mail ($Mail::Sendmail::error): $Mail::Sendmail::log"; 3091 } 3085 3092 } 3086 3093 }
Note:
See TracChangeset
for help on using the changeset viewer.