diff options
Diffstat (limited to '1.4.23-rc4/agi/fastagi-test')
-rw-r--r-- | 1.4.23-rc4/agi/fastagi-test | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/1.4.23-rc4/agi/fastagi-test b/1.4.23-rc4/agi/fastagi-test deleted file mode 100644 index d3f13cf6b..000000000 --- a/1.4.23-rc4/agi/fastagi-test +++ /dev/null @@ -1,94 +0,0 @@ -#!/usr/bin/perl -use strict; -use Socket; -use Carp; -use IO::Handle; - -my $port = 4573; - -$|=1; - -# Setup some variables -my %AGI; my $tests = 0; my $fail = 0; my $pass = 0; - -sub checkresult { - my ($res) = @_; - my $retval; - $tests++; - chomp $res; - if ($res =~ /^200/) { - $res =~ /result=(-?\d+)/; - if (!length($1)) { - print STDERR "FAIL ($res)\n"; - $fail++; - } else { - print STDERR "PASS ($1)\n"; - $pass++; - } - } else { - print STDERR "FAIL (unexpected result '$res')\n"; - $fail++; - } -} - -socket(SERVER, PF_INET, SOCK_STREAM, 0); -setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)); -bind(SERVER, sockaddr_in($port, INADDR_ANY)) || die("can't bind\n"); -listen(SERVER, SOMAXCONN); - -for(;;) { - my $raddr = accept(CLIENT, SERVER); - my ($s, $p) = sockaddr_in($raddr); - CLIENT->autoflush(1); - while(<CLIENT>) { - chomp; - last unless length($_); - if (/^agi_(\w+)\:\s+(.*)$/) { - $AGI{$1} = $2; - } - } - print STDERR "AGI Environment Dump from $s:$p --\n"; - foreach my $i (sort keys %AGI) { - print STDERR " -- $i = $AGI{$i}\n"; - } - - print STDERR "1. Testing 'sendfile'..."; - print CLIENT "STREAM FILE beep \"\"\n"; - my $result = <CLIENT>; - &checkresult($result); - - print STDERR "2. Testing 'sendtext'..."; - print CLIENT "SEND TEXT \"hello world\"\n"; - my $result = <CLIENT>; - &checkresult($result); - - print STDERR "3. Testing 'sendimage'..."; - print CLIENT "SEND IMAGE asterisk-image\n"; - my $result = <CLIENT>; - &checkresult($result); - - print STDERR "4. Testing 'saynumber'..."; - print CLIENT "SAY NUMBER 192837465 \"\"\n"; - my $result = <CLIENT>; - &checkresult($result); - - print STDERR "5. Testing 'waitdtmf'..."; - print CLIENT "WAIT FOR DIGIT 1000\n"; - my $result = <CLIENT>; - &checkresult($result); - - print STDERR "6. Testing 'record'..."; - print CLIENT "RECORD FILE testagi gsm 1234 3000\n"; - my $result = <CLIENT>; - &checkresult($result); - - print STDERR "6a. Testing 'record' playback..."; - print CLIENT "STREAM FILE testagi \"\"\n"; - my $result = <CLIENT>; - &checkresult($result); - close(CLIENT); - print STDERR "================== Complete ======================\n"; - print STDERR "$tests tests completed, $pass passed, $fail failed\n"; - print STDERR "==================================================\n"; -} - |