blob: b9a02c680c74dfd11b87d401316bc16863ca32fd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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;
}
|
