Ticket #1106: perl-tags

#!/bin/bash
#
# wrapper for perl-tags as called from Padre.
# Launches /usr/local/bin/perl-tags in the background and with a -d 2 parameter inserted.
# The resulting perltags file contains a great deal of duplication, but it's already
# mostly sorted, so run it through 'uniq' to delete the duplicates.  This shortens my
# local perltags results from >18,000 lines to around 7,500.
#
# padre calls this with 'system' 'perl-tags' '-o' '$perltags' '$project_dir'
# so we're receiving "-o" "perltags" "projectdir"
#

# check expectations.  If not what I expect to see, bail and just run it with the
# parameters as provided.  Otherwise, we override.
if [ X"$1" == X"-o" ]; then
  TAGFILE="$2"
  TMPTAG=`mktemp --tmpdir`
  DIR="$3"
  (  
    /usr/local/bin/perl-tags -d 2 -o "$TMPTAG" "$DIR" && \
      uniq <"$TMPTAG" >"$TAGFILE" && rm "$TMPTAG" && \
      xmessage -nearmouse "$TAGFILE created."
  ) &
else
  /usr/local/bin/perl-tags -d 2 $*
fi