#! /usr/local/bin/perl
# -------------------------------------------------------------
# File: bmarkcgi.pl
#
# Version: 1.0 29-Nov-96 First release.
# with a few minor changes by colin moock.
#
# Author: Gihan Perera (gihan@pobox.com)
# First Step Communications
# 29th November, 1996
#
# Documentation and updates for this program are available at:
#
# http://www.firststep.com.au/software
#
# Copying and Distribution
#
# Permission is hereby granted to copy and distribute this program
# freely, as long as the "Author:" section above is retained. Since
# this is provided free of charge, it comes with no warranty nor
# guarantee of fitness for purpose.
#
# In the spirit in which this is given, if you decide to pass this
# on to others, either in original form or changed, you must not
# charge any money for doing so.
#
# ---------------------------------------------------------------------
# THINGS YOU NEED TO SET UP
# E-mail address to notify in case of errors. PLEASE change this to
# YOUR e-mail address, not mine!!!
#
# IMPORTANT: You must use a backslash before the '@' symbol in the
# address.
$email = "moockmarks\@moock.org";
# URL of this script.
$url = "/moockmarks/index.pl";
# This is the base directory (specified as a directory on your file
# system, not a URL) where the source files live. It MUST end in '/'.
$dir = "/wwwroot/moock.org/moockmarks/";
# Name of the bookmarks file (relative to $dir).
$bookmarks = "bookmark.html";
# Base URL (used in
/ if $level == 1; s/
something went wrong\n"; print "
please mail $email to tell me about it,\n"; print "including the following error message:\n\n"; print "
$m
\n"; die "Aborted"; }