Okay, here's a peek at it. Thanks for your help!
Code:
# ----------------------
# DBMan
# ----------------------
# Database Administrator
#
# File: default.cfg
# Description: This is the setup file that contains the database definition,
# and most of the options required to set the program up.
# Author: Alex Krohn
# Email: alex@gossamer-threads.com
# Web: http://www.gossamer-threads.com/
# Version: 2.04
#
# COPYRIGHT NOTICE:
#
# Copyright 1997
Gossamer Threads Inc. All Rights Reserved.
#
# This program is being distributed as shareware. It may be used and
# modified free of charge for personal, academic, government or non-profit
# use, so long as this copyright notice and the header above remain intact.
# Any commercial use should be registered. Please also send me an email,
# and let me know where you are using this script. By using this program
# you agree to indemnify
Gossamer Threads Inc. from any liability.
#
# Selling the code for this program without prior written consent is
# expressly forbidden. Obtain permission before redistributing this
# program over the Internet or in any other medium. In all cases
# copyright and header must remain intact.
#
# Please check the README file for full details on registration.
# =====================================================================
# File and URL's
# --------------------------------------------------------
# URL of the directory dbman resides in. No Trailing Slash Please.
$db_dir_url = "http://www.mydomain.ca/cgi-bin/inquiries";
# URL of dbman.
$db_script_url = $db_dir_url . "/db.cgi";
# Full Path and File name of the database file.
$db_file_name = $db_script_path . "/default.db";
# Full path and file name of the counter file.
$db_id_file_name = $db_script_path . "/default.count";
# Full path and file name of the authorization directory.
$auth_dir = $db_script_path . "/auth";
# Full path and file name of the password file.
$auth_pw_file = $db_script_path . "/default.pass";
# Full path and file name of the log file.
$auth_log_file = $db_script_path . "/default.log";
# Full path and file name of the html routines.
require $db_script_path . "/html.pl";
# Full path to sendmail on your system
$mailprog = "|/usr/lib/sendmail -t -oeq";
# Your email address
$admin_email = 'inquiries@mydomain.ca';
$recipient_email = '';
$db_email_field = 'Email';
$print_get_cookies = "1";
# Database Definition
# --------------------------------------------------------
# Definition of your database. Format is
# field_name => ['position', 'field_type', 'form-length', 'maxlength', 'not_null', 'default', 'valid_expr']
%db_def = (
'Number' => [ 0, 'numer', -1, 255, 1, '', ''],
'Name' => [ 1, 'alpha', 40, 255, 1, '', ''],
'Address' => [ 2, 'alpha', 40, 255, 1, '', ''],
'City' => [ 3, 'alpha', 20, 255, 1, '', ''],
'State' => [ 4, 'alpha', 3, 255, 1, '', ''],
'Zip' => [ 5, 'alpha', 7, 255, 1, '', ''],
'Country' => [ 6, 'alpha', 10, 255, 1, '', ''],
'Email' => [ 7, 'alpha', 40, 255, 0, '', '.+@.+..+'],
'SendMe' => [ 8, 'alpha', 0, 255, 1, '', ''],
'Reservation' => [ 9, 'alpha', 0, 255, 0, '', ''],
'VacationType' => [10, 'alpha', 0, 255, 0, '', ''],
'Accommodations' => [11, 'alpha', 0, 255, 0, '', ''],
'Access' => [12, 'alpha', 0, 255, 0, '', ''],
'Arrival' => [13, 'alpha', 10, 255, 0, '', ''],
'Duration' => [14, 'alpha', 10, 255, 0, '', ''],
'Party' => [15, 'alpha', 10, 255, 0, '', ''],
'Description' => [16, 'alpha', '40x5', 1000, 0, '', ''],
'Referrer' => [17, 'alpha', 0, 255, 0, '', ''],
'Origin' => [18, 'alpha', 0, 255, 0, '', ''],
'Date' => [19, 'date', 20, 255, 0, &get_date(), '']
);
# The column name for the database key. Can be any column, but it must be unique!
# You can't have two records with the same key value!
$db_key = 'Number';
# Track the key? Should DBMan keep a counter of the next key to use? This isn't
# neccessary if you can guarantee that your entry in the key field will be unique
# (i.e. a userID).
$db_key_track = 1;
# Database delimeter.
$db_delim = '|';
# Use file locking (1 = Yes, 0 = No). Should be used, but won't work on Win95.
$db_use_flock = 1;
# Auto generate the html forms (1 = Yes, 0 = No).
$db_auto_generate = 0;
# Display Benchmarking Information (1 = Yes, 0 = No).
# use Benchmark; # Uncomment this line if benchmarking is used.
$db_benchmark = 0;
# Display Debugging Information (1 = Yes, 0 = No).
$db_debug = 0;
##############################################
# PDF Label export addition
# PDFlabels
# Path and file name of the pdf routines.
require $db_script_path . "/pdflabels.pl";
# Actual path to the public directory holding the exported pdf files for MSIE users
# (Make sure that this directory is chmod 777 on Unix servers)
$db_pdf_filexport_path = "/home/httpd/vhosts/mydomain.ca/httpdocs/PDFlabels"; # No trailing (/)
# Actual url to the public directory holding the exported pdf files for MSIE users
$db_pdf_url = "http://www.mydomain.ca/PDFlabels"; # No trailing (/)
##############################################
# Select fields. Field name => 'comma seperated list of drop down options'.
%db_select_fields = (
'Referrer' => 'SearchEngine,Another-Site,In-Fisherman,Field-and-Stream,From the Canadian Fishing Map',
'Origin' => 'Website,1-800'
);
# Radio fields. Field name => comma seperated list of radio buttons.
%db_radio_fields = (
'SendMe' => 'Fishing Map,I already have a current Canadian Fishing Map',
'Reservation' => 'Yes,No'
);
# Checkbox fields. Field name => Checkbox value.
%db_checkbox_fields = (
'VacationType' => 'Fishing,Small Game Hunting,Big Game Hunting,Canoe Trip,EcoTour,Other',
'Accommodations' => 'American Plan,Housekeeping,Outpost,RV Park/Campground,Houseboat,Hotel/Motel,Other',
'Access' => 'Drive-In,Fly-In,Boat-In,Rail-In'
);
# Default maximum number of hits returned in a search.
$db_max_hits = 10;
$excel_max_hits = 1000;
# Bold search results (1 = Yes, 0 = No).
$db_bold = 1;
# Regular and title fonts used in auto_generation and html.pl.
$font = 'font face="verdana,arial,helvetica" size="2"';
$font_title = 'font face="verdana,arial,helvetica" size="4"';
# Authorization Options
# --------------------------------------------------------
# No Authentication? (1 = "there is no authentication", 0 = "there is authentication")
# If you choose no authentication, then set the permissions of what
# people can do with: @auth_default_permissions below.
$auth_no_authentication = 0;
# The amount of time in seconds that user files are kept in the
# auth directory before the program removes them. 2-6 hours is
# probably a good value.
$auth_time = 21600; # 6 hours (in seconds)
# Enable (1) or disable (0) logging.
$auth_logging = 1;
# Allow a default user? This means you can specify a user via the URL
# and skip the logon process. Use this to allow people to search without
# logging on, but require log in if they want to add/modify/remove etc.
# (1 = "yes", 0 = "no")
$auth_allow_default = 1;
# Default permissions used if there is no authentication, or for a default
# user. (View, Add, Delete, Modify, Admin), 1 = enable, 0 = disable.
@auth_default_permissions = (0,1,0,0,0);
# Allow people to sign up for their own userID/passwords? They will
# recieve default permissions.
$auth_signup = 0;
# Permissions a new signup should get.
@auth_signup_permissions = (0,1,0,0,0);
# Registered users: can modify/delete _only_ own records. For this to make
# sense you should set default off or to 1,0,0,0.
$auth_modify_own = 0;
# Registered users: can view _only_ own records. For this to make sense
# you should turn off default permissions.
$auth_view_own = 0;
# Auth user field. This is the field position in the database used for storing
# the userID who owns the record. Set to -1 if not used.
$auth_user_field = -1;
# URL to send user if they chose log off. Leave blank and the script will return to
# the logon prompt (although this only makes sense if you are using authentication).
$auth_logoff = "http://www.mydomain.ca/";
# ===========================================================================
# Build up some variables from your definitions. Internal use only.
foreach (sort { $db_def{$a}[0] <=> $db_def{$b}[0] } keys %db_def) {
push (@db_cols, $_);
$db_sort{$_} = $db_def{$_}[1];
$db_form_len{$_} = $db_def{$_}[2];
$db_lengths{$_} = $db_def{$_}[3];
$db_not_null{$_} = $db_def{$_}[4];
$db_defaults{$_} = $db_def{$_}[5];
$db_valid_types{$_} = $db_def{$_}[6];
($_ eq $db_key) and $db_key_pos = $db_def{$_}[0];
}
1;