linktracker.pl (file you redirect to)


#!/usr/bin/perl

#
# link tracker
#

use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;

use POSIX;

use DB_File;

my %db;
my $db = "linktracker.db";


tie %db, "DB_File", "$db", O_CREAT | O_RDWR, 0644, $DB_BTREE
  or die "Cannot open file 'db': $!\n";

my $url = url_param('url');

if (exists $db{$url}) {
my $value = $db{$url};

$value++;
$db{$url} = $value;

print "Location: $url\n\n";
}
else {
$db{$url} = 1;
print "Location: $url\n\n";
}

##</code><code>##

linkcount.pl    (stats page)

#!/usr/bin/perl

#
# link counter
#

use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;

use POSIX;

use DB_File;

my %db;
my $db = "linktracker.db";


tie %db, "DB_File", "$db", O_CREAT | O_RDWR, 0644, $DB_BTREE
  or die "Cannot open file 'db': $!\n";

print header, start_html;
print "<center>";
print "<table><tr>";
print qq(<td bgcolor="000080"><b><font color=white>URL</font></b></td>);
print qq(<td bgcolor="000080"><b><font color=white>Click Count</font></b></td></tr>);

foreach (keys %db) {
print "<td>$_ </td> <td><center>$db{$_}</center></td></tr>\n";
}


print "</table>";
print "</center>";