root/pm2tgz/trunk/pm2tgz

#!/bin/bash

SELF=$(basename $0)
HOMEDIR=$PWD

if [ $# = 0 ]; then
        cat << EOF
usage: $SELF <perl-module>

Convert a perl-module into a Slackware package.
EOF
        exit 1
fi

SEEK=${1//::/\/}
DIRNAME=${1//::/-}
FOUND=""

for SEARCH in $(perl -e 'print("@INC");'); do
        if [ -r "$SEARCH/$SEEK/.packlist" ]; then
                FOUND="$SEARCH/$SEEK/.packlist"
                break
        elif [ -r "$SEARCH/auto/$SEEK/.packlist" ]; then
                FOUND="$SEARCH/auto/$SEEK/.packlist"
                break
        fi
done

if [ -z "$FOUND" ]; then
        echo "$SELF: could not find .packlist for $1"
        exit 1
fi

TMPDIR=/var/tmp/$SELF.$$
mkdir -p $TMPDIR
trap "rm -rf $TMPDIR" INT EXIT
(cat $FOUND; echo $FOUND) | cpio --quiet -pd $TMPDIR || exit 1
cd $TMPDIR || exit 1
mkdir -p install

NAME=$(echo ${1//::/-} | tr [[:upper:]] [[:lower:]])
VERSION=$(perl -e "use $1; print \$$1::VERSION;")

# Can't get version programatically, try CPAN build directory
if [ -z "$VERSION" ]; then
        if [ -r ~/.cpan/build/$DIRNAME-* ]; then
                VERSION=~/.cpan/build/$DIRNAME-*
                VERSION=$(basename $VERSION)
                VERSION=${VERSION#$DIRNAME-}
        fi
fi

cat << EOF > install/slack-desc
perl-$NAME: 
perl-$NAME: $1 Perl module version $VERSION
perl-$NAME: 
EOF
yes | makepkg $HOMEDIR/perl-$NAME-$VERSION-i386-1.tgz