#!/usr/bin/perl############################################################################### Download Counter (LOAD) 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. ################################################################################ Set Variables# This is the counter log filename$databasefile = 'http://digilander.iol.it/fitnessedintorni/files/cgi-bin/download.txt';# This is your main URL path$YourURL = 'http://digilander.iol.it/fitnessedintorni/';########################################################### No changes need to be made after these lines##########################################################$originallink = "$ENV{'QUERY_STRING'}";# v3.5 - Get remote fileif ((substr($originallink, 0, 7) eq 'http://') || (substr($originallink, 0, 6) eq 'ftp://')) { $link = $originallink;}else { $link = "$YourURL/$originallink"; # YourURL + Link to file}open(DB,"+<$databasefile") || die $!;flock(DB,2); # Locking fileseek(DB,0,0);@DATA = <DB>;$SIZE = @DATA;$i = 0;while ($i <= $SIZE) { ($counter,$oldlink) = split(/`/,$DATA[$i]); chop($oldlink); if ($oldlink eq $originallink) { $counter++; $DATA[$i] = "$counter`$originallink\n"; goto LocateLink; } $i++;}push @DATA, "1`$originallink\n";LocateLink:@DATA = sort {($b =~ /(\d+)/)[0] <=> ($a =~ /(\d+)/)[0]} @DATA;seek(DB,0,0);print(DB @DATA);truncate(DB,tell(DB));flock(DB, 8); # Unlocking fileclose(DB);print "Location: $link\n\n";