$popimg = '<img src="http://mysite/images/cool.gif" border="0">';

($rec{'isPopular'} eq 'Yes') ? ($rec{'isPopular'} = 1) : (delete $rec{'isPopular'});

<%if isPopular%><a href="<%build_cool_url%>"><%popimg%></a><%endif%>

popimg => $popimg,

build_cool_url => $build_cool_url,

BTW: You can search this forum for your user name to find previous Threads that you have created.

<A HREF="forum.cgi?action=lostpw">Forget your password?</A>

|yes| |

|yes| &#0124; &#0124;

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

#Put the new field number here.
$new_field = "26";

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

#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, "</path/to/links.db") or print "Unable to open links database 'links.db'. Reason: $!" and exit;
print "\tOpening output file . . .\n";
open (DBOUT, ">/path/to/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";

$field_default = "";

(if want a default value for the field, enter it between the double quotes.)

$new_field = "26";

Change this to the field number of your new field.

$total_fields = "27";

require...

You may have to change this to the path where your db_utils.pl and links.def files are located. (You may have to use the complete absolute path to these files.)

require "db_utils.pl";
require "links.def";

I would recommend using maxlength restrictions for both of these fields.

# 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']
);

'Password' => [14, 'alpha', 20, 20, 1, '', ''],

$field_default = "Replace with your Password";
$new_field = "14";
$total_fields = "15";

#***********************************************************
# Use the info in links.def to find the values you want.
# These are the default values. If you have added fields, then
# make sure that you define it by $db_newfield = 14; and then
# to get the value, you can call it by $data[$db_newfield]
#
# $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;
#**********************************************************

open (MAIL_RECIP, "|$MAIL_PROGRAM");

print MAIL_RECIP "To: $email\n";
print MAIL_RECIP "From: $admin\n";
print MAIL_RECIP "Subject: Web Site Information Request\n";

print MAIL_RECIP "You have requested your web site information for $email.\n";

print MAIL_RECIP "Resource ID: $data[0]\n";
print MAIL_RECIP "Title : $data[$db_title]\n";
print MAIL_RECIP "URL : $data[$db_url]\n";
print MAIL_RECIP "Category : $data[$db_category]\n";
print MAIL_RECIP "Description : $data[5]\n\n";
print MAIL_RECIP "Contact Name : $data[$db_contact_name]\n";
print MAIL_RECIP "Contact Email : $data[$db_contact_email]\n";

close(MAIL_RECIP);

} # end of foreach

If you have added fields, then
# make sure that you define it by $db_newfield = 14; and then
# to get the value, you can call it by $data[$db_newfield]

$db_mail = 14;

print MAIL_RECIP "Password : $data[$db_Password]\n";

User Name: <input type="text" name="Contact Name">

if you have not already added a site, but would like to modify a resource you may apply for privilidges by filling out this form:

<form method=post...etc>
Email Address: <input type="text" name="email"><br>
Contact Name: <INPUT TYPE="TEXT" NAME="Contact Name" VALUE="" SIZE=25 MAXLENGTH=25><br>
Password: <INPUT TYPE="PASSWORD" NAME="Password" VALUE="" SIZE=13 MAXLENGTH=13><P>
We will verify your information and contact you when you are approved!

Password => [14, 'alpha', 20, 20, 1, 'Lee39', "]