PISS OFF !
Click here to goto Page 2 #!/usr/bin/perl
##############################################################################
# Download Counter (SHOWLOAD) Version 3.5 #
# Copyright 1998-99, UtilMind Solutions info@utilmind.com #
# http://www.utilmind.com #
# Created 3.XII.1998 Last Modified 9.V.1999 #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1998-99 UtilMind Solutions. All Rights Reserved. #
# #
# This program is being distributed as shareware. It may be used and #
# modified free of charge for personal, academic, government or non-profit #
# use, so long as this copyright notice and the header above remain intact. #
# Any commercial use should be registered. Please also send us an email, #
# and let us know where you are using this script. By using this program #
# you agree to indemnify UtilMind Solutuons from any liability. #
# #
# Selling the code for this program without prior written consent is #
# expressly forbidden. Obtain permission before redistributing this #
# program over the Internet or in any other medium. In all cases #
# copyright and header must remain intact. #
# #
# Please check the README file for full details on installation #
# and registration. #
##############################################################################
# This is the counter log filename
$databasefile = 'download.txt';
####################################################################
# Here you can set up the divider sign of the "top download" string
# For example, if you set the ': ' sign, the string with the most
# downloaded prgram will displayed as: thebestprogram.exe: 1432313
$topsign = ' - ';
# Begining of the code. No modifications need below this line
print "Content-Type: text/html\n\n";
# Get the input
$link = $ENV{'QUERY_STRING'};
if (substr($link, 0, 1) eq '+') {
$top = substr($link, 1, length($link) - 1);
$showtop = 1;
}
open(FILE, $databasefile) || die Can't locate database file $!;
@DATA =