Pagina 1

Pagina 2

SAUNDTRECS 1

90° Minuto
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
A-Team
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
Automan
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
Beverly Hills 90210
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
Flashdance
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]    		DOWNLOAD NOW
Friends
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
GhostBusters
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
Happy Days
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
Hazard
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
Jurassic Park
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
Mac Gyver
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
Magnum PI
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW
Mork e Mindy
[Scaricato #!/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 = ; close(FILE); $SIZE = @DATA; if ($showtop eq 1) { if ($top ne '') { ($counter, $link) = split(/`/, $DATA[$top]); print "$link$topsign$counter"; } else { $total = 0; for ($i=0;$i<$SIZE;$i++) { ($counter, $dummy) = split(/`/, $DATA[$i]); $total = $total + $counter; } print $total; } exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/`/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { print $counter; exit; } } print "?"; volte]  		DOWNLOAD NOW

Pagina 1

Pagina 2

Attenzione!!! Comunicateci se qualche link non funziona!!

webmaster@gruppogrezzo.com