#!/usr/local/bin/perl 
##############################################################################
# thumbnail.pl v.9	1 October 1995	Dale Bewley	dbewley@iupui.edu
#-----------------------------------------------------------------------------
# This script and others found at http://www.engr.iupui.edu/~dbewley/perl
#
# Uses convert (must be on your system) to create thumbnails
# of your flavorite graphics.
#	Boy this is a complicated one! :)
#
##############################################################################

$CONVERT = "/usr/X11R6/bin/convert";	#location of convert program
$THUMBNAIL_SIZE = 75;			#pixel width of thumbnail
$THUMBNAIL_PATH = "thumbnails/";	#dir where thumbnails will be stored

$CONVERT="$CONVERT -geometry ${THUMBNAIL_SIZE}x${THUMBNAIL_SIZE}+0+0";

if (!$ARGV[0]) { die "Usage: $0 (graphic filename)\n"; }

while (@ARGV) {
	system "$CONVERT $ARGV[0] $THUMBNAIL_PATH$ARGV[0]";
	shift @ARGV;
}