From 7f9f0658fc87c8e75c0a038652de0ff3036cfaff Mon Sep 17 00:00:00 2001
From: mattf <mattf@3d104415-ff17-0410-8863-d5cf3c621b8a>
Date: Tue, 18 Jul 2006 20:39:23 +0000
Subject: [PATCH] removal of unused CID test agi script

git-svn-id: svn://192.168.202.10@82 3d104415-ff17-0410-8863-d5cf3c621b8a
---
 agi/agi-CIDtest.agi | 175 --------------------------------------------
 1 file changed, 175 deletions(-)
 delete mode 100644 agi/agi-CIDtest.agi

diff --git a/agi/agi-CIDtest.agi b/agi/agi-CIDtest.agi
deleted file mode 100644
index 18186610..00000000
--- a/agi/agi-CIDtest.agi
+++ /dev/null
@@ -1,175 +0,0 @@
-#!/usr/bin/perl
-#
-# agi-CIDtest.agi 
-# 
-# this script is designed to do testing of CallerID strings and how flexible Asterisk is to assigning just CIDnum and CIDname
-# 
-# You need to put lines similar to those below in your extensions.conf file:
-# 
-# ;VICIDIAL_auto_dialer transfer script:
-# exten => 8367,1,AGI(agi-CIDtest.agi,${EXTEN})
-# 
-# 
-# Copyright (C) 2006  Matt Florell <vicidial@gmail.com>    LICENSE: GPLv2
-#
-
-$V=1;
-$M=1;
-
-### Make sure this file is in a path or put the absolute path to it
-require("/home/cron/AST_SERVER_conf.pl");	# local configuration file
-
-use Net::MySQL;
-use Time::HiRes ('gettimeofday','usleep','sleep');  # necessary to have perl sleep command of less than one second
-use Asterisk::AGI;
-$AGI = new Asterisk::AGI;
-
-
-
-($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
-$year = ($year + 1900);
-$mon++;
-if ($mon < 10) {$mon = "0$mon";}
-if ($mday < 10) {$mday = "0$mday";}
-if ($hour < 10) {$Fhour = "0$hour";}
-if ($min < 10) {$min = "0$min";}
-if ($sec < 10) {$sec = "0$sec";}
-
-$now_date_epoch = time();
-$now_date = "$year-$mon-$mday $hour:$min:$sec";
-$start_time=$now_date;
-	$CIDdate = "$mon$mday$hour$min$sec";
-	$tsSQLdate = "$year$mon$mday$hour$min$sec";
-	$SQLdate = "$year-$mon-$mday $hour:$min:$sec";
-	$SQLdateBEGIN = $SQLdate;
-
-$BDtarget = ($secX - 5);
-($Bsec,$Bmin,$Bhour,$Bmday,$Bmon,$Byear,$Bwday,$Byday,$Bisdst) = localtime($BDtarget);
-$Byear = ($Byear + 1900);
-$Bmon++;
-if ($Bmon < 10) {$Bmon = "0$Bmon";}
-if ($Bmday < 10) {$Bmday = "0$Bmday";}
-if ($Bhour < 10) {$Bhour = "0$Bhour";}
-if ($Bmin < 10) {$Bmin = "0$Bmin";}
-if ($Bsec < 10) {$Bsec = "0$Bsec";}
-	$BDtsSQLdate = "$Byear$Bmon$Bmday$Bhour$Bmin$Bsec";
-
-
-
-### begin parsing run-time options ###
-if (length($ARGV[0])>1)
-{
-if ($V) {print STDERR "Perl Environment Dump:\n";}
-	$i=0;
-	while ($#ARGV >= $i)
-	{
-	$args = "$args $ARGV[$i]";
-	if ($V) {print STDERR "$i|$ARGV[$i]|\n";}
-	$i++;
-	}
-
-	if ($args =~ /--help/i)
-	{
-	print "allowed run time options:\n  [-q] = quiet\n  [-t] = test\n  [-debug] = verbose debug messages\n\n";
-	}
-	else
-	{
-		if ($args =~ /-V/i)
-		{
-		$V=1;
-		}
-		if ($args =~ /-debug/i)
-		{
-		$DG=1;
-		}
-		if ($args =~ /-dbAVS/i)
-		{
-		$DGA=1;
-		}
-		if ($args =~ /-q/i)
-		{
-		$q=1;
-		$Q=1;
-		}
-		if ($args =~ /-t/i)
-		{
-		$TEST=1;
-		$T=1;
-		}
-	}
-}
-else
-{
-if ($V) {print "no command line options set\n";}
-}
-
-$|=1;
-while(<STDIN>) {
-	chomp;
-	last unless length($_);
-	if ($V)
-	{
-		if (/^agi_(\w+)\:\s+(.*)$/)
-		{
-			$AGI{$1} = $2;
-		}
-	}
-
-	if (/^agi_uniqueid\:\s+(.*)$/)		{$unique_id = $1; $uniqueid = $unique_id;}
-	if (/^agi_channel\:\s+(.*)$/)		{$channel = $1;}
-	if (/^agi_extension\:\s+(.*)$/)		{$extension = $1;}
-	if (/^agi_type\:\s+(.*)$/)		{$type = $1;}
-	if (/^agi_callerid\:\s+(.*)$/)		{$callerid = $1;}
-	if (/^agi_calleridname\:\s+(.*)$/)	{$calleridname = $1;}
-	if ( (length($callerid)>20) && ($callerid =~ /\"\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S/) )
-	  {
-	   $callerid =~ s/^\"//gi;
-	   $callerid =~ s/\".*$//gi;
-		### set the callerid to the ACQS value(calleridname)
-		print "SET CALLERID $callerid\n";
-		checkresult($result);
-		print STDERR "callerID changed: $callerid\n";
-
-	  }
-
-
-}
-
-	if ($V)
-	{
-
-		if ($V) {print STDERR "AGI Environment Dump:\n";}
-		foreach $i (sort keys %AGI) {
-			if ($V) {print STDERR " -- $i = $AGI{$i}\n";}
-		}
-	}
-
-$VDADcampaign='';
-$VDADphone='';
-$VDADphone_code='';
-
-if ($V) {print STDERR "AGI Environment Dump: |$unique_id|$channel|$extension|$type|$callerid|$calleridname|\n";}
-
-
-
-exit;
-
-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++;
-	}
-}