-
Notifications
You must be signed in to change notification settings - Fork 0
/
flick_get_lastphotos.pl
34 lines (26 loc) · 1.11 KB
/
flick_get_lastphotos.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl -s
#
# The program prints URL of random image out of $max_photos photos from
# photoalbum of $my_flickr_id user using flickr.people.getPublicPhotos.
# Valid $api_key variable must be provided.
# (c) T.Przechlewski 2007; licence GPL
#
use LWP::Simple;
#
my $my_flickr_id='20425995@N00';
my $my_flickr_dir='http://www.flickr.com/photos/tprzechlewski';
my $max_photos = '20';
my $api_key = '000000000000000000000000'; # insert your API key here
my $method = 'flickr.people.getPublicPhotos';
my $url = "http://www.flickr.com/services/rest/?method=$method&api_key=$api_key&user_id=$my_flickr_id&per_page=$max_photos";
my $xml = get $url;
if ($xml =~ m/rsp stat=[ \t]*[\`\"]ok/) {# no errors so print
while ($xml =~ m/id=[ \t]*[\`\"]([^\"\']+)[\`\"]/g) { push @Photos, $1; }
} else { die "** Problems fetching $max_photos of $my_flickr_id **"; }
my $r = print_random(); print "$my_flickr_dir/$r\n";
1; ## ok, finish now
### all photos: ###
sub print_all_photos { for (@Photos) { print "$my_flickr_dir/$_\n"; } }
### random photo: ###
sub print_random { return $Photos[ int(rand($max_photos)) ]; }
## end ###