add perl fake sendmail

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@6162 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/scripts/sendmail b/scripts/sendmail
new file mode 100644 (file)
index 0000000..3011ab3
--- /dev/null
+++ b/scripts/sendmail
@@ -0,0 +1,40 @@
+#!/usr/local/bin/perl
+################################################################################
+# sendmail.pl
+# <rename this to /usr/sbin/sendmail for a FreeSWITCH
+#  voicemail gateway with no mail server>
+#
+# (c) 2005 Anthony Minessale II
+#  Anthony Minessale <anthmct@yahoo.com>
+#
+################################################################################
+use Net::SMTP;
+my $relayhost = "localhost"; # what is the internet address of your smtp server
+my $over_from = "";          # define this to override the to
+my $over_to = "";            # define this to override the from
+my $debug = 0;               # set to 1 to watch it deliver
+my $timeout = 60;            # when to give up.
+################################################################################
+
+
+$/ = undef;
+my $msg = <STDIN>;
+
+my ($to) = $over_to || $msg =~ /To: (.*)/;
+my ($from) = $over_from || $msg =~ /From: (.*)/;
+
+
+if($to =~ /<([^>]+)>/) {
+  $to = $1;
+} 
+
+if($from =~ /<([^>]+)>/) {
+  $from = $1;
+}
+
+my $smtp = Net::SMTP->new($relayhost, Debug => $debug, Timeout => $timout);
+$smtp->mail($from);
+$smtp->to(split /,/, $to);
+$smtp->data($msg);
+$smtp->quit();
+