#!/usr/bin/perl require "kisrael.pl"; &chugCGI(*input); use POSIX qw(ceil floor); use LWP::Simple; print "Content-type:text/html\n\n"; $url = $input{"url"}; $showdiv = $input{"showdiv"}; $wantwidth=$input{"wantwidth"}; $mapname=$input{"mapname"}; if($url eq ""){ $showdiv = "checked"; $mapname= "MAPNAME"; } print<<__EOQ__; flickrnotes2imagemap kisrael.com | tools | flickrnotes2imagemap
This is an HTML "screenscraper" that takes a flickr image URL that has annotative "notes" and tries to browbeat it into being a plain ol' HTML image map. (I didn't try very hard to get the nifty CSS box effect flickr uses to indicate where the notes are; however I do optionally update a caption underneath the photo.)

I couldn't find a "proper" way of extracting this information through the API, which means this will break horribly if/when flickr changes how it does HTML.

Options include setting a new width (scaling map coordinates accordingly); I wanted this because my blog uses a ~400px width column) It dumps the information three ways: as HTML, in a table, and then the HTML source.
flickr url:
imagemap name:
desired image width: (optional)
show div caption beneath
__EOQ__ if($url ne ""){ my $buffer = get($url); $buffer =~ s/\
/g; $globcontentwithbr =~ s/\[\[QUOTE\]\]/\\\'/g; $globcontentnoescapewithbr = $globcontent; $globcontentnoescapewithbr =~ s/\[\[QUOTE\]\]/\\\'/g; $globcontentnoescapewithbr =~ s/\\\'/\'/g; $globcontentnoescapewithbr =~ s/\\n/\ /g; if($globleft ne "" && $globtop ne "" && $globwidth ne "" && $globheight ne ""){ $globbuffer .= <<__EOQ__; __EOQ__ $globtable .= <<__EOQ__; $globcontentnoescapewithbr $globleft $globtop $globright $globbottom __EOQ__ $globleft = ""; $globtop = ""; $globwidth = ""; $globheight = ""; } } } $usemap = "#".$mapname; $result = <<__EOQ__;


$globbuffer __EOQ__ print $result; print<<__EOQ__; $globtable
content x1 y1 x2 y2
__EOQ__ $resulthtml = $result; $resulthtml =~ s/\/\>\;/g; print "
$resulthtml
\n"; } sub err { my($msg)=@_; print $msg,"\n"; }