+1-800-948-1198
Cloud Log In Free Trial

Developers: IVR, SMS, CRM, Dialers

    Developer Center

Gateway Simple Interface

Application Interface

Gateway GUI Interface

Gateway Interface

Knowledge Base

Perl IVR Interface

The Voicent Perl IVR module contains the following functions:

Call IVR

Synopsis - call_ivr

call_ivr <phoneno> <appname> <selfdelete>

Description - call_ivr

Make a phone call to the specificed number and use the IVR application to interact and control the phone call.
Parameters
<phoneno> - The phone number to call.
<appname> - The name of the deployed IVR application.
<selfdelete> - Ask the gateway to automatically delete the call request after the call is made if it is set to '1'.

Returns
<reqId> - The return value is the call request id.

Example - call_ivr

call_ivr('123-4567', 'reminderApp', 1)
Make a call to phone number '123-4567' and use 'reminderApp' on the gateway for call interaction. You can use call_status_responses to get the call status and responses, or use call_remove to remove the call record.

Call Status Responses

Synopsis - call_status_response

call_status_response <reqId> <responses>

Description - call_status_response

Make a phone call to the specificed number and use the IVR application to interact and control the phone call.
Check the call status and responses of the call with <reqId>. The second parameter is a reference to an array and is used to collect responses. So if you have an element named AttendMeeting, the response can be accessed as responses["AttendMeeting"]. Please note that you can have multiple IVR elements that collect responses.

Example - call_status_response

$status = call_status('11234035434', responses)

Source Code

package Voicent;

use LWP::UserAgent;
use HTTP::Request::Common;

$voicent::host = "localhost";
$voicent::port = 8155;

...
  sub call_ivr {
    my ($phoneno, $appname, $selfdelete) = @_;

    my %params = ();
    $params{'info'} = 'call ' . $phoneno;
    $params{'phoneno'} = $phoneno;
    $params{'firstocc'} = '10';
    $params{'startapp'} = $appname;
    $params{'selfdelete'} = $selfdelete;

    return _call_now(\%params);
}


sub call_status_response {
    my ($reqId, $responses) = @_;

    my $url = 'http://' . $host . ':' . $port;
    $url = $url . '/ocall/callstatusHandler.jsp';
    $url = $url . '?reqid=' . $reqId;

    my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.0');

    my $resp = $ua->request(GET $url);

    unless ($resp->is_success) {
        print "Error sending call request to Voicent Gateway";
        return "";
    }

    $result = $resp->content();

    @rcarr = split(/^/, $result);

    // responses is the 9th field
    @resparr = split(/|/, $rcarr[8]);
    foreach $resp (@resparr) {
        // each is a name value pair
        @nvarr = split(/=/, $resp);
        my $key = $nvarr[0];
        my $value = $nvarr[1];
        $responses[$key] = $value;
    }
   
    // call status is the 3rd field
    return $rcarr[2];
}


...
}