Changeset 1109 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Log.pm
- Timestamp:
- Nov 17, 2010, 12:40:28 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Log.pm
r1090 r1109 5 5 6 6 use strict; 7 use Mail::Sendmail;8 7 use ProjectBuilder::Base; 9 8 use ProjectBuilder::Log::Item; … … 227 226 # mails the summary to $to 228 227 sub mailSummary { 228 require Mail::Sendmail; 229 229 my $self = shift; 230 230 my $to = shift || ""; … … 239 239 Message => $self->summary() 240 240 ); 241 sendmail(%mail) or return $Mail::Sendmail::error; 241 if (! sendmail(%mail)) { 242 if (defined $Mail::Sendmail::error) { 243 return $Mail::Sendmail::error; 244 } else { 245 return "Unkown error"; 246 } 247 } 242 248 pb_log(0,"Mail send to ". $to ."\n"); 243 249 }
Note:
See TracChangeset
for help on using the changeset viewer.