#!/bin/sh

PACKAGE_LIST="$HOME/.cpan/sources/modules/02packages.details.txt.gz"
PACKAGE_LIST_CAT="zcat"

CPAN_WGET="wget -q http://search.cpan.org/CPAN/authors/id/"

die ()
{
	echo "fatal error: $*" >&2
	exit 1
}  # die

warned=0
warn ()
{
	echo "warning: $*" >&2
	warned=1
}  # warn

for module in "$@"
do
	dist=`$PACKAGE_LIST_CAT $PACKAGE_LIST \
	      | awk '$1=="'"$module"'"{print $3}'`
	if [ "x${dist##*-[0-9]*.tar.gz}" != "x" ]
	then
		warn "Not getting invalid distribution \"$dist\" for $module"
		continue
	fi

	$CPAN_WGET"$dist"
	if [ $? -ne 0 ]; then
		warn "Possible failure for $module ($dist)"
	else
		echo "$(basename "$dist")"
	fi
done

exit $warned