[Freeswitch-svn] [commit] r6162 - freeswitch/trunk/scripts

[Freeswitch SVN]

Author: anthm
Date: Mon Nov  5 13:24:19 2007
New Revision: 6162

Added:
   freeswitch/trunk/scripts/sendmail

Log:
add perl fake sendmail

Added: freeswitch/trunk/scripts/sendmail
==============================================================================
--- (empty file)
+++ freeswitch/trunk/scripts/sendmail	Mon Nov  5 13:24:19 2007
@@ -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 at 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();
+