diff --git a/agi/agi-VDADselective_CID.agi b/agi/agi-VDADselective_CID.agi
new file mode 100644
index 00000000..27494e6e
--- /dev/null
+++ b/agi/agi-VDADselective_CID.agi
@@ -0,0 +1,167 @@
+#!/usr/bin/perl
+#
+# agi-VDADselective_CID.agi version 0.1   *NO DB Connection*
+# 
+# Runs before a call is placed outbound to filter outgoing callerIDnumber 
+#
+# You need to put lines similar to those below in your extensions.conf file:
+#
+# ;outbound VICIDIAL calls:
+#exten => _91NXXNXXXXXX,1,AGI(call_log.agi,${EXTEN})
+#exten => _91NXXNXXXXXX,2,AGI(agi-VDADselective_CID.agi,${EXTEN})
+#exten => _91NXXNXXXXXX,3,Dial(${TRUNKX}/${EXTEN:1},55,tTo)
+#exten => _91NXXNXXXXXX,4,Hangup
+#
+# Copyright (C) 2006  Matt Florell <vicidial@gmail.com>    LICENSE: GPLv2
+#
+# changes:
+# 60918-1042 - First build
+#
+
+$script = 'agi-VDADselective_CID.agi';
+
+$AGILOG=0;
+
+# CLEAR AREA CODE LISTINGS:
+# Florida: 239|305|321|352|386|407|561|689|727|754|772|786|813|836|850|861|863|904|941|954
+
+$clear_area_codes = '239|305|321|352|386|407|561|689|727|754|772|786|813|836|850|861|863|904|941|954';
+
+
+($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";
+
+use Asterisk::AGI;
+$AGI = new Asterisk::AGI;
+
+### begin parsing run-time options ###
+if (length($ARGV[0])>1)
+{
+	if ($AGILOG) {$agi_string = "Perl Environment Dump:";   &agi_output;}
+	$i=0;
+	while ($#ARGV >= $i)
+	{
+	$args = "$args $ARGV[$i]";
+	if ($AGILOG) {$agi_string = "$i|$ARGV[$i]";   &agi_output;}
+	$i++;
+	}
+}
+
+$|=1;
+while(<STDIN>) 
+{
+	chomp;
+	last unless length($_);
+	if ($AGILOG)
+	{
+		if (/^agi_(\w+)\:\s+(.*)$/)
+		{
+			$AGI{$1} = $2;
+		}
+	}
+
+	if (/^agi_extension\:\s+(.*)$/)		{$extension = $1;}
+	if (/^agi_callerid\:\s+(.*)$/)		{$callerid = $1;}
+	if (/^agi_calleridname\:\s+(.*)$/)	{$calleridname = $1;}
+
+	if ( ($callerid =~ /\".*\"/) && ( (!$calleridname) or ($calleridname =~ /unknown/) ) )
+		{
+		$calleridname = $callerid;
+		$calleridname =~ s/\<\d\d\d\d\d\d\d\d\d\d\>//gi;
+		$calleridname =~ s/\"|\" //gi;
+		}
+
+		$callerid =~ s/\D//gi;
+		$calleridname =~ s/unknown//gi;
+	if ( (!$callerid) or ($callerid =~ /unknown/) )
+		{$callerid = $calleridname;}
+
+	if (length($callerid)>0) {$phone_number = $callerid;}
+	   else {$phone_number = '';}
+	if (length($calleridname)>0) {$VLcomments = $calleridname;}
+	   else {$VLcomments = '';}
+}
+
+$areacode = $extension;
+if (length($areacode) > 10)
+	{
+	$areacode =~ s/^91|^991|^981|^971|^961|^951//gi;
+	$areacode =~ s/^1//gi;
+	}
+$areacode =~ s/\d\d\d\d\d\d\d$//gi;
+
+
+foreach $i (sort keys %AGI) 
+{
+	if ($AGILOG) {$agi_string = " -- $i = $AGI{$i}";   &agi_output;}
+}
+
+
+if ($areacode !~ /$clear_area_codes/)
+{
+	if ( (length($callerid)>20) && ($callerid =~ /\"\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S/) )
+	  {
+	   $calleridname =~ s/^\"//gi;
+	   $calleridname =~ s/\".*$//gi;
+	  }
+
+	### set the callerid to the ACQS value(calleridname)
+	print "SET CALLERID \"$calleridname\" <0000000000>\n";
+	checkresult($result);
+	if ($AGILOG) {$agi_string = "callerID changed: \"$calleridname\" <0000000000>";   &agi_output;}
+}
+
+if ($AGILOG) {$agi_string = "AGI Variables: |$extension|$areacode|$callerid|$calleridname|";   &agi_output;}
+
+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++;
+	}
+}
+
+
+
+sub agi_output
+{
+if ($AGILOG >=2)
+	{
+	### open the log file for writing ###
+	open(Lout, ">>$AGILOGfile")
+			|| die "Can't open $AGILOGfile: $!\n";
+	print Lout "$now_date|$script|$agi_string\n";
+	close(Lout);
+	}
+	### send to STDERR writing ###
+if ( ($AGILOG == '1') || ($AGILOG == '3') )
+	{print STDERR "$now_date|$script|$agi_string\n";}
+$agi_string='';
+}
diff --git a/agi/agi-VDADselective_CID_hangup.agi b/agi/agi-VDADselective_CID_hangup.agi
new file mode 100644
index 00000000..1260de28
--- /dev/null
+++ b/agi/agi-VDADselective_CID_hangup.agi
@@ -0,0 +1,226 @@
+#!/usr/bin/perl
+#
+# agi-VDADselective_CID_hangup.agi version 0.1   *NO DB Connection*
+# 
+# Will hangup a call if it is not within the specified area codes
+#
+# You need to put lines similar to those below in your extensions.conf file:
+#
+# ;outbound VICIDIAL calls:
+#exten => 8352,1,AGI(agi-VDADselective_CID_hangup.agi,${EXTEN})
+#exten => 8352,2,Playback(85100001)
+#exten => 8352,3,Hangup
+#
+# Copyright (C) 2006  Matt Florell <vicidial@gmail.com>    LICENSE: GPLv2
+#
+# changes:
+# 60918-1151 - First build
+#
+
+$script = 'agi-VDADselective_CID_hangup.agi';
+
+$AGILOG=1;
+
+# CLEAR AREA CODE LISTINGS:
+# Florida: 239|305|321|352|386|407|561|689|727|754|772|786|813|836|850|861|863|904|941|954
+
+$clear_area_codes = '239|305|321|352|386|407|561|689|727|754|772|786|813|836|850|861|863|904|941|954';
+
+
+($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";
+
+# default path to astguiclient configuration file:
+$PATHconf =		'/etc/astguiclient.conf';
+
+open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
+@conf = <conf>;
+close(conf);
+$i=0;
+foreach(@conf)
+	{
+	$line = $conf[$i];
+	$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
+	if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
+		{$PATHhome = $line;   $PATHhome =~ s/.*=//gi;}
+	if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
+		{$PATHlogs = $line;   $PATHlogs =~ s/.*=//gi;}
+	if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
+		{$PATHagi = $line;   $PATHagi =~ s/.*=//gi;}
+	if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
+		{$PATHweb = $line;   $PATHweb =~ s/.*=//gi;}
+	if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
+		{$PATHsounds = $line;   $PATHsounds =~ s/.*=//gi;}
+	if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
+		{$PATHmonitor = $line;   $PATHmonitor =~ s/.*=//gi;}
+	if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
+		{$VARserver_ip = $line;   $VARserver_ip =~ s/.*=//gi;}
+	if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
+		{$VARDB_server = $line;   $VARDB_server =~ s/.*=//gi;}
+	if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
+		{$VARDB_database = $line;   $VARDB_database =~ s/.*=//gi;}
+	if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
+		{$VARDB_user = $line;   $VARDB_user =~ s/.*=//gi;}
+	if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
+		{$VARDB_pass = $line;   $VARDB_pass =~ s/.*=//gi;}
+	if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
+		{$VARDB_port = $line;   $VARDB_port =~ s/.*=//gi;}
+	$i++;
+	}
+
+if (!$VARDB_port) {$VARDB_port='3306';}
+if (!$AGILOGfile) {$AGILOGfile = "$PATHlogs/agiout.$year-$mon-$mday";}
+
+use DBI;
+use Asterisk::AGI;
+$AGI = new Asterisk::AGI;
+
+$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
+    or die "Couldn't connect to database: " . DBI->errstr;
+
+### begin parsing run-time options ###
+if (length($ARGV[0])>1)
+{
+	if ($AGILOG) {$agi_string = "Perl Environment Dump:";   &agi_output;}
+	$i=0;
+	while ($#ARGV >= $i)
+	{
+	$args = "$args $ARGV[$i]";
+	if ($AGILOG) {$agi_string = "$i|$ARGV[$i]";   &agi_output;}
+	$i++;
+	}
+}
+
+$|=1;
+while(<STDIN>) 
+{
+	chomp;
+	last unless length($_);
+	if ($AGILOG)
+	{
+		if (/^agi_(\w+)\:\s+(.*)$/)
+		{
+			$AGI{$1} = $2;
+		}
+	}
+
+	if (/^agi_channel\:\s+(.*)$/)		{$channel = $1;}
+	if (/^agi_extension\:\s+(.*)$/)		{$extension = $1;}
+	if (/^agi_callerid\:\s+(.*)$/)		{$callerid = $1;}
+	if (/^agi_calleridname\:\s+(.*)$/)	{$calleridname = $1;}
+
+	if ( ($callerid =~ /\".*\"/) && ( (!$calleridname) or ($calleridname =~ /unknown/) ) )
+		{
+		$calleridname = $callerid;
+		$calleridname =~ s/\<\d\d\d\d\d\d\d\d\d\d\>//gi;
+		$calleridname =~ s/\"|\" //gi;
+		}
+
+		$callerid =~ s/\D//gi;
+		$calleridname =~ s/unknown//gi;
+	if ( (!$callerid) or ($callerid =~ /unknown/) )
+		{$callerid = $calleridname;}
+
+	if (length($callerid)>0) {$phone_number = $callerid;}
+	   else {$phone_number = '';}
+}
+
+$CIDlead_id = $calleridname;
+$CIDlead_id = substr($CIDlead_id, 11, 9);
+$CIDlead_id = ($CIDlead_id + 0);
+
+$stmtA = "SELECT phone_number FROM vicidial_list where lead_id = '$CIDlead_id' limit 1;";
+	if ($AGILOG) {$agi_string = "|$stmtA|";   &agi_output;}
+$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
+$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+$sthArows=$sthA->rows;
+ $rec_count=0;
+while ($sthArows > $rec_count)
+	{
+	@aryA = $sthA->fetchrow_array;
+	$phone_number	= "$aryA[0]";
+	 $rec_count++;
+	}
+$sthA->finish();
+
+$areacode = $phone_number;
+if (length($areacode) > 10)
+	{
+	$areacode =~ s/^91|^991|^981|^971|^961|^951//gi;
+	$areacode =~ s/^1//gi;
+	}
+$areacode =~ s/\d\d\d\d\d\d\d$//gi;
+
+
+foreach $i (sort keys %AGI) 
+{
+	if ($AGILOG) {$agi_string = " -- $i = $AGI{$i}";   &agi_output;}
+}
+
+
+if ($areacode !~ /$clear_area_codes/)
+{
+	print "SET HANGUP $channel\n";
+	checkresult($result);
+	if ($AGILOG) {$agi_string = "channel Hungup: $channel";   &agi_output;}
+	print "SET EXTENSION $extension\n";
+	checkresult($result);
+	print "SET PRIORITY 3\n";
+	checkresult($result);
+
+}
+
+if ($AGILOG) {$agi_string = "AGI Variables: |$extension|$areacode|$phone_number|$callerid|$calleridname|$channel|";   &agi_output;}
+
+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++;
+	}
+}
+
+
+
+sub agi_output
+{
+if ($AGILOG >=2)
+	{
+	### open the log file for writing ###
+	open(Lout, ">>$AGILOGfile")
+			|| die "Can't open $AGILOGfile: $!\n";
+	print Lout "$now_date|$script|$agi_string\n";
+	close(Lout);
+	}
+	### send to STDERR writing ###
+if ( ($AGILOG == '1') || ($AGILOG == '3') )
+	{print STDERR "$now_date|$script|$agi_string\n";}
+$agi_string='';
+}
diff --git a/bin/AST_flush_DBqueue.pl b/bin/AST_flush_DBqueue.pl
index f2abcd7e..a1d883d1 100644
--- a/bin/AST_flush_DBqueue.pl
+++ b/bin/AST_flush_DBqueue.pl
@@ -134,7 +134,7 @@ $dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VA
 	$stmtA = "delete from vicidial_manager where server_ip='$server_ip' and entry_date < '$SQLdate_NEG_1hour';";
 		if($DB){print STDERR "\n|$stmtA|\n";}
 		if (!$T) {	$affected_rows = $dbhA->do($stmtA);}
-		if (!$Q) {print " - vicidial_manager 2 hour flush\n";}
+		if (!$Q) {print " - vicidial_manager 1 hour flush\n";}
 
         $stmtA = "optimize table vicidial_manager;";
                 if($DB){print STDERR "\n|$stmtA|\n";}
diff --git a/docs/BASE_INSTALL.txt b/docs/BASE_INSTALL.txt
index 8c37b42b..0a249382 100644
--- a/docs/BASE_INSTALL.txt
+++ b/docs/BASE_INSTALL.txt
@@ -200,7 +200,7 @@ free for download at the following two sites:
    'cp /var/lib/asterisk/sounds/conf.gsm /var/lib/asterisk/sounds/park.gsm'
   Here are the steps spelled out:
 	- cd /var/lib/asterisk/sounds
-	- wget http://www.freedomhones.net/conf.gsm 
+	- wget http://www.freedomphones.net/conf.gsm 
 	- cp conf.gsm park.gsm
    - you are done
 
diff --git a/docs/SCRATCH_INSTALL.txt b/docs/SCRATCH_INSTALL.txt
index 845a4aa7..cc377f47 100644
--- a/docs/SCRATCH_INSTALL.txt
+++ b/docs/SCRATCH_INSTALL.txt
@@ -1499,7 +1499,7 @@ free for download at the following two sites:
    'cp /var/lib/asterisk/sounds/conf.gsm /var/lib/asterisk/sounds/park.gsm'
   Here are the steps spelled out:
 	- cd /var/lib/asterisk/sounds
-	- wget http://www.freedomhones.net/conf.gsm 
+	- wget http://www.freedomphones.net/conf.gsm 
 	- cp conf.gsm park.gsm
 
    - you are done
diff --git a/docs/conf_examples/extensions.conf.sample b/docs/conf_examples/extensions.conf.sample
index aa164f02..85d14476 100644
--- a/docs/conf_examples/extensions.conf.sample
+++ b/docs/conf_examples/extensions.conf.sample
@@ -460,6 +460,21 @@ exten => 8320,2,Playback(conf)
 exten => 8320,3,AGI(VD_amd_post.agi,${EXTEN})
 exten => 8320,4,Hangup
 
+; use for selective CallerID hangup by area code(hard-coded)
+exten => 8352,1,AGI(agi-VDADselective_CID_hangup.agi,${EXTEN})
+exten => 8352,2,Playback(safe_harbor)
+exten => 8352,3,Hangup
+
+; prompt recording AGI script, ID is 4321
+exten => 8168,1,Answer
+exten => 8168,2,AGI(agi-record_prompts.agi)
+exten => 8168,3,Hangup
+
+; playback of recorded prompts
+exten => _851XXXXX,1,Answer
+exten => _851XXXXX,2,Playback(${EXTEN})
+exten => _851XXXXX,3,Hangup
+
 ; this is used to allow the GUI to send you directly into voicemail
 ;     don't forget to set GUI variable $voicemail_exten to this extension
 exten => 8501,1,VoicemailMain(s${CALLERIDNUM})
@@ -479,16 +494,6 @@ exten => 8500998,2,Playback(silence)
 exten => 8500998,3,AGI(agi-dtmf.agi)
 exten => 8500998,4,Hangup
 
-; prompt recording AGI script, ID is 4321
-exten => 8168,1,Answer
-exten => 8168,2,AGI(agi-record_prompts.agi)
-exten => 8168,3,Hangup
-
-; playback of recorded prompts
-exten => _851XXXXX,1,Answer
-exten => _851XXXXX,2,Playback(${EXTEN})
-exten => _851XXXXX,3,Hangup
-
 ; VICIDIAL_auto_dialer transfer script:
 exten => 8365,1,AGI(call_log.agi,${EXTEN})
 exten => 8365,2,AGI(agi-VDADtransfer.agi,${EXTEN})