From 68a9228f90e41611aa5c2db5a06f10d50a1638b7 Mon Sep 17 00:00:00 2001
From: mattf <mattf@3d104415-ff17-0410-8863-d5cf3c621b8a>
Date: Mon, 7 Aug 2006 18:00:16 +0000
Subject: [PATCH] added ADMIN_area_code_populate.pl DBI-version to DBI-scripts
 directory

git-svn-id: svn://192.168.202.10@125 3d104415-ff17-0410-8863-d5cf3c621b8a
---
 .../DBI-scripts/ADMIN_area_code_populate.pl   | 67 +++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 agc_1-X/trunk/DBI-scripts/ADMIN_area_code_populate.pl

diff --git a/agc_1-X/trunk/DBI-scripts/ADMIN_area_code_populate.pl b/agc_1-X/trunk/DBI-scripts/ADMIN_area_code_populate.pl
new file mode 100644
index 00000000..0a01c2bb
--- /dev/null
+++ b/agc_1-X/trunk/DBI-scripts/ADMIN_area_code_populate.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl
+# ADMIN_area_code_populate.pl version 0.3   *DBI-version*
+#
+# Copyright (C) 2006  Joe Johnson,Matt Florell <vicidial@gmail.com>    LICENSE: GPLv2
+#
+# Description:
+# server application that allows load areacodes into to asterisk list database
+#
+# CHANGES
+# 60615-1514 - Changed to ignore the header row
+# 60807-1003 - Changed to DBI
+#
+
+use Time::HiRes ('gettimeofday','usleep','sleep');  # needed to have perl sleep in increments of less than one second
+use DBI;	  
+
+### Make sure this file is in a libs path or put the absolute path to it
+require("/home/cron/AST_SERVER_conf.pl");	# local configuration file
+
+if (!$DB_port) {$DB_port='3306';}
+
+$dbhA = DBI->connect("DBI:mysql:$DB_database:$DB_server:$DB_port", "$DB_user", "$DB_pass")
+ or die "Couldn't connect to database: " . DBI->errstr;
+
+$slash_star = '\*';
+
+	open(codefile, "/home/cron/phone_codes_GMT.txt") || die "can't open /home/cron/phone_codes_GMT.txt: $!\n";
+	@codefile = <codefile>;
+	close(codefile);
+	$pc=0;
+	$ins_stmt="insert into vicidial_phone_codes VALUES ";
+	foreach (@codefile) 
+	{
+		@row=split(/\t/, $codefile[$pc]);
+		if ($codefile[$pc] !~ /GEOGRAPHIC DESCRIPTION/)
+		{
+			$pc++;
+			$row[7] =~ s/\r|\n|\t| $//gi;
+			$row[6] =~ s/\r|\n|\t| $//gi;
+			$row[5] =~ s/\r|\n|\t| $//gi;
+			$row[4] =~ s/\r|\n|\t| $//gi;
+			$row[3] =~ s/\r|\n|\t| $//gi;
+			$row[2] =~ s/\r|\n|\t| $//gi;
+			$row[1] =~ s/\r|\n|\t| $//gi;
+			$row[0] =~ s/\r|\n|\t| $//gi;
+			$ins_stmt.="('$row[0]', '$row[1]', '$row[2]', '$row[3]', '$row[4]', '$row[5]', '$row[6]', '$row[7]'), ";
+			if ($pc =~ /00$/) 
+			{
+				chop($ins_stmt);
+				chop($ins_stmt);
+				$affected_rows = $dbhA->do($ins_stmt) || die "can't execute query: |$ins_stmt| $!\n";
+				$ins_stmt="insert into vicidial_phone_codes VALUES ";
+				print STDERR "$pc\n";
+			}
+		}
+		else {$pc++;}
+	}
+
+	chop($ins_stmt);
+	chop($ins_stmt);
+	$affected_rows = $dbhA->do($ins_stmt);
+	$ins_stmt="insert into vicidial_phone_codes VALUES ";
+	print STDERR "$pc\n";
+
+$dbhA->disconnect();
+
+exit;
\ No newline at end of file