projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
quick list of area codes and a kludge to print DA numbers for all of them
[freeside.git]
/
bin
/
print-directory_assist
diff --git a/bin/print-directory_assist
b/bin/print-directory_assist
new file mode 100755
(executable)
index 0000000..
210a16c
--- /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";