From c2801c794b9bcdcfecb9ce95bc1d449e6c58b128 Mon Sep 17 00:00:00 2001
From: Gustavo De Nardin <spuk@mandriva.org>
Date: Sat, 12 May 2007 20:11:53 +0000
Subject: Restoring code lost in the SVN breakage from an old checkout

---
 lib/Iurt/Mail.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 lib/Iurt/Mail.pm

(limited to 'lib/Iurt/Mail.pm')

diff --git a/lib/Iurt/Mail.pm b/lib/Iurt/Mail.pm
new file mode 100644
index 0000000..b805db2
--- /dev/null
+++ b/lib/Iurt/Mail.pm
@@ -0,0 +1,27 @@
+package Iurt::Mail;
+
+use strict;
+use MIME::Words qw(encode_mimewords);
+use base qw(Exporter);
+
+our @EXPORT = qw(
+    sendmail
+);
+
+sub sendmail {
+	my ($to, $cc, $subject, $text, $from, $debug) = @_;
+	do { print "Cannot find sender-email-address [$to]\n"; return } unless defined($to);
+	my $MAIL;
+	if (!$debug) { open $MAIL,  "| /usr/sbin/sendmail -t" or return } else { open $MAIL,  ">&STDOUT" or return }
+	my $sender = encode_mimewords($to);
+	$subject = encode_mimewords($subject);
+	print $MAIL "To: $sender\n";
+	if ($cc) { $cc = encode_mimewords($cc); print $MAIL "Cc: $cc\n" }
+	print $MAIL "From: $from\n";
+	print $MAIL "Subject: $subject\n";
+	print $MAIL "\n";
+	print $MAIL $text; 
+	close($MAIL);
+}
+
+1
-- 
cgit v1.2.1