#!/usr/bin/perl ######################################################### # Download Counter v 1.2 # # Программа-счетчик скачиваний # # --------------------------------------------------- # # mail: theli@inbox.ru # # url: http://theli.agava.ru # # (c) 2000 By Log studio # # --------------------------------------------------- # ######################################################### $req=$ENV{'QUERY_STRING'}; &check_errors; $stat_file="../stat/files.txt"; open (DATA,$stat_file) || die "Can't open data file!\n"; @data = ; close (DATA); for ($i=0;$i<=$#data; $i++) { ($file_name, $file_url, $file_count) = split(/\|/, $data[$i]); chomp ($file_count); $file{$file_name}=$file_url; $count{$file_name}=$file_count; } if ($count{$req} ne "") { $count{$req}++; open (DATA, ">$stat_file")|| die "Can't open data file!\n"; foreach $file_name (keys %count) { print DATA $file_name."|".$file{$file_name}."|".$count{$file_name}."\n"; } close (DATA); print "Location: $file{$req}\n\n"; } else { &print_error; } # Подпрограммы ######################################################### sub print_error { print "Content-type: text/html\n\n"; print "\nDownload counter error"; print "\n\n"; print "
\n"; print "\n\n\n
\n"; print "\n"; print "\n\n"; print "\n"; print "\n\n"; print "\n"; print "\n

\n"; print "Внимание!

\n"; print "Произошла ошибка при скачивании файла!

\n"; print "$error

\n
\n
\n"; print "

\nCreated by Log Studio\n

\n"; print "\n"; print ""; } sub check_errors { if ($req eq "") { $error = "Вы не указали имя файла для скачивания!"; } else { $error = "Файл указанный вами не может быть скачен, т.к. его не существует!"; } }