File: agi-sayani.agi

package info (click to toggle)
libasterisk-agi-perl 1.08-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 444 kB
  • sloc: perl: 2,883; makefile: 2
file content (25 lines) | stat: -rwxr-xr-x 427 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/usr/bin/perl
#
# Simple agi example that says the callerid and/or dnis
#
# Written by: James Golovich <james@gnuinter.net>
#


use Asterisk::AGI;

$AGI = new Asterisk::AGI;

my %input = $AGI->ReadParse();

if (my $callerid = $input{'callerid'}) {
	$AGI->stream_file('agi-yourcalleridis');
	$AGI->say_digits($callerid);
}
if (my $dnis = $input{'dnid'}) {
	$AGI->stream_file('agi-dnisis');
	$AGI->say_digits($dnis);
}

exit;