From d8e27cfc0f5e3b8f984b2b9e60cfafde0395559f Mon Sep 17 00:00:00 2001
From: mikec <mikec@3d104415-ff17-0410-8863-d5cf3c621b8a>
Date: Wed, 9 Jul 2008 15:16:38 +0000
Subject: [PATCH] Script to test outbound calling

git-svn-id: svn://192.168.202.10@915 3d104415-ff17-0410-8863-d5cf3c621b8a
---
 extras/test_call.pl | 58 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 extras/test_call.pl

diff --git a/extras/test_call.pl b/extras/test_call.pl
new file mode 100644
index 00000000..36dbc09d
--- /dev/null
+++ b/extras/test_call.pl
@@ -0,0 +1,58 @@
+#!/usr/bin/perl
+
+use DBI;
+
+# command line arguments
+my $phone_number = shift;
+my $exten = shift;
+my $cid_name = shift;
+my $cid_num = shift;
+
+# check if they typed --help
+if (($phone_number eq "--help") || ($exten eq "--help") || ($cid_name eq "--help") || ( $cid_num eq "--help")) {
+	print "useage: test_call.pl phone_number extension caller_id_name caller_id_number\n";
+	print "example: test_call.pl 97275551212 600 test 7775551212\n";
+	exit;
+}
+
+# get the current time
+my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+my $date = "$year-$mon-$mday $hour:$min:$sec";
+
+# default path to astguiclient configuration file:
+$PATHconf = '/etc/astguiclient.conf';
+
+# read in the conf file
+open(CONFIG, "$PATHconf") || die "can't open $PATHconf: $!\n";
+@config = <CONFIG>;
+close(CONFIG);
+$i=0;
+foreach(@config) {
+	$line = $config[$i];
+	$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
+	if ($line =~ /^VARserver_ip/)
+		{$VARserver_ip = $line;   $VARserver_ip =~ s/.*=//gi;}
+	if ($line =~ /^VARDB_server/)
+		{$VARDB_server = $line;   $VARDB_server =~ s/.*=//gi;}
+	if ($line =~ /^VARDB_database/)
+		{$VARDB_database = $line;   $VARDB_database =~ s/.*=//gi;}
+	if ($line =~ /^VARDB_user/)
+		{$VARDB_user = $line;   $VARDB_user =~ s/.*=//gi;}
+	if ($line =~ /^VARDB_pass/)
+		{$VARDB_pass = $line;   $VARDB_pass =~ s/.*=//gi;}
+	if ($line =~ /^VARDB_port/)
+		{$VARDB_port = $line;   $VARDB_port =~ s/.*=//gi;}
+	$i++;
+}
+
+$dbhB = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
+	or die "Couldn't connect to database: " . DBI->errstr;
+
+# Insert our call record
+$stmtB = "INSERT INTO vicidial_manager values( '', '', '$date', 'NEW', 'N', '$VARserver_ip', '', 'Originate', 'TESTCIDBLASTCALL0124', 'Channel: Local/$phone_number@default', 'Context; default', 'Exten: $exten', 'Priority: 1', 'Callerid: \"$cid_name\" <$cid_num>', '', '', '', '', '' );";
+$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+$sthB->finish();
+$dbhB->disconnect();
+
+