topical media & game development
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

talk show tell print

mashup-gmaps-ch14-02flickrproxy.pl / pl



  #!/usr/bin/perl
  
  use strict;
  use CGI qw/:standard/;
  use LWP::UserAgent;
  
  my ua = LWP::UserAgent->new(env_proxy => 1,
                               keep_alive => 1,
                               timeout => 30,
                               agent => "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.2) Gecko/20021120 Netscape/7.\
  01",
                               );
  print header(-type => 'text/xml');
  
  my @query;
  
  foreach my param (param())
  {
      push @query,sprintf('\%s=\%s',param,param(param));
  }
  
  my query = 'http://www.flickr.com/services/rest/?' . join('&',@query);
  
  my response = ua->get(query);
  
  print response->{_content};
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

(C) Æliens 20/2/2008

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.