Trying again.
 
Bruce
Below is the contents of my guestbook.cgi file, can anyone tell me why it does not work?
I get this error

Application Error

An error has occurred in the program

Regards
Bruce Evans, Canberra
 
http://www.alphalink.com.au/~sekicats
 
 
#!/usr/bin/perl -wT
##############################################################################
# nms Guestbook                        Version 1.00 (cvs v1.6)               #
# Copyright 2001 London Perl Mongers   All rights reserved                   #
# Created 11/11/01                     Last Modified 04/18/02                #
# Matt's Script Archive:               http://www.scriptarchive.com/         #
##############################################################################
# nms Guestbook has been created as a drop in replacement for the Guestbook  #
# found at Matt's Script Archive. Both the original and nms versions of this #
# script can be found at the above URL. Support for nms Guestbook is         #
# available through: nms-cgi-support@lists.sourceforge.net                   #
##############################################################################
#
# $Id: guestbook.cgi,v 1.37 2002/04/15 07:46:30 nickjc Exp $
#
 
use strict;
use POSIX qw(strftime);
use CGI qw(:standard);
use Fcntl qw(:DEFAULT :flock);
use IO::File;
 
use vars qw(
  $DEBUGGING $done_headers @debug_msg $guestbookurl
  $guestbookreal $guestlog $cgiurl $emulate_matts_code
  $style $mail $uselog $linkmail $separator $redirection
  $entry_order $remote_mail $allow_html $line_breaks
  $mailprog $recipient $short_date_fmt $long_date_fmt
);
 
# sanitize the environment
 
delete @ENV{qw(ENV BASH_ENV IFS PATH)};
 
# Configuration
 

#
# $DEBUGGING must be set in a BEGIN block in order to have it be set before
# the program is fully compiled.
# This should almost certainly be set to 0 when the program is 'live'
#
 
BEGIN
{
   $DEBUGGING = 0;
}
 
$guestbookurl  = 'http://alphalink.com.au/~sekicats/guestbook.html';
$guestbookreal = '/home/sekicats/public_html/guestbook.html';
$guestlog      = '/home/sekicats/public_html/guestlog.html';
$cgiurl        = 'http://alphalink.com.au/~sekicats/cgi-bin/guestbook.cgi';
 
# $emulate_matts_code determines whether the program should behave exactly
# like the original guestbook program.  It should be set to 1 if you
# want to emulate the original program - this is recommended if you are
# replacing an existing installation with this program.  If it is set to 0
# then potentially it will not work with files produced by the original
# version - this is recommended for people installing this for the first time.
 
$emulate_matts_code = 1;
 
# $style is the URL of a CSS stylesheet which will be used for script
# generated messages.  This probably want's to be the same as the one
# that you use for all the other pages.  This should be a local absolute
# URI fragment.
 
$style = '/css/nms.css';
 

$mail        = 1;
$uselog      = 1;
$linkmail    = 1;
$separator   = 1;
$redirection = 0;
$entry_order = 1;
$remote_mail = 0;
$allow_html  = 0;
$line_breaks = 0;
 
# $mailprog is the program that will be used to send mail if that is
# required.  It should be the full path of a program that will accept
# the message on its standard input, it should also include any required
# switches.  If $mail is set to 0 above this can be ignores.
 
$mailprog  = '/usr/lib/sendmail -t -oi -oem';
 
# $recipient is the address of the person who should be mailed if $mail is
# set to 1 above.
 
$recipient = 'seki_kencyr@hotmail.com';
 
# $long_date_fmt and $short_date_fmt describe the format of the dates that
# will output - the replacement parameters you can use here are:
#
# %A - the full name of the weekday according to the current locale
# %B - the full name of the month according to the current local
# %m - the month as a number
# %d - the day of the month as a number
# %D - the date in the form %m/%d/%y (i.e. the US format )
# %y - the year as a number without the century
# %Y - the year as a number including the century
# %H - the hour as number in the 24 hour clock
# %M - the minute as a number
# %S - the seconds as a number
# %T - the time in 24 hour format (%H:%M:%S)
# %Z - the time zone (full name or abbreviation)
 
$long_date_fmt  = '%A, %B %d, %Y at %T (%Z)';
$short_date_fmt = '%d/%m/%Y %T %Z';
 
# End configuration