# Pull out the total number of links.
open (COUNT, "<$db_hits_path/index.count") or &error ("unable to open index count file: $db_hits_path/index.count. Reason: $!");
$count = int <COUNT>;
close COUNT;
# Get the random line from the url lookup database.
srand;
$find = 0; $rand = int (rand ($count + 0.5)); ($rand == $count) and ($rand--);
open (URL, "<$db_url_name") or &error ("unable to open url database: $db_url_name. Reason: $!");
while (<URL> ) {
$find++ == $rand or next;
/(.+)$delim/o or next;
$id = $1;
last;
}
close URL;
$id or &error ("Can't find random line: $rand.");
if ($id =~ /^\d+$/) {
my (%rec) = &get_record ($id);
($rec{$db_key} eq $id) ?
&build_page :
&error ("Random ID $id is not a valid ID.");
} else {
&error ("Can't find random Links ID: $id.");
}

open DB, "<$db_file_name";
@links = <DB>;
close DB;

%rec = &array_to_hash (0, &split_decode ($links[int rand $#links]));
&build_page;

#!/usr/local/bin/perl

$txtfile = '/path/to/sotd.txt';

# Required Librariers
# --------------------------------------------------------
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # Get the script location: UNIX /
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \
require "admin/links.cfg"; # Change this to full path to links.cfg if you have problems.
require "$db_lib_path/db_utils.pl";
require "$db_lib_path/links.def";
$build_use_templates ?
require "$db_lib_path/site_html_templates.pl" :
require "$db_lib_path/site_html.pl";
};
if ($@) {
print "Content-type: text/plain\n\n";
print "Error including libraries: $@\n";
print "Make sure they exist, permissions are set properly, and paths are set correctly.";
exit;
}
# ========================================================

eval { &main; }; # Trap any fatal errors so the program hopefully
if ($@) { &cgierr("fatal error: $@"); } # never produces that nasty 500 server error page.
exit; # There are only two exit calls in the script, here and in in &cgierr.

sub main {
# --------------------------------------------------------
open (DB, "<$db_file_name") or &cgierr ("Can't Open DB: $db_file_name");
my @links = <DB>;
close DB;
my %rec = &array_to_hash (0, &split_decode ($links[int rand $#links]));
open (SOTD, ">$txtfile") or &cgierr ("Can't Open FILE: $txtfile. Reason: $!");
print SOTD &site_html_sotd (%rec);
close SOTD;

$ENV{'REQUEST_METHOD'} and print "Content-type: text/plain\n\n";
print "ID: $rec{$db_key} Title: $rec{'Title'}\n";
}

sub site_html_sotd {
# --------------------------------------------------------
# This routine determines how the sotd link will look like.
#
my %rec = @_;
my ($output);
$output = qq~
<a href="$rec{'URL'}">$rec{'Title'}</a><br>
~;
return $output;
}

sub site_html_sotd {
# --------------------------------------------------------
# This routine determines how the sotd link will look like.
#
my %rec = @_;

# Set new and pop to either 1 or 0 for templates.
($rec{'isNew'} eq 'Yes') ? ($rec{'isNew'} = 1) : (delete $rec{'isNew'});
($rec{'isPopular'} eq 'Yes') ? ($rec{'isPopular'} = 1) : (delete $rec{'isPopular'});

return &load_template ('sotd.html', {
%rec,
%globals
});
}

<a href="<%URL%>"><%Title%></a><br>

<!--#include virtual="sotd.txt"-->

while (1) {
SELECT * FROM Links WHERE wasSOTD = 'No'
if ($hits > 0) {
$rand = int rand $hits;
SELECT * FROM Links WHERE wasSOTD = 'No' LIMIT 1, $rand
# You get the link here..
last;
}
else {
UPDATE Links TO wasSOTD = 'Yes'
}
}

print "Content-type: text/html\n\n";
print "Site of Day Completed.";

&error ("Can't find random Links ID: $id.");
}