1 files changed, 19 insertions, 0 deletions
diff --git a/utils/bbdb-unlazy-lock.pl b/utils/bbdb-unlazy-lock.pl
new file mode 100755
index 0000000..b9a02c6
--- /dev/null
+++ b/utils/bbdb-unlazy-lock.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+#
+# Author: Christopher Kline <ckline@media.mit.edu>
+#
+# $Id: bbdb-unlazy-lock.pl,v 1.1 1997/10/06 00:56:14 simmonmt Exp $
+#
+# $Log: bbdb-unlazy-lock.pl,v $
+# Revision 1.1  1997/10/06 00:56:14  simmonmt
+# Initial revision
+#
+#
+# Lazy-lock-mode has (had) a nasty habit of munging .bbdb files if you visited them
+# with it on.  This script removes the lazy-lock mung
+#
+
+while( <STDIN> ) {
+    s/#\(("[^"]*")( \d+ \d+ (nil)*(\(lazy-lock t\))*)*\)/$1/gi;
+    print;
+}