Û_def = (
ID => [0, 'numer', 5, 8, 1, '', ''],
Title => [1, 'alpha', 40, 75, 1, '', ''],
URL => [2, 'alpha', 40, 75, 1, 'http://', '^http|news|mailto|ftp'],
Date => [3, 'date', 15, 15, 1, \&get_date, ''],
Category => [4, 'alpha', 0, 150, 1, '', ''],
Description => [5, 'alpha', '40x3', 500, 0, '', ''],
'Contact Name' => [6, 'alpha', 40, 75, 1, '', ''],
'Contact Email' => [7, 'alpha', 40, 75, 1, '', '. @. \.. '],
Hits => [8, 'numer', 10, 10, 1, '0', '\d '],
isNew => [9, 'alpha', 0, 5, 0, 'No', ''],
isPopular => [10, 'alpha', 0, 5, 0, 'No', ''],
Rating => [11, 'numer', 10, 10, 1, 0, '^[\d\.] $'],
Votes => [12, 'numer', 10, 10, 1, 0, '^\d $'],
ReceiveMail => [13, 'alpha', 10, 10, 1, 'Yes', 'No|Yes'],
DateAdded => [14, 'date', 15, 15, 0, \&get_date, ''],
ICQ => [15, 'numer', 10, 10, 0, '', '']
);

#!/usr/bin/perl
# -------------------------------------------
#You must edit YOUR links.def script BEFORE entering these variable and running this script!
$field_default = "1"; #Put the default value of the new field here. Leave Blank for no default.
$new_field = "15"; #Put the new field number here.
$total_fields = "16"; #Put the last field number here.
#Change these value to match your settings
require "/usr/home/webcam/usr/local/etc/httpd/camcities.com/cgi-bin/admin/db_utils.pl";
require "/usr/home/webcam/usr/local/etc/httpd/camcities.com/cgi-bin/admin/category.def";

#You shouldn't have to edit below this line
#------------------------------------------
$nfm1 = $new_field - 1;

$ENV{'REQUEST_METHOD'} and (print "Content-type: text/plain\n\n");
open (DB, "<links.db") or print "Unable to open links database 'links.db'. Reason: $!" and exit;
print "\topening output file . . .\n";
open (DBOUT, ">links2.db") or print "Unable to open output database. Reason: $!" and exit;
print "\n\n\tProcessing records\n";
while (<DB> ) {
(/^#/) and next line; # Skip comment lines.
(/^\s*$/) and next line; # Skip blank lines.
chomp; # Remove trailing new line.
@rec_in = &split_decode($_);
# Copy ID, Title, URL, Date and Category
for $i (0 .. $nfm1) {
$rec_out[$i] = $rec_in[$i];
}
# Add New Field
$rec_out[$new_field] = "$field_default";
# Copy the rest of old links.db to new links2.db
for $i ($new_field .. $total_fields) {
$rec_out[$i 1] = $rec_in[$i];
}
print DBOUT &join_encode(&array_to_hash(0, @rec_out));
}
print "\tDone.\n\n";
close DB;
close DBOUT;
print "Database saved it as links2.db.\n";
print "Change permissions back to 755 on the data directory.\n\n";
print "You must rename 'links2.db' to 'links.db before using with Links v2.\n";
print "It is recommend you save the original 'links.db' before renaming.\n\n";

4|WebCam World WebCams|http://...(snipped)...@hotmail.com|495|No|No|4.12|8|Yes|24-mar-99

4|WebCam World WebCams|http://...(snipped)...@hotmail.com~~495~~No~~No~~4.12~~8~~Yes~~24-mar-99

zone => [8, 'numer', 2, 2, 0, '', ''],

zone => $zone,