kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-08-13 09:36:46 +00:00
Code Issues Projects Releases Wiki Activity

perl update

Browse Source
This commit is contained in:
Anthony Minessale
2012-05-23 11:31:17 -05:00
parent bb3f72cb66
commit 4b2e7fc1f2
9 changed files with 238 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
libs/libscgi/perl/testclient.pl Normal file
View File

@@ -0,0 +1,19 @@
use FSSCGI;
my $handle = new FSSCGI::SCGIhandle();
$handle->addParam( "REQUEST_METHOD", "POST");
$handle->addParam( "REQUEST_URI", "/deepthought");
$handle->addParam( "TESTING", "TRUE");
$handle->addParam( "TESTING", "TRUE");
$handle->addBody("What is the answer to life?");
if ((my $response = $handle->sendRequest("127.0.0.1", 7777, 10000))) {
print "RESP[$response]\n";
} else {
print "ERROR!\n";
}