Учебное пособие по CGI-программированию
Страница 28. Кто посещает мою страничку?


Кто посещает мою страничку?

Вам иногда хотелось наверное узнать,кто же смотрит на вашу страничку,откуда и когда ваша страничка посещалась.
Бывают такие вопросы? Кто-то считает,что ответить на них нельзя. Но вы не верьте этому расхожему мнению.
Один раз с подобными вопросами ко мне подошел мой одногрупник, Диман. У него неплохой сайт. и туда к нему всегда валит целая куча народа. Вот как раз разговор и зашел об этой куче народа. Результатом моего непродолжительного труда стал небольшой скрипт.В страничку он втакается через тэг <IMG xsrc="cgi-bin/get_ip.cgi"> он покажет вам изображение что не будет бросаться в глаза. Зато при своей работе он все запишет в файл ipdata.txt : В нем будет время и IP-адрес того,кто смотрел на вашу страничку!
#!/usr/bin/perl #get_ip.cgi $gif="../gifs/player.gif"; 
$data="ipdata.txt";
print "Content-Type: image/gif\n\n";
open G,$gif; print <G>;
close G;
open D,">>$data";
print D scalar localtime,' '.$ENV{'REMOTE_ADDR'}."\n";
close D;
 
« Предыдущая статья