First of all, I'm not knowledgeable of Perl, so bear with me please.

Before attempting to modify the default files for DBMan, I loaded them unmodified, except for turning off the flock option. I then tried to run the db.cgi file, with RunPerl reporting the following result:

Bareword found where operator expected at db.cgi line 786, near "> andpush"
(Missing operator before andpush?)
syntax error at db.cgi line 779, near "d next LINE"
syntax error at db.cgi line 781, near "_pos]"
syntax error at db.cgi line 783, near "/^\s*$/> "
syntax error at db.cgi line 786, near "> andpush "
Execution of db.cgi aborted due to compilation errors.

The problem would seem to begin in the validate_record subroutine, of which here are lines 779 - 786:

LINE: while (<DB>) {d next LINE;
(/^\s*$/) and next LINE;line = $_; chomp ($line);
@data = &split_decode($line); _pos] eq $in{$db_key}) {
return "duplicate key error";
foreach $col (@db_cols) {in{$col} =~ /^\s*$/) { # entry is null or only whitespace
($db_not_null{$col}) and # entry is not allowed to be null."$col (Can not be left blank)"); # so let's add it as an error
}sh(@input_err, "$col (Invalid format)"); # but has failed validation.
(length($in{$col}) > $db_lengths{$col}) andpush (@input_err, "$col (Too long. Max length: $db_lengths{$col})");

My environment is Win98, Apache 1.3.11 (Win32), and ActivePerl 5.6.0.616, which corresponds to Perl version 5.6.0. My editors are TextPad and Visual Perl Editor 2.5.

My apologies if this is an old issue, or if I've missed something really obvious.

William

William Hillis
4411 Governor Ln SE
Olympia, WA 98501
email: w.hillis@worldnet.att.net

Problem solved, and it was on my end. I think the script was mangled when I opened it in Visual Perl Editor with Unix line endings turned off. Let this be a warning to others. ;)

William

William Hillis
4411 Governor Ln SE
Olympia, WA 98501
email: w.hillis@worldnet.att.net