[freeside-commits] freeside/bin print-directory_assist,NONE,1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv17694/bin

Added Files:
	print-directory_assist 
Log Message:
quick list of area codes and a kludge to print DA numbers for all of them

--- NEW FILE: print-directory_assist ---
#!/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";