#!/usr/bin/perl
|
|
|
|
# This is a basic test of an image gallery function I'm working on.
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use lib 'lib';
|
|
use Display::Image;
|
|
|
|
print Display::Image::gallery(
|
|
"/home/bbearnes/p1k3.com/archives/winfield",
|
|
"http://p1k3.com/winfield"
|
|
);
|