Hi,

I am trying to install Bobsie's Updated" & 3-Level "New"
Graphic Usage Modification. But I got stucked at Step: 5 where I have execute add_date.pl.

When I run add_date.pl I get 500 error. As far as I know there are two possibilities for this problem


#!/usr/local/bin/perl pointing to perl program

# Change the following line to full path to links.cfg if you have problems.
require "../links.cfg";.

I am not a perl guru. Is there any guru could tell me what is going wrong? I already checked some threades of this forum with similer problem but I could not find any solid answer.

Here is the code of add_date.pl


#!/usr/local/bin/perl

# -------------------------------------------

# Change the following line to full path to links.cfg if you have problems.

require "../links.cfg";

require "$db_lib_path/db_utils.pl";

require "$db_lib_path/links.def";

$ENV{'REQUEST_METHOD'} and (print "Content-type: text/plain\n\n");

print "Opening links.db for reading. . .\n";

open (DB, "<links.db") or print "Unable to open links database 'links.db'. Reason: $!" and exit;

print "Opening links2.db for writing. . .\n";

open (DBOUT, ">links2.db") or print "Unable to open output database. Reason: $!" and exit;

print "Processing database records. . .\n";

LINE: while (<DB>) {

/^#/ and next LINE; # Skip comment Lines.

/^\s*$/ and next LINE; # Skip blank lines.

chomp; # Remove trailing new line.

@rec = &split_decode($_);

$rec[$db_dateadded] = $rec[$db_modified];

print DBOUT &join_encode(&array_to_hash(0, @rec));
}
print "Done, closing database files. . .\n";

close DB;

close DBOUT;

print "Links database now has DateAdded field completed.\n";

print "It is stored in links2.db\n\n";

# ---------------------------------------------




Thank you and happy holiday.


Regards,

Pagla