Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Старожил


Сообщения: 335
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


Agent Comanche
Здесь можно воспользоваться перловым скриптом:
Код: Выделить весь код
 
my $picdir="/usr/local/apache/pics"; 
my $ref=$ENV{'HTTP_REFERER'}; 
my $myhost= quotemeta($ENV{'HTTP_HOST'}||$ENV{'SERVER_NAME'}); 
 * * * *if ($ref and $ref !~m|^http://$myhost/|) 
 * * * *{ 
 * * * * * * * *display_image("copyright.gif"); 
 * * * *} 
 * * * * else 
 * * * * { 
 * * * * * * * *my ($image_file)=$ENV{'PATH_INFO'}=~/^([\w+.]+)$/; 
 * * * * * * * *display_image($image_file); 
 * * * * } 
 
sub display_image 
{ 
 * * * * my $file=shift; 
 * * * * my $full_path="$picdir/$file"; 
 * * * * open IMG, $full_path; 
 * * * * print "Pragma: no-cache\n"; 
 * * * * print *"Content-type: image/gif\n\n"; 
 * * * * binmode; 
 * * * * my $buffer=""; 
 * * * * while (read(IMG, $buffer, 16_384)) 
 * * * * { 
 * * * * * * * * *print $buffer; 
 * * * * *} 
 * * * * * * * * *close IMG; 
} 
 
sub not_found 
{ 
 * * * * *print <<END_OF_ERROR; 
 * * * * *Status: 404 Not Found 
 * * * * *Content-type: text/html 
 * * * * *<HTML> 
 * * * * *<HEAD> 
 * * * * *<TITLE>Файл не найден</TITLE> 
 * * * * *</HEAD> 
 * * * * *<BODY> 
 * * * * * ... 
 * * * * *</BODY> 
 * * * * *</HTML> 
 * * * * *END_OF ERROR 
 * * * * *exit; 
}
Я сам с этим не сталкивался, поэтому этот пример я взял из книги "CGI-программирование на Perl" (O'Reilly)
Может я тут чего напутал, поэтому про непонятные места спрашивай подробнее, постараюсь помочь.

-------
Спасибо за внимание
Slackware и LFS...


Отправлено: 03:02, 15-10-2003 | #6