#!/bin/ksh
#
# $Revision: 1.3 $ $Date: 2012-07-26 16:50:09-04 $
# $Source: /home/vogelke/bin/RCS/podsearch,v $
# $Host: sys7.com $
# $UUID: 48614b64-4c86-3ae9-a25c-73d5cf4dc0cf $
#
#<podsearch: either search or index perl documentation.
# hardlink this script under two names: podsearch and podindex.
# usage: podindex   or    podsearch string

export PATH=/usr/local/bin:/bin:/usr/bin:/usr/sbin
PODINDEX=/usr/local/lib/perlpod.idx
myname=${0##*/}

function podindex {
    includes="$(perl -e 'pop @INC; print "@INC"')"
    find $includes -name '*.pm' -or -name '*.pod' |
        xargs grep -ne '^=head\|^X' > $PODINDEX
}

function podsearch {
    if [ "x$1" = x ]; then
        echo "Must supply a search pattern."
        return
    fi

    if [ "x$1" = x-v ]; then
        grep -i ":.*$2" $PODINDEX
    else
        grep -i ":.*$1" $PODINDEX | cut -d: -f1 |
            sort | uniq -c | sort -rn
    fi
}

case "$myname" in
    podindex)  podindex ;;
    podsearch) podsearch $@ ;;
esac

exit 0