아이콘 이미지 프록시 in Perl

Question

나는 우리 사이트 목록을위한 아이콘 파일을 제공하는 올바른 방법을 찾아 내려고하고있다. 기본적으로 목록의 아이콘은 소수의 다양한 서비스 (Flickr, Picasa, Google Static Maps, 자체 내부 이미지 호스팅 서비스 등)의 이미지 파일에서 가져올 수 있습니다. 나는 각 목록 아이콘을 사용하려는 있도록 아이콘의 URL은 단순히 호출하여 표시 할 우리의 데이터베이스에 저장됩니다

현재

http://www.example.com/listing/1234/icon 

내가 올바른 아이콘 리디렉션을 수행 할 CGI.pm을 사용하고있다 그러나 URL을 사용하면 301 리디렉션을 수행하지 않고도 파일을 직접 표시 할 수 있습니다.

my $url = "http://www.example-service.com/image-123.gif"; 
print $query->redirect(-url=>$url); 

은 내가 사용자를 리디렉션하지 않고 프록시를 통해 파일을 제공하는이 업데이트 수있는 방법에 대한 제안의 코드 예제를 부탁드립니다 : 여기에 우리가 사용하고 무엇에 대한 코드입니다. 도와 주셔서 미리 감사드립니다.

Answer 1

원격 파일을 가져 와서 인쇄하려면 LWP을 사용하십시오. 새 목록을 추가 할 때

#!/usr/local/bin/perl 
use LWP::UserAgent; 
use CGI; 
my $q = CGI->new; 
my $ua = LWP::UserAgent->new; 
$ua->agent("MyApp/0.1"); 
my $url = 'http://www.example-service.com/image-123.gif'; 

# Create a request 
my $req = HTTP::Request->new(GET => $url); 

my $res = $ua->request($req); 

if ($res->is_success) { 
     print $q->header($res->content_type); 
     print $res->content; 
} else { 
     print $q->header('text/plain', $res->status_line); 
     print $res->status_line, "\n"; 
} 

또는 당신은 어딘가에 또는 데이터베이스 자체에 웹 루트의 하나 목록 저장에 대한 이미지를 다운로드하여 데이터베이스에 대한 트리거를 작성할 수 있습니다.