#!/bin/sh
#
#	ZipList
#	V1.1 -  4 Apr 1997
#
# List all files INSIDE zip files on current area.
#  for msdos/programming, about 8 minutes
#
#    Written by
#	Jouko Valta   (jopi@x2ftp.oulu.fi)
#
#
# Revision History
#  V1.0  - 14 Jun 1996		List ZIP contents
#  V1.1  -  4 Apr 1997		Added arc,arj,lha,lzh,zoo formats.
#
#
#  Usage:  ziplist [ files ]
#

# NOTE: IF command has negative logic


case $# in
0)
	files=`find . -type f -print`
	;;
*)
	files="$@";
	;;
esac

# echo $files


for index in $files
do

case `basename $index [_.]good` in

*.arc|*.ARC)
	echo ""
	echo $index;
	arc l $index
	;;

*.arj|*.ARJ)
	echo ""
	echo $index;
	unarj l $index
	;;

*.lha|*.LHA|*.lzh|*.LZH)
	echo ""
	echo $index;
	lha l $index
	;;

*.zip|*.ZIP)
	echo ""
	echo $index;
	unzip -l $index
	;;

*.zoo|*.ZOO)
	echo ""
	echo $index;
	zoo l $index
	;;
esac
done

echo "done."