geopicme-pl

#!/usr/bin/env perl

use Mojolicious::Lite;
use FindBin qw($Bin);
use lib "$Bin/lib", "lib";
use Flickr::API2::Cached;
use Data::Dumper;
use List::Util qw(shuffle);

# flickr key: 76904a42e0e0a2b7eeaf037c8ec2e00b
# flickr secret: b4d1a53c3463051a
my $flickr = Flickr::API2::Cached->new(
    {'key' => '76904a42e0e0a2b7eeaf037c8ec2e00b',
     'secret' => 'b4d1a53c3463051a'},
    ( -d "./geopics" ? ("./geopics") : ())
);

sub index {
    my $self = shift;
    $self->render('index');
}
get '/' => \&index;
get '/perl/' => \&index;

sub about {
    my $self = shift;
    $self->render('about');
};
get '/perl/about' => \&about;
get '/about' => \&about;

sub contact {
    my $self = shift;
    $self->render('contact');
};
get '/perl/contact' => \&contact;
get '/contact' => \&contact;


sub get_image_list {
    my ($lat, $lon, $size) = @_;
    my $images = $flickr->cached_method(
	sprintf("@%.2f+%.2f", $lat, $lon),  #cache to nearest mile or so
	'flickr.photos.search', {
	    lat => $lat,
	    lon => $lon,
	    min_taken_date => time - 2 * 86400 * 365,
	    accuracy => 3,
	    has_geo => 1,
	}
    );

    my @photos = @{$images->{photos}{photo}};
    if ( @photos > 20 ) {
	# get one each per user first
	my @got;
	while ( @got < 20 ) {
	    my %seen;
	    for my $photo ( @photos ) {
		next if !defined $photo;
		next if $seen{$photo->{owner}}++;
		push @got, $photo;
		undef($photo);
		last if @got == 20;
	    }
	}
	@photos = @got;
    }

    #print STDERR Dumper(\@photos);

    my $res;
    my @urls = map { $flickr->get_url_from_image( $_, $size ) }
	(@photos);

    #print STDERR "Returning: @urls\n";
    return @urls;
}

get '/perl/find/(*lat)/(*lon)' => sub {
    my $self = shift;
    my $lat  = $self->stash('lat');
    my $lon  = $self->stash('lon');

    $self->render_json(
	[ get_image_list($lat, $lon, "t") ]
    );
};

sub get_images {
    my @rv;
    while ( my $img = shift ) {
	print STDERR "Fetching: $img\n";
	my $filename = $flickr->get_image_from_cache( $img );
	push @rv, $filename;
    }
    @rv;
}

use Time::HiRes qw(gettimeofday tv_interval);
use Digest::MD5 qw(md5_hex);

use threads::tbb;
use Geopicme;

our $tbb = threads::tbb->new( modules => [ "Geopicme" ] );

get '/perl/montage/(*method)/(*lat)/(*lon)/(*seed)' => sub {
    my $self = shift;
    my $method = $self->stash("method");
    my $lat  = $self->stash('lat');
    my $lon  = $self->stash('lon');
    my $seed  = $self->stash('seed');

    my @images = get_image_list($lat, $lon, "z");  # 640px images

    my $t0 = [gettimeofday];
    my @files = get_images(@images);
    if ( $seed ) { srand $seed; @files = shuffle @files }
    my $t1 = [gettimeofday];

    my $montage = Image::Magick->new(size => "800x640", debug => "Exception");
    $montage->Read("xc:white");

    my $label;
    if ( $method eq "single" ) {
	@images = map { resize_image($_) }
	    @files;
	$label = "single";
    }
    else {
	@images = $tbb->map_list_func("Geopicme::resize_image", @files);
	$label = "tbb";
    }

    my $x_pos = 0;
    my $y_pos = 0;
    my $t2 = [gettimeofday];
    for my $image ( @images ) {
	$montage->Composite(
	    image => $image,
	    compose => "over",
	    x => $x_pos * 160, y => $y_pos * 160,
	    gravity => "NorthWest",
	);
	$x_pos++;
	if ( $x_pos == 5 ) {
	    $y_pos++;
	    $x_pos = 0;
	}
    }

    my $public = ( -d "public" ? "public" : "$Bin/public" );
    my $img_filename = "$public/img/"
	.md5_hex(sprintf("@%.2f+%.2f", $lat, $lon))."_montage_${label}_$seed.jpg";
    #jopen my $out, ">", $img_filename;
    print STDERR "Writing $img_filename\n";
    $montage->Set(quality => 75);
    if ( -f $img_filename ) {
	unlink($img_filename);
    }
    my $x = $montage->Write("jpg:$img_filename");
    warn $x if $x;
    print STDERR "...?\n";
    #jclose $out;
    my $t3 = [gettimeofday];

    my $fetch_time = tv_interval $t0, $t1;
    my $resize_time = tv_interval $t1, $t2;
    my $composite_time = tv_interval $t2, $t3;
    (my $rel_url = $img_filename) =~ s{.*?img/}{img/};
    my $rv = 
	{
	fetch_time => sprintf("%.3s", $fetch_time),
	resize_time => sprintf("%.3s", $resize_time),
	composite_time => sprintf("%.3s", $composite_time),
	image_url => $rel_url,
      };
    print STDERR "Returning ".Dumper($rv);
    $self->render_json($rv);
};

app->start;