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, %iscool, $hit, $i, @sorted, $column, $type);

foreach $column (@db_cols) {
if ($db_sort_links == $db_def{$column}[0]) {
$type = $db_def{$column}[1];
last;
}
}
for ($i = 0; $i < $num; $i++) {
$sortby{$i} = $unsorted[$db_sort_links + ($i * ($#db_cols+1))];
($unsorted[$db_isnew + ($i * ($#db_cols+1))] eq "Ja") and ($isnew{$i} = 1);
($unsorted[$db_ratings + ($i * ($#db_cols+1))] eq "Ja") and ($iscool{$i} = 1);
}
if ($type eq "date") {
foreach $hit (sort {

&date_to_unix ($sortby{$b}) <=> &date_to_unix ($sortby{$a});
} (keys %sortby)) {
$first = ($hit * $#db_cols) + $hit;
$last = ($hit * $#db_cols) + $#db_cols + $hit;
push (@sorted, @unsorted[$first .. $last]);
}
}
elsif ($type eq "numer") {
foreach $hit (sort {
$sortby{$b} <=> $sortby{$a};
} (keys %sortby)) {
$first = ($hit * $#db_cols) + $hit;
$last = ($hit * $#db_cols) + $#db_cols + $hit;
push (@sorted, @unsorted[$first .. $last]);
}
}
else {
foreach $hit (sort {
($isnew{$b} and !$isnew{$a}) and return 1;
($isnew{$a} and !$isnew{$b}) and return -1;
($iscool{$b} and !$iscool{$a}) and return 1;
($iscool{$a} and !$iscool{$b}) and return -1;
($isnew{$a} and $isnew{$b}) and return lc($sortby{$a}) cmp lc($sortby{$b});
($iscool{$a} and $iscool{$b}) and return lc($sortby{$a}) cmp lc($sortby{$b});
return lc($sortby{$a}) cmp lc($sortby{$b});
} (keys %sortby)) {
$first = ($hit * $#db_cols) + $hit;
$last = ($hit * $#db_cols) + $#db_cols + $hit;
push (@sorted, @unsorted[$first .. $last]);
}
}
return @sorted;
}

sub build_new_page {
# --------------------------------------------------------

my (%link_output, $category_clean, $long_date, $category, $date,
$number_links, $main_link_results, $main_total, %span_totals);
local ($total, $link_results, $title_linked);


if ($build_new_path =~ m,^$build_root_path/(.*)$,) {
&build_dir ($1);
}


$total = 0;
CATEGORY: foreach $category (sort keys %new_links) {
LINK: for ($i = 0; $i < ($#{$new_links{$category}}+1) / ($#db_cols + 1); $i++) {
$total++;
%tmp = &array_to_hash ($i, @{$new_links{$category}});
${$link_output{$tmp{'Anmeldedatum'}}}{$category} .= &site_html_link (%tmp) . "\n";
$span_totals{$tmp{'Anmeldedatum'}}++;
}
}


DATE: foreach $date (sort { &date_to_unix($b) <=> &date_to_unix($a) } keys %link_output) {
$long_date = &long_date ($date);
if ($build_new_span_pages) {
$link_results = "";
$total = $span_totals{$date};
$title_linked = &build_linked_title ("Neu/$long_date");
}
else {
$link_results .= "";
}
CATEGORY: foreach $category (sort keys %{$link_output{$date}}) {

$category_clean = &kategorie_title_mb ($category);
# Verändert für Listendarstellung ---------------------------------------------------------------------
$link_results .= qq|<tr style ="border : 1px solid #000000" bgcolor="#D4DFFB"><td style ="border : 1px solid #000000" colspan=6><font size=2>$long_date in: <A HREF="$build_root_url/$category/$build_index">$category_clean</A></font></td></tr>\n|;
# Ende Verändert für Listendarstellung ----------------------------------------------------------------
$link_results .= ${$link_output{$date}}{$category};
}

if ($build_new_span_pages) {
open (NEW, ">$build_new_path/$date$build_extension") or cgierr ("Kann die Datei bzw. Verzeichnis nicht öffnen: $build_new_path/$build_index. Grund: $!");
$use_html ?
print qq|\tNeue Links für <a href="$build_new_url/$date$build_extension" TARGET="_blank">$date</a>: $total\n| :
print qq|\tNeue Links für $date: $total\n|;
print NEW &site_html_new;
close NEW;
$main_link_results .= qq|<tr><td colspan=6><br><font size=2>Neuzug&auml;nge am <a href="$build_new_url/$date$build_extension"><b>$long_date</b></a> ($total)</font><hr noshade size=1></td></tr>|;
$main_total += $total;
}
else {
$link_results .= "";
}
}

if ($build_new_span_pages) {
$link_results = "$main_link_results";
$total = $main_total;
}
$title_linked = &build_linked_title ("Neu");


open (NEW, ">$build_new_path/$build_index") or cgierr ("Kann die Datei bzw. Verzeichnis nicht öffnen: $build_new_path/$build_index. Grund: $!");
print "\tNeue Einträge gesamt: $total\n";
print NEW &site_html_new(@new_links);
close NEW;
}

sub build_url_index {
# --------------------------------------------------------


my $time = time();
my @values = ();
my $count = 0;

open (DB, "<$db_file_name") or &cgierr("Kann die Datei bzw. Verzeichnis nicht öffnen: $db_file_name.\nGrund: $!");
open (URL, ">$db_url_name") or &cgierr("Kann die Datei bzw. Verzeichnis nicht öffnen: $db_url_name. Grund: $!");
if ($db_use_flock) { flock (URL, 2) or &cgierr ("Allgemeiner Fehler. Grund: $!"); }
LINE: while (<DB>) {
/^#/ and next LINE;
/^\s*$/ and next LINE;
chomp;
@values = &split_decode($_);
print URL "$values[$db_key_pos]$db_delim$values[$db_url]\n";
$count++;
}
close DB;
close URL;


open (CNT, ">$db_hits_path/index.count") or &cgierr("Kann die Datei bzw. Verzeichnis nicht öffnen: '$db_hits_path/index.count'. Grund: $!");
if ($db_use_flock) { flock (CNT, 2) or &cgierr ("Kann die Datei bzw. Verzeichnis nicht öffnen: $db_hits_path/index.count. Grund: $!"); }
print CNT $count;
close CNT;
}

sub build_birthday_list {
#-----------------------------
my @data;
my %seen;
my @mr_bday;
my @mr_bday_sorted;
my $path = "/big/dom/xvmcoc/www/members";
open (DB, "<$db_file_name") or &cgierr("unable to open database: $db_file_name.\nReason: $!");
open (DBBDAY, ">$path/birthday_list.txt") or &cgierr ("Unable to open output database.\nReason: $!");
while (<DB>) {
/^#/ and next; # Skip comment Lines.
/^\s*$/ and next; # Skip blank lines.
chomp;
@data = &split_decode($_);
if ($data[$db_mr_bday] ne '') {
$mr = ("$data[$db_mr_bday]|$data[$db_mr_name]|$data[$db_title]");
print DBBDAY "$mr\n";
}
if ($data[$db_mrs_bday] ne '') {
$mrs = ("$data[$db_mrs_bday]|$data[$db_mrs_name]|$data[$db_title]");
print DBBDAY "$mrs\n";
}
if ($data[$db_child_1] ne '') {
$child_1 = ("$data[$db_child_1_bday]|$data[$db_child_1]|$data[$db_title]");
print DBBDAY "$child_1\n";
}
if ($data[$db_child_2] ne '') {
$child_2 = ("$data[$db_child_2_bday]|$data[$db_child_2]|$data[$db_title]");
print DBBDAY "$child_2\n";
}
if ($data[$db_child_3] ne '') {
$child_3 = ("$data[$db_child_3_bday]|$data[$db_child_3]|$data[$db_title]");
print DBBDAY "$child_3\n";
}
if ($data[$db_child_4] ne '') {
$child_4 = ("$data[$db_child_4_bday]|$data[$db_child_4]$|data[$db_title]");
print DBBDAY "$child_4\n";
}
if ($data[$db_child_5] ne '') {
$child_5 = ("$data[$db_child_5_bday]|$data[$db_child_5]|$data[$db_title]");
print DBBDAY "$child_5\n";
}
}
close DB;
close DBBDAY;
}

sub build_birthday_list_2 {
#-----------------------------
my @data;
my %seen;
my $path = "/big/dom/xvmcoc/www/members";
open (DB, "<$path/birthday_list.txt") or &cgierr ("Unable to open output database.\nReason: $!"); open (DBBDAY, ">$path/birthday_list_2.txt") or &cgierr ("Unable to open output database.\nReason: $!");
@text = <DB>;
close (DB);
@text = sort{$a <=> $b}@text;
foreach $line(@text) {
$line =~ s/\*//g;
print DBBDAY "$line";
}
close DBBDAY;
}

# Backup the birthday_list database.
print "Updating bday list database . . .\n";
&build_birthday_list;
print "Done.\n\n";
# Backup the birthday_list_2 database.
print "Updating bday list 2 database . . .\n";
&build_birthday_list_2;
print "Done.\n\n";

sub build_birthday_list_2 {
#-----------------------------
my @data;
my %seen;
my $path = "/big/dom/xvmcoc/www/members";
open (DB, "<$path/birthday_list.txt") or &cgierr ("Unable to open output database.\nReason: $!"); open (DBBDAY, ">$path/birthday_list_2.txt") or &cgierr ("Unable to open output database.\nReason: $!");
@text = <DB>;
close (DB);
my @sorted = map { $_->[0] }
sort { $a->[0] <=> $b->[0] ||
$a->[1] <=> $b->[1];
}
map { [ $_, join "", reverse (split /-/) ] }
@text;
foreach $line(@sorted) {
$line =~ s/\*//g;
$line =~ s/\|/ /g;
print DBBDAY "$line";
}
close DBBDAY;
}