[*Win32 0.60] Sending call notification by e-mail/web?

Asterisk Asterisk Support
1

Hello,

In case there are other users of the AsteriskWin32 port...

I haven't really used the AGI feature of Asterisk to run an application from extensions.conf. *Win32 supports Perl, which I don't know. Apparently, it's also possible to write AGI applications as EXE's (there's a eagi-test.exe file installed by default).

=> When a call comes in, I’d like an AGI application to send an e-mail and send CID name/number to a script on a web server.

Is this the correct way to do it in Perl, with the modules available in AsteriskWin32? Could I rewrite this in Delphi instead?

#!/usr/bin/perl

;=========================================================
;Note: Not sure if *Win32 supports LWP::Simple and Net::SMTP!

;Called from extensions.conf
;exten => group,n,AGI(notify.agi|${CALLERID(num)}|${CALLERID(name)})

;=========================================================

use strict;

open STDOUT, '>/dev/null';
fork and exit;

;=========================================================
use LWP::Simple;

my $cidnum = $ARGV[0];
my $cidname = $ARGV[1];

my $url = 'http://www.acme.com/input.php?name=$cidname&number=$cidnum';
my $content = get $url;
die "Couldn't get $url" unless defined $content;
print STDERR "Notified web server"

;=========================================================
use Net::SMTP;

$smtp = Net::SMTP->new('smtp.acme.com'); # connect to an SMTP server
$smtp->mail( 'asterisk@acme.com' );     # use the sender's address here
$smtp->to('calls@acme.com');        # recipient's address
$smtp->data();                      # Start the mail

# Send the header.
$smtp->datasend("To: calls@acme.com\n");
$smtp->datasend("From: asterisk@acme.com\n");
$smtp->datasend("\n");

# Send the body.
$smtp->datasend("Call received from $cidname/$cidnum\n");
$smtp->dataend();                   # Finish sending the mail
$smtp->quit;
print STDERR "Send e-mail"

Thanks for any tip :smile: