#!/usr/bin/perl # Copyright (c) 2009, Jeremiah LaRocco # Permission to use, copy, modify, and/or distribute this software for # any purpose with or without fee is hereby granted, provided that the # above copyright notice and this permission notice appear in all # copies. # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL # WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED # WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE # AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL # DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR # PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER # TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR # PERFORMANCE OF THIS SOFTWARE. use strict; use warnings; use LWP::Simple; my $url = 'http://www.flickr.com/badge_code_v2.gne?' . 'count=5&' . 'display=random&' . 'size=m&' . 'layout=v&' . 'source=user&' . 'user=45448242%40N02'; my $content = get $url; my $data = '
\n"; my $len = length($data); print "Content-type: text/xml\n"; print "Content-length: $len\n\n$data";