# 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, 'OG', ''],
'Contact Email' => [7, 'alpha', 40, 75, 1, '', '.+@.+\..+'],
Hits => [8, 'numer', 10, 10, 1, '0', '\d+'],
isNew => [9, 'alpha', 0, 5, 0, 'Yes', ''],
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, 'No', 'No|Yes'],
Review => [14, 'alpha', '40x3', 500, 0, '', ''],
AltCategories => [15, 'alpha', 0, 500, 0, '', ''],
Member => [16, 'alpha', 0, 5, 0, '', 'No|Yes'],
AVS => [17, 'alpha', 0, 5, 0, '', 'No|Yes'],
Gallery => [18, 'alpha', 0, 5, 0, '', 'No|Yes'],
Chat => [19, 'alpha', 0, 5, 0, '', 'No|Yes'],
Classifieds => [20, 'alpha', 0, 5, 0, '', 'No|Yes'],
Shopping => [21, 'alpha', 0, 5, 0, '', 'No|Yes'],
Great => [22, 'alpha', 0, 5, 0, '', 'No|Yes'],
Verygood => [23, 'alpha', 0, 5, 0, '', 'No|Yes'],
Good => [24, 'alpha', 0, 5, 0, '', 'No|Yes'],
Average => [25, 'alpha', 0, 5, 0, '', 'No|Yes'],
Poor => [26, 'alpha', 0, 5, 0, '', 'No|Yes'],
Verypoor => [27, 'alpha', 0, 5, 0, '', 'No|Yes']
);

sub build_sorthit {
# --------------------------------------------------------
# This function sorts a list of links. It has been modified to sort
# new links first, then cool links, then the rest alphabetically. By modifying
# the sort function below, you can sort the links however you like (by date,
# or random, etc.).
#
my (@unsorted) = @_;
my ($num) = ($#unsorted+1) / ($#db_cols+1);
my (%sortby, %isnew, %great, $hit, $i, @sorted);

for ($i = 0; $i < $num; $i++) {
$sortby{$i} = $unsorted[$db_sort_links + ($i * ($#db_cols+1))];
($unsorted[$db_isnew + ($i * ($#db_cols+1))] eq "Yes") and ($isnew{$i} = 1);
($unsorted[$db_great + ($i * ($#db_cols+1))] eq "Yes") and ($great{$i} = 1);
}
foreach $hit (sort {
($isnew{$b} and !$isnew{$a}) and return 1;
($isnew{$a} and !$isnew{$b}) and return -1;
($great{$b} and !$great{$a}) and return 1;
($great{$a} and !$great{$b}) and return -1;
($isnew{$a} and $isnew{$b}) and return lc($sortby{$a}) cmp lc($sortby{$b});
($great{$a} and $great{$b}) and return lc($sortby{$a}) cmp lc($sortby{$b});
return (rand > 0.5) ? 1 : -1;
} (keys %sortby)) {
$first = ($hit * $#db_cols) + $hit;
$last = ($hit * $#db_cols) + $#db_cols + $hit;
push (@sorted, @unsorted[$first .. $last]);
}
return @sorted;
}