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)
Может я тут чего напутал, поэтому про непонятные места спрашивай подробнее, постараюсь помочь.
