#!/usr/bin/perl -w use strict; use v5.10; use IO::Socket::SSL; my $proto = 'tcp'; my $path = '/services/rest'; my ($key, $id) = do '/home/pegasus/flickr.keys'; sub fail { say <<"EOF"; Status: 503 Content-type: text/plain @_ EOF exit; } select((select(STDOUT), $| = 1)[0]); my $serv = 'https'; #my $serv = 'http'; my $host = 'api.flickr.com'; #my $host = 'localhost'; my $socket = IO::Socket::SSL->new( PeerAddr => $host, PeerPort => scalar getservbyname($serv, $proto), Proto => $proto ) or fail "Can't create socket: $@"; #my $socket = IO::Socket::INET->new("$host:".getservbyname($serv, $proto)) select((select($socket), $| = 1)[0]); my $query = "method=flickr.people.getPublicPhotos&api_key=$key&user_id=$id"; print $socket "GET $path?$query HTTP/1.1\r\n"; print $socket "Connection: keep-alive\r\n"; print $socket "Host: $host\r\n\r\n"; while ($_ = <$socket>) { /; } until m!!; my ($server, $farm, $osecret, $oformat); print $socket "GET $path?$query HTTP/1.1\r\n"; print $socket "Host: $host\r\n\r\n"; while ($_ = <$socket>) { / Screenshot of the moment...
EOF