gistfile1

#!/usr/bin/perl -w

use strict;

use WebService::YQL;
use Data::Dumper;
use Date::Simple ('date', 'today');

my $date  = Date::Simple->new('2010-01-01');
  
  my $yql = WebService::YQL->new;

while ($date ne today())
{
	my $query = "SELECT id FROM flickr.photos.search WHERE user_id='82393925\@N00' AND min_taken_date = '$date 00:00:00' AND max_taken_date = '$date 23:59:59' AND id in (select id from flickr.photosets.photos(0,365) where photoset_id='72157623008530353')";
	my $data = $yql->query($query);
	if (!$data->{'query'}{'results'}{'photo'}{'id'})
	{
		print "Missing photo for $date!\n";
	}
	$date++;
}