#!/usr/bin/perl
# -------------------------------------------
require "/home/yourpath/cgi-bin/links/admin/links.cfg"; # Change this to the path to your links.cfg
require "$db_lib_path/db_utils.pl";
require "$db_lib_path/links.def";
$ENV{'REQUEST_METHOD'} and (print "Content-type: text/plain\n\n");
open (DB, "$db_links_name")
or print "Unable to open links database 'links.db'. Reason: $!" and exit;
open (DBOUT, ">$db_links_name.bak")
or print "Unable to open output database. Reason: $!" and exit;
LINE: while (<DB> )
{
/^#/ and next LINE; # Skip comment Lines.
/^\s*$/ and next LINE; # Skip blank lines.
chomp; # Remove trailing new line.
@RecOut = &split_decode($_);
$RecOut[$db_monthhits] = 0;
print DBOUT &join_encode(&array_to_hash(0, @RecOut));
}
close DB;
close DBOUT;
print "\nLinks database now has monthhits field reset.\n\n";

if (-s "$db_links_name.bak" > 0) {
if (! rename ("$db_links_name.bak", $db_links_name)) {
print "\tCouldn't rename! Had to copy. Strange: $!\n";
open (DBTMP, ">$db_links_name") or &cgierr ("unable to open links database: $db_links_name. Reason: $!");
open (DB, "$db_links_name.bak") or &cgierr ("unable to open temp links database: $db_links_name.bak. Reason: $!");
while (<DB>) { print DBTMP; }
close DB;
close DBTMP;
}
}
else {
&cgierr ("Error building! Links database is 0 bytes!");
}

#monthly hits mod modded
sub build_monthcool_page {
local ($total, $percent, $link_results, $title_linked);
my (%link_output, $category_clean);
if ($build_monthcool_path =~ m,^$build_root_path/(.*)$,) {
&build_dir ($1);
}
$total = 0;
CATEGORY: foreach $category (sort keys %monthcool_links) {
LINK: for ($i = 0; $i < ($#{$monthcool_links{$category}}+1) / ($#db_cols + 1); $i++) {
$total++;
%tmp = &array_to_hash ($i, @{$monthcool_links{$category}});
$link_output{$category} .= &site_html_link (%tmp) . "\n";
}
}
foreach $category (sort keys %monthcool_links) {
$category_clean = &build_clean ($category);
$link_results .= qq|<P><A HREF="$build_root_url/$category/$build_index">$category_clean</A>\n|;
$link_results .= $link_output{$category};
}
$title_linked = &build_linked_title ("MonthlyCool");
open (MONTHCOOL, ">$build_monthcool_path/$build_index") or cgierr ("unable to open what's Monthcool page: $build_monthcool_path/$build_index. Reason: $!");
print "\tMonthly Cool-Hot Links: $total\n";
($db_monthpopular_cutoff < 1) ?
($percent = $db_monthpopular_cutoff * 100 . "%") :
($percent = $db_monthpopular_cutoff);
# forgot to change to the site_html_monthcool html but no biggie
print MONTHCOOL &site_html_cool(@monthcool_links); Hmmm...maybe you should change yours to &site_html_monthcool
close MONTHCOOL;
}