#!/bin/bash
function search-for-dependants ()
{
  pushd "$1" || exit 1
  for template in `find . -type f -print | egrep -v CVS | sed 's/^\.\///;'`
  do
    remove=$template
    if echo $template | egrep -q '\.pm$'; then 
      template=$(echo $template | sed 's/^.*\/lib\///;s/\//::/g;s/\.pm$//;')
    fi
    echo "========================================"
    echo $template
    echo "========================================"
    find ~/src/netfax \
      -type f \( -exec egrep -q $template "{}" \; -a -print \) |
        egrep -v CVS | egrep -v $remove | sort -u
    echo -e "========================================\n\n"
  done |
    sed 's/^\/home\/lcampos\/src\/netfax\///;' |
    tee ~/tmp/files
  popd 
}

search-for-dependants ~/src/netfax/components
search-for-dependants ~/src/netfax/lib