#!/usr/local/bin/perl
use CGI qw(:standard);
require "admin/links.def";
require "admin/links.cfg";

open (OLD, "admin/data/links.db") or die $!;
open (NEW, ">admin/data/links.db.new") or die $!;
while (<OLD>) {
my @tmp = ();
my $id = $1 if (/^\d+\|/);
my $hits = 0;
if (open (HIT, "admin/data/in/$id")) {
chomp ($hits = <HIT>);
close HIT;
unlink "admin/data/in/$id";
}
if ($hits) {
@tmp = split /\|/;
$tmp[$db_def{inHits}[0]] += $hits;
print NEW join "|", @tmp;
}
else {
print NEW;
}
}
close NEW;
close OLD;

rename("admin/data/links.db.new", "admin/data/links.db") or die $!;