Restoring code lost in the SVN breakage from an old checkout

1 files changed, 27 insertions, 0 deletions

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