#!/usr/local/bin/perl
# -------------------------------------------
$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.
Make sure data dir is chmod 777 temporarily. Reason: $!" and exit;
print "\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 .. 4) {
$rec_out[$i] = $rec_in[$i];
}
# Add New Field here
$rec_out[5] = ""; # add something between quotes if you have a default value
# Copy the rest of old links.db to new links2.db
for $i (5 .. 13) {
$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.";

#!/usr/bin/perl
# -------------------------------------------
#You must EDIT YOUR links.def script BEFORE entering these variable and running this script!
$field_default = ""; #Put the default value of the new field here. Leave Blank for no default.
$new_field = "7"; #Put the new field number here.
$total_fields = "15"; #Put the last field number here.

#Change these value to match your settings
require "../db_utils.pl";
require "../links.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. Make sure data dir is chmod 777 temporarily. 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";

%db_def = (
ID => [0, 'numer', 5, 8, 1, '', ''],
Name => [1, 'alpha', 40, 75, 1, '', '^[\w\d/_-]+$'],
Description => [2, 'alpha', '40x3', 500, 0, '', ''],
SubCatStyle => [3, 'alpha', 40, 100, 0, '(ALL)1', ''],
Related => [4, 'alpha', 0, 255, 0, '', ''],
'Meta Description' => [5, 'alpha', 40, 75, 0, '', ''],
'Meta Keywords' => [6, 'alpha', 40, 75, 0, '', ''],
Header => [7, 'alpha', 40, 75, 0, '', ''],
Footer => [8, 'alpha', 40, 75, 0, '', ''],
Nonenglish => [9, 'alpha', 40, 75, 0, '', '']

);

$field_default = "ALL(1)"; #Put the default value of the new field here. Leave Blank for no default.
$new_field = "3"; #Put the new field number here.
$total_fields = "9"; #Put the last field number here.

$total_fields = "9"; #Put the last field number here.

BEGIN{FS="|"
RS="\n"
OFS="|"
ORS="\n"}
{print $1, $2, $3, $4, $5, $6, "", $7, $8, $9, $10, $11, $12, $13, $14 , $15}

awk -f convert.awk < links.db > new_links.db

1|Private_Homepages|SUB1|ALL(1)|Clubs_und_Vereine~~Lifestyle~~Roller_und_Mopeds~~Schrauberseiten~~Sport~~Touren_und_Reisen~~Veranstalt ungen_und_Termine|Private Homepages für Motorradfahrer|Motorrad, Homepages, Internetseiten, Links, Webverzeichnis|Diese Kategorie enthält Private Homepages von und für Motorradfahrer.&#0124; &#0124;Private Homepages&#0124; &#0124;&#0124; &#0124;&#0124; &#0124;|