Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) |
The CORE
|
package Utils::ProxyImage;
use strict;
use Digest::MD5 'md5_hex';
sub get_uri {
my $url = shift;
my $state = shift;
my $format = shift;
return '/i/_.gif' unless $format;
my $secret = $state->proxy_image_secret || 're2anteros';
if ($url =~ /^https?:\/\/(.*)/i) {
$url = $1;
} else {
return '/i/_.gif';
}
$url =~ s/\/+/\//g;
my $hash = md5_hex($url.$secret);
$url = '/'.$format.'/'.$hash.'/'.$url;
return $state->httpd_root.$state->proxy_image_location.$url;
}
1;
__DATA__
������� ��� ������������ URI �������� ����� proxy image
��� ������ ������ ���� ������ �������������� location � ngnix, ������� ��������� �� ������������ ������� ��������
�������� ���:
location /proxy-image/ {
proxy_pass http://imgproxy_upstream/;
proxy_set_header Host i1.rambler.ru;
proxy_cache cache;
proxy_cache_valid 24h;
proxy_cache_use_stale error timeout;
}
!!!�����!!! �� ����� � location ���������� � ������, ������ �� ���������� ���������� $format ��� ������ ������
� config.mk ������� �������� 2 ����� ����������:
PROXY_IMAGE_LOCATION = [���������� ��� location]
PROXY_IMAGE_SECRET = [��������� ����� ��� ������������ md5]
�������� ���:
use Utils::ProxyImage;
my $proxy_uri = Utils::ProxyImage::get_uri($url, $state, $format);
���:
$uri - ������ uri ��������;
$state - $state Contenido
$format - ������, �������. e.q. 'c70x70'