#!/usr/bin/perl # This is a script by James Shaw # Copyright 2001 # Always include a link to www.jamesshaw.org.uk # Wherever this script is used. # Important Code Follows - Configuration is below this block use strict; use CGI qw(:all); use vars qw($template $menu $main $path $template_file $menu_file $main_file $img $def_template $def_menu $def_main $ext $extimg); use vars qw(@main_file @template_file @menu_file); use Fcntl qw(:flock); # Edit This If You Wish # The folder with your files in $path="/home/monsterm/public_html/artisticwildlife/photos/"; # Standard page extensions $ext=".html"; # Image extensions $extimg=".jpg"; # The default main page $def_main="photosdef"; # The default menu page #$def_menu="menu"; #The default template file $def_template="photos"; # Important Code Follows print header; $template=param('tem'); if (! $template){ $template=$def_template; } $menu=param('sub'); if (! $menu){ $menu=$def_menu; } $main=param('page'); if (! $main){ $main=$def_main; } $img=param('img'); if ($img){ $main_file="