head	1.4;
access;
symbols;
locks
	ahuxley:1.4; strict;
comment	@# @;


1.4
date	99.06.16.09.12.07;	author ahuxley;	state Exp;
branches;
next	1.3;

1.3
date	99.06.16.06.56.12;	author ahuxley;	state Exp;
branches;
next	1.2;

1.2
date	98.01.17.13.18.09;	author alexis;	state Exp;
branches;
next	1.1;

1.1
date	97.11.26.14.43.51;	author alexis;	state Exp;
branches;
next	;


desc
@@


1.4
log
@converted to perl and ESO support
@
text
@#!/usr/bin/ksh

PHONE_FILE=$HOME/doc/misc/phone.txt

case "$1" in
    "") ${EDITOR:-vi} $PHONE_FILE
	clear ;;

    *)  perl -e '$/ = ""; $f=1; while (<STDIN>) { if (/$ARGV[0]/i) { print; $f=0; } } exit $f' "$@@" < $PHONE_FILE || /usr/server/bin/phone "$@@" ;;
esac
@


1.3
log
@switched to using 'query' to lookup stuff
@
text
@d9 1
a9 1
    *)  query $PHONE_FILE "$@@" ;;
@


1.2
log
@*** empty log message ***
@
text
@d3 1
a3 1
PHONE_FILE=$HOME/docs/misc/phone.txt
d9 1
a9 1
    *)  grep -i "$1" $PHONE_FILE ;;
@


1.1
log
@Initial revision
@
text
@d1 1
a1 1
#!/bin/sh
d3 1
a3 2
PHONEFILE=$HOME/docs/misc/phone.txt
DEFAULT_EDITOR=vi
d5 3
a7 1
[ "$1" ] || { ${EDITOR:-$DEFAULT_EDITOR} $PHONEFILE; clear; exit 0; }
d9 2
a10 1
egrep -v '^#.*' $PHONEFILE | grep -i $1
@