Hi Al,
We have different email contents and subject depending in the action that
the customer had taken, since our service is a Prepaid card. What I did, was
to use an AGI to have this flexibility. After getting the caller id and
querying it in the DB, I will then construct the email that will be sent to
the customer.
[nihonggo-temporary-registration]
exten => readnum,1,Set(REGPHONE=${CALLERIDNUM})
exten => 2,1,AGI(preRegist.agi,${REGPHONE})
exten => 2,2,AGI(sendEMAILnotification.agi,${REGPHONE})
AGI script..
sub mailSend {
my ($subj, $body) = @_;
my(@da, @day, @mon, $datetime, $expTO, $mail, $head);
@da = localtime(time);
@day = qw(Sun Mon Tue Wed Thu Fri Sat);
@mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
$datetime = sprintf "%s, %02d %s %d %02d:%02d:%02d +0900",
($day[$da[6]], $da[3]*1, $mon[$da[4]], $da[5]+1900,
$da[2]*1, $da[1]*1, $da[0]*1);
$body = Jcode->new($body)->h2z->jis;
$head = "Return-Path: <$m_RETPATH>\n";
$expTO = join(",\n ", @m_MAILTO);
$head .= "To: $expTO\n";
$head .= "From: $m_FROM\n";
$head .= "Date: $datetime\n";
$head .= "Content-type: text/plain; charset=iso-2022-jp\n";
$head .= "Subject: $subj\n";
$head .= "\n";
$head = &mimeencode($head);
$mail = "$head$body";
if (open (OUT, "|$QIPATH")) { # qmail-inject
$mail =~ s/%/%%/g;
printf OUT "$mail";
close (OUT);
}
}
Hope that helps.
Best Regards,
Joanna
www.mariazeta.com
_______________________________________________
--Bandwidth and Colocation provided by Easynews.com --
asterisk-users mailing list
To UNSUBSCRIBE or update options visit:
http://lists.digium.com/mailman/listinfo/asterisk-users
