File Coverage

blib/lib/Voicent.pm

Criterion	Covered	Total	%
statement	18	82	21.9
branch	0	12	0.0
condition			n/a
subroutine	6	12	50.0
pod	5	5	100.0
total	29	111	26.1

package Voicent;

use 5.008006;
use strict;
use warnings;

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

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

our @EXPORT = qw(
    host
    port
    call_text
    call_audio
    call_status
    call_remove
    call_till_confirm
);

our %EXPORT_TAGS = ( 'all' => [ @EXPORT ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our $VERSION = '1.1';

# change to the host name for your installation
$Voicent::host = "localhost";
$Voicent::port = 8155;

sub _call_now {
    my %params = %{$_[0]};

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

    my $url = 'http://' . $Voicent::host . ':' . $Voicent::port . '/ocall/callreqHandler.jsp';
    my $resp = $ua->request(POST $url,
			    Content_Type  => 'application/x-www-form-urlencoded',
			    Content       => [ %params ]
			    );

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

    my $result = $resp->content();
    my $pos = index ($result, '[ReqId=');
    unless ($pos >=0) {
	print "Error getting call request id from Voicent Gateway";
	return "";
    }
    $pos = $pos + 7;
    my $pos2 = index ($result, ']', $pos);
    my $reqId = substr($result, $pos, $pos2 - $pos);

    return $reqId;
}

sub call_text {
    my ($phoneno, $textmsg, $selfdelete) = @_;

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

    return _call_now(\%params);
}

sub call_audio {
    my ($phoneno, $audiofile, $selfdelete) = @_;

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

    return _call_now(\%params);
}

sub call_status {
    my ($reqId) = @_;

    my $url = 'http://' . $Voicent::host . ':' . $Voicent::port . '/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 "";
    }

    my $result = $resp->content();

    if ($result =~ m#\Q^made^\E#) { return "Call Made"; }
    if ($result =~ m#\Q^failed^\E#) { return "Call Failed"; }
    print "";
}

sub call_remove {
    my ($reqId) = @_;

    my $url = 'http://' . $Voicent::host . ':' . $Voicent::port . '/ocall/callremoveHandler.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 "";
    }
}

# voc file must reside on the same machine as the gateway
# this function can be achieved using command line interface
#     vcast.exe -startnow -confirmcode [code] -wavfile [wavfile]

sub call_till_confirm {
    my ($vcast, $vocfile, $confirmcode, $wavfile) = @_;

    my %params = ();
    $params{'info'} = 'call till concel';
    $params{'phoneno'} = '0000000';
    $params{'firstocc'} = '10';
    $params{'startexec'} = $vcast;
    $params{'selfdelete'} = '1';
    $params{'cmdline'} = '"' . $vocfile . '" -startnow -confirmcode ' . $confirmcode
	. ' -wavfile "' . $wavfile . '"';

    return _call_now(\%params);
}

# samples
# $reqId = call_text(1234567, 'hello, how are you', 0);
# $reqId = call_audio(1234567, 'C:\temp\welcome.wav', 0);
# $status = call_status($reqId);
# call_remove($reqId);
# call_till_confirm('c:\Program Files\Voicent\BroadcastByPhone\bin\vcast.exe', 'c:\temp\tt1.voc', '1234', 'c:\temp\welcome.wav');


1;
__END__