For what it's worth, here is the part of the HTML_Templates.pm file that matters.
Dave
package Links::HTML_Templates;
# ===============================================================
use strict;
use vars qw(%GLOBALS %USERS @EXPORT @ISA);
use Carp;
use lib '..';
use Links;
use Links:
B_Utils;
use Exporter ();
@ISA = qw(Exporter);
@EXPORT = qw/&site_html_link &site_html_home &site_html_new &site_html_cool &site_html_detailed &site_html_category &site_html_ratings
&site_html_add_form &site_html_add_success &site_html_add_failure &site_html_modify_form &site_html_modify_success &site_html_modify_failure
&site_html_search_results &site_html_search_failure &site_html_search_form
&site_html_mailing &site_html_mailing_error
&site_html_rate_form &site_html_rate_success &site_html_rate_failure
&site_html_login_form &site_html_login_success
&site_html_signup_form &site_html_signup_success
&site_html_validate_form &site_html_validate_success
&site_html_error &site_html_maintainer &site_html_print_cat
%USERS %GLOBALS/;
#Original Templates.cfg stuff below
# This script is not freeware! Please read the README for full details
# on registration and terms of use.
# =====================================================================
# Stuff that will change the look of all the pages
my $build_site_title = 'my''PA SEEK';
# Originally a teal color
my $color1 = 'my''#a0b8c8';
# Originally a yellow color. Seen on home page.
my $color2 = 'my''#ffffcc';
# Originally a gray color. Background for news and features on home page.
my $color3 = 'my''#dcdcdc';
# Originally a light gray color. Used as background for the Site Menu on the pages except home.
my $color4 = 'my''#EEEEEE';
# Originally a dark gray color. Border around the site menu.
my $color5 = 'my''#808080';
# Originally a semi-light gray color. Border around the special links table.
my $color6 = 'my''#cccc99';
# Originally a khaki color. Right on top of the special links table.
my $color7 = 'my''#cccccc';
# Goes on the right of every page but home page. Links to special pages on your site
my $special1 = 'my''PA Events Add yours Free';
my $special_url1 = 'my''http://www.pavisnet.com/guestcal';
my $special2 = 'my''Pennsylvania Weather';
my $special_url2 = 'my''http://iwin.nws.noaa.gov/iwin/pa/pa.html';
my $special3 = 'my''Pennsylvania Historical and Museums';
my $special_url3 = 'my''http://www.state.pa.us/PA_Exec/Historical_Museum/';
my $special4 = 'my''Pennsylvania Law and Government';
my $special_url4 = 'my''http://www.lawresearch.com/v2/cspa.htm';
# Logos - Logob is on the homepage, logos is the small logo on the top left of every other page
my $logob = 'my''';
my $logos = 'my''http://www.paseek.com/pages/paseek.gif';
# Near the bottom on all the pages but the home page
my $event = 'my''Top HOT Links';
my $event_desc = 'my''Top Rated Links!';
my $event_url = 'my''http://www.paseek.com/Ratings/index.html';
# Goes on the bottom of all pages
my $copyright = 'my''Copyright © 1999 Business Ad Net, Inc.!';
# Right Column on the Home Page - Marketplace
my $news1 = 'my''Highland Country Farms';
my $news_url1 = 'my''http://www.highlandcountryfarms.com';
my $news2 = 'my''Factory Supply Company';
my $news_url2 = 'my''http://www.factorysupplycompany.com';
my $news3 = 'my''';
my $news_url3 = 'my''';
my $news4 = 'my''';
my $news_url4 = 'my''';
# Right Column on the Home Page - Featured Links
my $feature1 = 'my''CENTURY 21 Krall Real Estate';
my $feature_url1 = 'my''http://www.c21krall.com';
my $feature_desc1 = 'my'' - Lebanon Valley, Properties Online, Lots and Land, Commercial & Apartments';
my $feature2 = 'my''East Coast Web';
my $feature_url2 = 'my''http://www.eastcoastweb.com';
my $feature_desc2 = 'my'' - Web Site Design, Virtual Hosting, CGI Scripts, Server Collocation & Administration';
my $feature3 = 'my''Pennsylvania Visitors Network';
my $feature_url3 = 'my''http://www.pavisnet.com';
my $feature_desc3 = 'my'' - The states largest site focused on travel, tourism and recreation in Pennsylvania';
my $feature4 = 'my''';
my $feature_url4 = 'my''';
my $feature_desc4 = 'my'' - ';
my $feature_more = 'my''more...';
my $feature_more_url = 'my''';
#Top of Home Page
my $highlight1 = 'my''Pennsylvania Web Site';
my $highlight_url1 = 'my''http://www.state.pa.us';
my $highlight_desc1 = 'my''Visit us Often';
my $highlight2 = 'my''Made In PA';
my $highlight_url2 = 'my''http://www.madeinpa.com';
my $highlight_desc2 = 'my''Explore the wealth of products made right here in Pennsylvania';
1;
# ----------------------------------------------------------------------
# The HTML in this file and the style sheet (links.css) have been authored
# by Chris Croome of webarchitects.
#
# Email: chris@atomism.demon.co.uk
# Web: http://www.webarchitects.co.uk/
# ----------------------------------------------------------------------
# You can put variables here that you would like to use in any
# of your templates.
%GLOBALS = (
date => \&Links:
BSQL::get_date,
time => \&Links:
BSQL::get_time,
db_cgi_url => $LINKS{db_cgi_url},
build_root_url => $LINKS{build_root_url},
site_title => $LINKS{build_site_title},
css => $LINKS{build_css_url},
banner => ''
color1 => $color1,
color2 => $color2,
color3 => $color3,
color4 => $color4,
color5 => $color5,
color6 => $color6,
color7 => $color7,
special1 => $special1,
special2 => $special2,
special3 => $special3,
special4 => $special4,
special_url1 => $special_url1,
special_url2 => $special_url2,
special_url3 => $special_url3,
special_url4 => $special_url4,
logob => $logob,
logos => $logos,
event => $event,
event_url => $event_url,
event_desc => $event_desc,
copyright => $copyright,
feature1 => $feature1,
feature2 => $feature2,
feature3 => $feature3,
feature4 => $feature4,
feature_desc1 => $feature_desc1,
feature_desc2 => $feature_desc2,
feature_desc3 => $feature_desc3,
feature_desc4 => $feature_desc4,
feature_url1 => $feature_url1,
feature_url2 => $feature_url2,
feature_url3 => $feature_url3,
feature_url4 => $feature_url4,
feature_more => $feature_more,
feature_more_url => $feature_more_url,
news1 => $news1,
news2 => $news2,
news3 => $news3,
news4 => $news4,
news_url1 => $news_url1,
news_url2 => $news_url2,
news_url3 => $news_url3,
news_url4 => $news_url4,
news_more => $news_more,
news_more_url => $news_more_url,
highlight1 => $highlight1,
highlight2 => $highlight2,
highlight_url1 => $highlight_url1,
highlight_url2 => $highlight_url2,
highlight_desc1=> $highlight_desc1,
highlight_desc2=> $highlight_desc2
);
sub site_html_link {
# --------------------------------------------------------