1 files changed, 0 insertions, 62 deletions
diff --git a/utils/bbdb-areacode-split.pl b/utils/bbdb-areacode-split.pl
deleted file mode 100755
index b77e65f..0000000
--- a/utils/bbdb-areacode-split.pl
+++ /dev/null
@@ -1,62 +0,0 @@
-#!/usr/bin/perl
-# 
-# Looks for phone numbers in your .bbdb with a particular area code
-# and one of a set of exchanges and changes the area code.  The old
-# and new area codes are specified on the command line, as is the
-# location of a file that contains the exchanges that are being
-# changed.  (The format of that file is very loose.  Every three digit
-# sequence will be used.)
-# 
-# Seth Golub <seth@cs.wustl.edu>
-# 15 Aug 1997
-
-sub Usage
-{
-    $0 =~ s@.*/@@;
-    die "Usage: \n  $0 <old-code> <new-code> <exchanges-file> [bbdb]\n";
-}
-
-$old_area_code = shift || Usage();
-$new_area_code = shift || Usage();
-$exchange_list_file = shift || Usage();
-
-$bbdb_file = $ENV{'BBDB'} || shift || $ENV{'HOME'} . '/.bbdb';
-$bbdb_dir = `dirname $bbdb_file`;  chomp $bbdb_dir;
-$tmp_file = "$bbdb_dir/bbdb.new-$$";
-
-open( LIST, "<$exchange_list_file" ) 
-    || die "Failed to open $exchange_list_file\n";
-
-while (<LIST>)
-{
-    while ( /(\d\d\d)/g )
-    {
-        push( @exchanges, $1 );
-    }
-}
-
-close( LIST );
-
-$exchanges = join( '|', @exchanges );
-
-open( BBDB_IN, "<$bbdb_file" ) || die "Failed to open $bbdb_file\n";
-open( BBDB_OUT, ">$tmp_file" ) || die "Failed to open $tmp_file\n";
-
-while (<BBDB_IN>)
-{
-    next unless /^\[/;
-    s/(\[\".*?\") $old_area_code (($exchanges) \d+ \d+\])/$1 $new_area_code $2/og;
-} continue {
-    print BBDB_OUT;
-}
-
-close( BBDB_IN );
-close( BBDB_OUT );
-
-unlink( "$bbdb_file.bak" );
-rename( $bbdb_file, "$bbdb_file.bak" );
-rename( $tmp_file, $bbdb_file );
-
-print STDERR "Old bbdb moved to $bbdb_file.bak\n";
-
-__END__