Skip to content

Instantly share code, notes, and snippets.

@dynax60

dynax60/test.agi

Last active August 29, 2015 13:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dynax60/8928950 to your computer and use it in GitHub Desktop.
Save dynax60/8928950 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.agi
#!/usr/bin/perl -w
use strict;
use Asterisk::AGI;
my $a = new Asterisk::AGI;
$a->answer();
$a->verbose($a->get_variable('fuflo'));
$a->stream_file('goodbye');
$a->hangup();
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment