From 7bc780834a604a2e678d028f875fd4b546412cfb Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 11 Mar 2009 08:46:21 +0000
Subject: quick list of area codes and a kludge to print DA numbers for all of
 them

---
 bin/print-directory_assist | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 bin/print-directory_assist

(limited to 'bin/print-directory_assist')

diff --git a/bin/print-directory_assist b/bin/print-directory_assist
new file mode 100755
index 000000000..210a16c60
--- /dev/null
+++ b/bin/print-directory_assist
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $acs = `cut -c1-3 ../etc/areacodes.txt`;
+
+my $plus = '';
+foreach my $npa ( split(/\n/, $acs ) ) {
+  warn $npa;
+  $plus .= $npa. '5551212 ';
+}
+print "$plus\n";
-- 
cgit v1.2.1