How to create a DBM database in Perl

From: Topher (chris_at_mkttl.co.uk)
Date: 11/27/03 

Date: 27 Nov 2003 02:46:08 -0800

Hi,

I would appreciate some help with this. I am trying to create an admin
section for my local table tennis (yes, it's a manly sport I know...)
site and am having trouble creating any databases.

The code I have for doing this is as follows:

## write

dbmopen (%clubs, $const_database_path."clubs", 0666);

die("club id already exists!") if ($clubs{$club_id} ne "");

$clubs{$club_id} = $club_name."§".$club_short_name."§".$club_location1."§".$club_location2."§".$club_location3."§".$club_location4."§".$club_postcode."§".$club_map_href."§".$club_map_text."§".$club_website_href."§".$club_notes."§".$club_secretary_name."§".$club_secretary_add1."§".$club_secretary_add2."§".$club_secretary_add3."§".$club_secretary_add4."§".$club_secretary_postcode."§".$club_secretary
home_tel."§".$club_secretary_mobile_tel."§".$club_secretary_work_tel."§".$club_secretary_email;

dbmclose (%clubs);

I'm not too hot on this Perl business and am basically winging it with
a bit of help from a mate every now and again, but can't seem to find
anything that shows why this is not happening. I have a file
'mkttl.conf', which is linked to earlier on in the script using
require("mkttl.conf");

In mkttl.conf I define $const_database_path as
$ENV{"SITE_ROOT"}."\mkttl_concept\databases\"

I have created the databases directory, so there should be no problems
there.

I'm not getting error messages, it's just not working - annoying as
hell!

If it's any use I am using Xitami, which is the server that I have
downloaded to test scripts on before I upload stuff.

Thanks very much, if you need any more info please ask!