for i in `cat dirlist`
do
	echo $i
	dname=`basename $i`
	pname=`dirname $i`
	(cd $pname && lha -mraxeq a $dname.lha $dname.info)
	(cd $pname && lha -mraxeq a $dname.lha $dname)
	(cd $pname && rename $dname/Product-Info $dname.lha.pi)
	(cd $pname && delete $dname $dname.info all quiet force)
done
