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'