• NAME
• SYNOPSIS
• DESCRIPTION
  • Example Output
• OPTIONS
  • Variables
• TODO
• AUTHOR

NAME

source - http://www.bewley.net/perl/gtindex.pl

SYNOPSIS

   Examples: 
     gtindex.pl *.jpg 
     gtindex.pl -vdt "Dale's Police Brutality Imagery" -b "none" *.gif 
     gtindex.pl -v -l "none" -r 3 -t "graphics" *.gif *.jpg 

DESCRIPTION

This script requires perl5 (barely) and has been testing in win95 and UNIX. Well, it hasn't been tested on win95 lately. good luck.

Use this if you have many many graphics that you would like to be able to browse easily with a web browser.

Say you have a dir called gfx filled full of graphics. Create a subdir called gfx/thumbnails and place thumbnail sized copies of each graphic in there. How do you make the thumbnails? That depends on your platform. I would reccomend thumbsplus for win95 and convert for UNIX. Convert is a part of the Imagemagik package. Now cd to your gfx dir and run this little gem.

Thumbnails must be in a subdir of the dir containing your pictures. They must also have the SAME NAME as their full sized versions!! Of course you don't need thumbnails at all if you don't have any. Just don't create the thumbnail dir and gtindex.pl will still work normally. Well, almost...

Example Output

Dale's Images

http://www.bewley.net/photos/tindex.html

Jeremy Stafford-Deitsch's Shark Photos

http://www.wattcom.com/sharks/photo/tindex.html

Marisa Tomei Pictures

http://espsun.space.swri.edu/~joey/pics/marisa/tindex.html

OPTIONS

-b URL

Bullet graphic URL. To appear to the left of image titles. Use -b ``none'' if you prefer no bullets.

-d

Destructive. Overwrite old indexes.

-f URL

Baseref. URL to prepend all IMG SRC's.

-h

Help!

-l URL

Line graphic. To appear at the at top and bottom of indexes. Use -l ``none'' if you prefer no line graphics.

-m dir

Directory (relative to current dir) which contains thumbnail images.

-r number

Maximum rows or images in table cell.

-s

Print size of file in index.

-t "page title"

Title of page. Don't forget the quotes!

-v

Verbose.

Variables

$ALINK = "#ee0033";

Index active link color.

$BGCOLOR = "#ffffff";

Index background color.

$LINK = "#6600ff";

Index link color.

$TEXT = "#000000";

Index normal text color.

$VLINK = "#ee0000";

Index visited link color.

$BULLET = "../images/ball.gif";

Default bullet next to index entry. ``'' if none.

$MAX_ON_PAGE = "12";

Maximum images on a page. i won't explain this because it is part of the hard coding and may just confuse things.

$MAX_ROWS = "4";

Maximum number of images down a column. this means you will have $MAX_ON_PAGE / $MAX_ROWS columns (3)

$SITE_NAME = "Dale's Image Gallery - ";

Printed in title. Change this before you run it.

$HOME_URL = "http://www.bewley.net/perl/";

Home link on indexes. Change this too.

$THUMB_DIR = "thumbnails";

Directory containing optional thumbnails of images. it is assumed this will be within the current directory and thumbnails will have same names as full sized versions.

$TITLE = "";

Default title on each index page.

TODO

Make more portable.

The format of the index is not very flexible right now. I'm sure it will be eventually. I'd like to use the template process I use on http://www.bewley.net/perl/gif2html.html

Add recursion?

Support subdirectories of images. Sometime..

use Image::Size

Instead of the subs within use this module for getting thubmnail dimensions.

make CGIable.

Shouldn't be much I just don't have time.

make less ugly!!

AUTHOR