This commit was manufactured by cvs2svn to create branchfreeside_1_9_1

'FREESIDE_1_9_BRANCH'.

1 files changed, 12 insertions, 0 deletions

diff --git a/bin/print-directory_assist b/bin/print-directory_assist
new file mode 100755
index 000000000..4c5e4a861
--- /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";