Language => [14, 'alpha', 0, 5, 1, '', '']

#!/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";

$new_field = "7";
$total_fields = "15";

Language => 'German,French'

<if %Language% eq "German">
<img src="/path/to/germanflag.gif">
<%endif%>

<if %Language% eq "English">
<img src="/path/to/engflag.gif">
<%endif%>

# Database Definition: LINKS
# --------------------------------------------------------
# Definition of your database file.
%db_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'],
Language => [14, 'alpha', 0, 10, 1, '', '']
);

# Database file to use -- defined in links.cfg.
$db_file_name = $db_links_name;
# Counter file to use -- defined in links.cfg.
$db_id_file_name = $db_links_id_file_name;
# The column name for the database key.
$db_key = 'ID';
# Database delimeter.
$db_delim = '|';
# Title used in admin output.
$html_title = 'Links Database';
$html_object = 'Link';

# Field Number of some important fields. The number is from %db_def above
# where the first field equals 0.
$db_category = 4; $db_modified = 3; $db_url = 2;
$db_hits = 8; $db_isnew = 9; $db_ispop = 10;
$db_contact_name = 6; $db_contact_email = 7; $db_title = 1;
$db_votes = 12; $db_rating = 11; $db_mail = 13;
$db_language = 14;

%db_select_fields = (
isNew => 'Yes,No',
isPopular => 'Yes,No',
ReceiveMail => 'Yes,No',
Language => 'Deutsch,Englisch'
);

<font face="verdana"color="#023599" size="-1"><ul><li><b><a class="link" href="<%db_cgi_url%>/jump.cgi?ID=<%ID%>"><%Title%></a></b></font>
<%if isNew%>
<%new_img%>
<%endif%>
<%if isPopular%>
<font face="verdana"color="#023599" size="-1">^TOP
<%endif%><br>
<br>
<%if Description%>
<font face="verdana"color="#023599" size="-1"><span class="descript"><%Description%></span>
<%endif%>
<br><small class="date">(Hinzugefügt: <%Date%> Hits: <%Hits%> #Stimmen: <%Votes%> Sprache:<if %Language% eq "Deutsch"><img src="http://www.photoblitz.de/images/germanflag.gif"><%endif%><if %Language% eq "Englisch"><img src="http://www.photoblitz.de/images/engflag.gif"><%endif%> ) <br><%rate_img%><a href="<%db_cgi_url%>/rate.cgi?ID=<%ID%>">[Ihre Wertung]</a></small></font></li>
</ul>

<if %Language% eq "Deutsch">

<%if Language eq "Deutsch"%>

<font face="verdana"color="#023599" size="-1"><ul><li><b><a class="link" href="<%db_cgi_url%>/jump.cgi?ID=<%ID%>"><%Title%></a></b></font>
<%if isNew%>
<%new_img%>
<%endif%>
<%if isPopular%>
<font face="verdana"color="#023599" size="-1">^TOP
<%endif%><br>
<br>
<%if Description%>
<font face="verdana"color="#023599" size="-1"><span class="descript"><%Description%></span>
<%endif%>
<br><small class="date">(Hinzugefügt: <%Date%> Hits: <%Hits%> #Stimmen: <%Votes%> Sprache:
<%if Language eq "Deutsch"%>
<img src="http://www.photoblitz.de/images/germanflag.gif">
<%endif%>
<%if Language eq "Englisch"%>
<img src="http://www.photoblitz.de/images/engflag.gif">
<%endif%>
)
<br><%rate_img%><a href="<%db_cgi_url%>/rate.cgi?ID=<%ID%>">[Ihre Wertung]</a></small></font></li>
</ul>