]> sipb.mit.edu Git - ikiwiki.git/blob - IkiWiki/Plugin/osm.pm
add osm plugin
[ikiwiki.git] / IkiWiki / Plugin / osm.pm
1 #!/usr/bin/perl
2 # Copyright 2011 Blars Blarson
3 # Released under GPL version 2
4
5 package IkiWiki::Plugin::osm;
6 use utf8;
7 use strict;
8 use warnings;
9 use IkiWiki 3.0;
10
11 sub import {
12     add_underlay("javascript");
13     hook(type => "getsetup", id => "osm", call => \&getsetup);
14     hook(type => "format", id => "osm", call => \&format);
15     hook(type => "preprocess", id => "osm", call => \&preprocess); # backward compatibility
16     hook(type => "preprocess", id => "waypoint", call => \&process_waypoint);
17     hook(type => "savestate", id => "waypoint", call => \&savestate);
18     hook(type => "cgi", id => "osm", call => \&cgi);
19 }
20
21 sub getsetup () {
22     return
23         plugin => {
24             safe => 1,
25             rebuild => 1,
26             section => "special-purpose",
27     },
28     osm_default_zoom => {
29         type => "integer",
30         example => "15",
31         description => "the default zoon when you click on the map link",
32         safe => 1,
33         rebuild => 1,
34     },
35     osm_default_icon => {
36         type => "string",
37         example => "img/osm.png",
38         description => "the icon showed on links and on the main map",
39         safe => 0,
40         rebuild => 1,
41     },
42     osm_alt => {
43         type => "string",
44         example => "",
45         description => "the alt tag of links, defaults to empty",
46         safe => 0,
47         rebuild => 1,
48     },
49     osm_format => {
50         type => "string",
51         example => "KML",
52         description => "the output format for waypoints, can be KML, GeoJSON or CSV (one or many, comma-separated)",
53         safe => 1,
54         rebuild => 1,
55     },
56     osm_tag_default_icon => {
57         type => "string",
58         example => "icon.png",
59         description => "the icon attached to a tag so that pages tagged with that tag will have that icon on the map",
60         safe => 0,
61         rebuild => 1,
62     },
63     osm_tag_icons => {
64         type => "string",
65         example => { 'test' => '/img/test.png',
66                      'trailer' => '/img/trailer.png' ,},
67         description => "tag to icon mapping, leading slash is important!",
68         safe => 0,
69         rebuild => 1,
70     },
71 }
72
73 sub preprocess {
74     my %params=@_;
75     my $page = $params{'page'};
76     my $dest = $params{'destpage'};
77     my $loc = $params{'loc'}; # sanitized below
78     my $lat = $params{'lat'}; # sanitized below
79     my $lon = $params{'lon'}; # sanitized below
80     my $href = $params{'href'};
81
82     my $fullscreen = defined($params{'fullscreen'}); # sanitized here
83     my ($width, $height, $float);
84     if ($fullscreen) {
85         $height = '100%';
86         $width = '100%';
87         $float = 0;
88     } else {
89         $height = scrub($params{'height'} || "300px", $page, $dest); # sanitized here
90         $width = scrub($params{'width'} || "500px", $page, $dest); # sanitized here
91         $float = (defined($params{'right'}) && 'right') || (defined($params{'left'}) && 'left'); # sanitized here
92     }
93     my $zoom = scrub($params{'zoom'} // $config{'osm_default_zoom'} // 15, $page, $dest); # sanitized below
94     my $map;
95     if ($fullscreen) {
96         $map = $params{'map'} || $page;
97     } else {
98         $map = $params{'map'} || 'map';
99     }
100     $map = scrub($map, $page, $dest); # sanitized here
101     my $name = scrub($params{'name'} || $map, $page, $dest);
102
103     if (defined($lon) || defined($lat) || defined($loc)) {
104         ($lon, $lat) = scrub_lonlat($loc, $lon, $lat);
105     }
106
107     if ($zoom !~ /^\d\d?$/ || $zoom < 2 || $zoom > 18) {
108         error("Bad zoom");
109     }
110     $pagestate{$page}{'osm'}{$map}{'displays'}{$name} =
111     {
112         'height' => $height,
113         'width' => $width,
114         'float' => $float,
115         'zoom' => $zoom,
116         'fullscreen' => $fullscreen,
117         'editable' => defined($params{'editable'}),
118         'lat' => $lat,
119         'lon' => $lon,
120         'href' => $href,
121     };
122     return "<div id=\"mapdiv-$name\"></div>";
123 }
124
125 sub process_waypoint {
126     my %params=@_;
127     my $loc = $params{'loc'}; # sanitized below
128     my $lat = $params{'lat'}; # sanitized below
129     my $lon = $params{'lon'}; # sanitized below
130     my $page = $params{'page'}; # not sanitized?
131     my $dest = $params{'destpage'}; # not sanitized?
132     my $hidden = defined($params{'hidden'}); # sanitized here
133     my ($p) = $page =~ /(?:^|\/)([^\/]+)\/?$/; # shorter page name
134     my $name = scrub($params{'name'} || $p, $page, $dest); # sanitized here
135     my $desc = scrub($params{'desc'} || '', $page, $dest); # sanitized here
136     my $zoom = scrub($params{'zoom'} // $config{'osm_default_zoom'} // 15, $page, $dest); # sanitized below
137     my $icon = $config{'osm__default_icon'} || "img/osm.png"; # sanitized: we trust $config
138     my $map = scrub($params{'map'} || 'map', $page, $dest); # sanitized here
139     my $alt = $config{'osm_alt'} ? "alt=\"$config{'osm_alt'}\"" : ''; # sanitized: we trust $config
140     if ($zoom !~ /^\d\d?$/ || $zoom < 2 || $zoom > 18) {
141         error("Bad zoom");
142     }
143
144     ($lon, $lat) = scrub_lonlat($loc, $lon, $lat);
145     if (!defined($lat) || !defined($lon)) {
146         error("Must specify lat and lon");
147     }
148
149     my $tag = $params{'tag'};
150     if ($tag) {
151         if (!defined($config{'osm_tag_icons'}->{$tag})) {
152             error("invalid tag specified, see osm_tag_icons configuration or don't specify any");
153         }
154         $icon = $config{'osm_tag_icons'}->{$tag};
155     } else {
156         foreach my $t (keys %{$typedlinks{$page}{'tag'}}) {
157             if ($icon = get_tag_icon($t)) {
158                 $tag = $t;
159                 last;
160             }
161             $t =~ s!/$config{'tagbase'}/!!;
162             if ($icon = get_tag_icon($t)) {
163                 $tag = $t;
164                 last;
165             }
166         }
167     }
168     $icon = "/img/unknown.png" unless $icon;
169     $tag = '' unless $tag;
170     if ($page eq $dest) {
171         if (!defined($config{'osm_format'}) || !$config{'osm_format'}) {
172             $config{'osm_format'} = 'KML';
173         }
174         my %formats = map { $_ => 1 } split(/, */, $config{'osm_format'});
175         if ($formats{'GeoJSON'}) {
176             will_render($page,$config{destdir} . "/$map/pois.json");
177         }
178         if ($formats{'CSV'}) {
179             will_render($page,$config{destdir} . "/$map/pois.txt");
180         }
181         if ($formats{'KML'}) {
182             will_render($page,$config{destdir} . "/$map/pois.kml");
183         }
184
185     }
186     my $href = "/ikiwiki.cgi?do=osm&map=$map&lat=$lat&lon=$lon&zoom=$zoom";
187     if (defined($destsources{htmlpage($map)})) {
188         $href = urlto($map,$page) . "?lat=$lat&lon=$lon&zoom=$zoom";
189     }
190     $pagestate{$page}{'osm'}{$map}{'waypoints'}{$name} =
191     {
192         'page' => $page,
193         'desc' => $desc,
194         'icon' => $icon,
195         'tag' => $tag,
196         'lat' => $lat,
197         'lon' => $lon,
198         'href' => urlto($page,$map), # how to link back to the page from the map, not to be confused with the URL of the map itself sent to the embeded map below
199     };
200     my $output = '';
201     if (defined($params{'embed'})) {
202         $params{'href'} = $href; # propagate down to embeded
203         $output .= preprocess(%params);
204     }
205     if (!$hidden) {
206         $href =~ s!&!&amp;!g;
207         $output .= "<a href=\"$href\"><img class=\"img\" src=\"$icon\" $alt /></a>";
208     }
209     return $output;
210 }
211
212 # get the icon from the given tag
213 sub get_tag_icon($) {
214     my $tag = shift;
215     # look for an icon attached to the tag
216     my $attached = $tag . '/' . $config{'osm_tag_default_icon'};
217     if (srcfile($attached)) {
218         return $attached;
219     }
220     # look for the old way: mappings
221     if ($config{'osm_tag_icons'}->{$tag}) {
222         return $config{'osm_tag_icons'}->{$tag};
223     } else {
224         return undef;
225     }    
226 }
227
228 sub scrub_lonlat($$$) {
229     my ($loc, $lon, $lat) = @_;
230     if($loc) {
231         if($loc =~ /^\s*(\-?\d+(?:\.\d*°?|(?:°?|\s)\s*\d+(?:\.\d*\'?|(?:\'|\s)\s*\d+(?:\.\d*)?\"?|\'?)°?)[NS]?)\s*\,?\;?\s*(\-?\d+(?:\.\d*°?|(?:°?|\s)\s*\d+(?:\.\d*\'?|(?:\'|\s)\s*\d+(?:\.\d*)?\"?|\'?)°?)[EW]?)\s*$/) {
232             $lat = $1;
233             $lon = $2;
234         } else {
235             error("Bad loc");
236         }
237     }
238     if(defined($lat)) {
239         if($lat =~ /^(\-?)(\d+)(?:(\.\d*)°?|(?:°|\s)\s*(\d+)(?:(\.\d*)\'?|(?:\'|\s)\s*(\d+(?:\.\d*)?\"?)|\'?)|°?)\s*([NS])?\s*$/) {
240             $lat = $2 + ($3//0) + ((($4//0) + (($5//0) + (($6//0)/60.)))/60.);
241             if (($1 eq '-') || (($7//'') eq 'S')) {
242                 $lat = - $lat;
243             }
244         } else {
245             error("Bad lat");
246         }
247     }
248     if(defined($lon)) {
249         if($lon =~ /^(\-?)(\d+)(?:(\.\d*)°?|(?:°|\s)\s*(\d+)(?:(\.\d*)\'?|(?:\'|\s)\s*(\d+(?:\.\d*)?\"?)|\'?)|°?)\s*([EW])?$/) {
250             $lon = $2 + ($3//0) + ((($4//0) + (($5//0) + (($6//0)/60.)))/60.);
251             if (($1 eq '-') || (($7//'') eq 'W')) {
252                 $lon = - $lon;
253             }
254         } else {
255             error("Bad lon");
256         }
257     }
258     if ($lat < -90 || $lat > 90 || $lon < -180 || $lon > 180) {
259         error("Location out of range");
260     }
261     return ($lon, $lat);
262 }
263
264 sub savestate {
265     my %waypoints = ();
266     my %linestrings = ();
267     foreach my $page (keys %pagestate) {
268         if (exists $pagestate{$page}{'osm'}) {
269             foreach my $map (keys %{$pagestate{$page}{'osm'}}) {
270                 foreach my $name (keys %{$pagestate{$page}{'osm'}{$map}{'waypoints'}}) {
271                     debug("found waypoint $name");
272                     $waypoints{$map}{$name} = $pagestate{$page}{'osm'}{$map}{'waypoints'}{$name};
273                 }
274             }
275         }
276     }
277     foreach my $page (keys %pagestate) {
278         if (exists $pagestate{$page}{'osm'}) {
279             foreach my $map (keys %{$pagestate{$page}{'osm'}}) {
280                 # examine the links on this page
281                 foreach my $name (keys %{$pagestate{$page}{'osm'}{$map}{'waypoints'}}) {
282                     if (exists $links{$page}) {
283                         foreach my $otherpage (@{$links{$page}}) {
284                             if (exists $waypoints{$map}{$otherpage}) {
285                                 push(@{$linestrings{$map}}, [ [ $waypoints{$map}{$name}{'lon'}, $waypoints{$map}{$name}{'lat'} ], 
286                                                              [ $waypoints{$map}{$otherpage}{'lon'}, $waypoints{$map}{$otherpage}{'lat'} ] ]);
287                             }
288                         }
289                     }
290                 }
291             }
292             # clear the state, it will be regenerated on the next parse
293             # the idea here is to clear up removed waypoints...
294             $pagestate{$page}{'osm'} = ();
295         }
296     }
297     if (!defined($config{'osm_format'}) || !$config{'osm_format'}) {
298         $config{'osm_format'} = 'KML';
299     }
300     my %formats = map { $_ => 1 } split(/, */, $config{'osm_format'});
301     if ($formats{'GeoJSON'}) {
302         writejson(\%waypoints, \%linestrings);
303     }
304     if ($formats{'CSV'}) {
305         writecsvs(\%waypoints, \%linestrings);
306     }
307     if ($formats{'KML'}) {
308         writekml(\%waypoints, \%linestrings);
309     }
310 }
311
312 sub writejson($;$) {
313     my %waypoints = %{$_[0]};
314     my %linestrings = %{$_[1]};
315     eval q{use JSON};
316     error $@ if $@;
317     foreach my $map (keys %waypoints) {
318         my %geojson = ( "type" => "FeatureCollection", "features" => []);
319         foreach my $name (keys %{$waypoints{$map}}) {
320             my %marker = ( "type" => "Feature",
321                            "geometry" => { "type" => "Point", "coordinates" => [ $waypoints{$map}{$name}{'lon'}, $waypoints{$map}{$name}{'lat'} ] },
322                            "properties" => $waypoints{$map}{$name} );
323             push(@{$geojson{'features'}}, \%marker);
324         }
325         foreach my $linestring (@{$linestrings{$map}}) {
326             my %json  = ( "type" => "Feature",
327                             "geometry" => { "type" => "LineString", "coordinates" => $linestring });
328             push(@{$geojson{'features'}}, \%json);
329         }
330         debug('writing pois file pois.json in ' . $config{destdir} . "/$map");
331         writefile("pois.json",$config{destdir} . "/$map",to_json(\%geojson));
332     }
333 }
334
335 sub writekml($;$) {
336     my %waypoints = %{$_[0]};
337     my %linestrings = %{$_[1]};
338     eval q{use XML::Writer};
339     error $@ if $@;
340     foreach my $map (keys %waypoints) {
341         debug("writing pois file pois.kml in " . $config{destdir} . "/$map");
342
343 =pod
344 Sample placemark:
345
346 <?xml version="1.0" encoding="UTF-8"?>
347 <kml xmlns="http://www.opengis.net/kml/2.2">
348   <Placemark>
349     <name>Simple placemark</name>
350     <description>Attached to the ground. Intelligently places itself 
351        at the height of the underlying terrain.</description>
352     <Point>
353       <coordinates>-122.0822035425683,37.42228990140251,0</coordinates>
354     </Point>
355   </Placemark>
356 </kml>
357
358 Sample style:
359
360
361         <Style id="sh_sunny_copy69">
362                 <IconStyle>
363                         <scale>1.4</scale>
364                         <Icon>
365                                 <href>http://waypoints.google.com/mapfiles/kml/shapes/sunny.png</href>
366                         </Icon>
367                         <hotSpot x="0.5" y="0.5" xunits="fraction" yunits="fraction"/>
368                 </IconStyle>
369                 <LabelStyle>
370                         <color>ff00aaff</color>
371                 </LabelStyle>
372         </Style>
373
374
375 =cut
376
377         use IO::File;
378         my $output = IO::File->new(">".$config{destdir} . "/$map/pois.kml");
379
380         my $writer = XML::Writer->new( OUTPUT => $output, DATA_MODE => 1, ENCODING => 'UTF-8');
381         $writer->xmlDecl();
382         $writer->startTag("kml", "xmlns" => "http://www.opengis.net/kml/2.2");
383
384
385         # first pass: get the icons
386         foreach my $name (keys %{$waypoints{$map}}) {
387             my %options = %{$waypoints{$map}{$name}};
388             $writer->startTag("Style", id => $options{tag});
389             $writer->startTag("IconStyle");
390             $writer->startTag("Icon");
391             $writer->startTag("href");
392             $writer->characters($options{icon});
393             $writer->endTag();
394             $writer->endTag();
395             $writer->endTag();
396             $writer->endTag();
397         }
398
399         foreach my $name (keys %{$waypoints{$map}}) {
400             my %options = %{$waypoints{$map}{$name}};
401             $writer->startTag("Placemark");
402             $writer->startTag("name");
403             $writer->characters($name);
404             $writer->endTag();
405             $writer->startTag("styleUrl");
406             $writer->characters('#' . $options{tag});
407             $writer->endTag();
408             #$writer->emptyTag('atom:link', href => $options{href});
409             $writer->startTag('href'); # to make it easier for us as the atom:link parameter is hard to access from javascript
410             $writer->characters($options{href});
411             $writer->endTag();
412             $writer->startTag("description");
413             $writer->characters($options{desc});
414             $writer->endTag();
415             $writer->startTag("Point");
416             $writer->startTag("coordinates");
417             $writer->characters($options{lon} . "," . $options{lat});
418             $writer->endTag();
419             $writer->endTag();
420             $writer->endTag();
421         }
422
423         my $i = 0;
424         foreach my $linestring (@{$linestrings{$map}}) {
425             $writer->startTag("Placemark");
426             $writer->startTag("name");
427             $writer->characters("linestring " . $i++);
428             $writer->endTag();
429             $writer->startTag("LineString");
430             $writer->startTag("coordinates");
431             my $str = '';
432             foreach my $coord (@{$linestring}) {
433                 $str .= join(',', @{$coord}) . " \n";
434             }
435             $writer->characters($str);
436             $writer->endTag();
437             $writer->endTag();
438             $writer->endTag();
439         }
440         $writer->endTag();
441         $writer->end();
442         $output->close();
443     }
444 }
445
446 sub writecsvs($;$) {
447     my %waypoints = %{$_[0]};
448     foreach my $map (keys %waypoints) {
449         my $poisf = "lat\tlon\ttitle\tdescription\ticon\ticonSize\ticonOffset\n";
450         foreach my $name (keys %{$waypoints{$map}}) {
451             my %options = %{$waypoints{$map}{$name}};
452             my $line = 
453                 $options{'lat'} . "\t" .
454                 $options{'lon'} . "\t" .
455                 $name . "\t" .
456                 $options{'desc'} . '<br /><a href="' . $options{'page'} . '">' . $name . "</a>\t" .
457                 $options{'icon'} . "\n";
458             $poisf .= $line;
459         }
460         debug("writing pois file pois.txt in " . $config{destdir} . "/$map");
461         writefile("pois.txt",$config{destdir} . "/$map",$poisf);
462     }
463 }
464
465 # pipe some data through the HTML scrubber
466 #
467 # code taken from the meta.pm plugin
468 sub scrub($$$) {
469         if (IkiWiki::Plugin::htmlscrubber->can("sanitize")) {
470                 return IkiWiki::Plugin::htmlscrubber::sanitize(
471                         content => shift, page => shift, destpage => shift);
472         }
473         else {
474                 return shift;
475         }
476 }
477
478 # taken from toggle.pm
479 sub format (@) {
480     my %params=@_;
481
482     if ($params{content}=~m!<div[^>]*id="mapdiv-[^"]*"[^>]*>!g) {
483         if (! ($params{content}=~s!</body>!include_javascript($params{page})."</body>"!em)) {
484             # no <body> tag, probably in preview mode
485             $params{content}=$params{content} . include_javascript($params{page});
486         }
487     }
488     return $params{content};
489 }
490
491 sub prefered_format() {
492     if (!defined($config{'osm_format'}) || !$config{'osm_format'}) {
493         $config{'osm_format'} = 'KML';
494     }
495     my @spl = split(/, */, $config{'osm_format'});
496     return shift @spl;
497 }
498
499 sub include_javascript ($) {
500     my $page=shift;
501     my $loader;
502
503     eval q{use JSON};
504     error $@ if $@;
505     if (exists $pagestate{$page}{'osm'}) {
506         foreach my $map (keys %{$pagestate{$page}{'osm'}}) {
507             foreach my $name (keys %{$pagestate{$page}{'osm'}{$map}{'displays'}}) {
508                 my %options = %{$pagestate{$page}{'osm'}{$map}{'displays'}{$name}};
509                 $options{'map'} = $map;
510                 $options{'format'} = prefered_format();
511                 $loader .= "mapsetup(\"mapdiv-$name\", " . to_json(\%options) . ");\n";
512             }
513         }
514     }
515     if ($loader) {
516         return embed_map_code() . "<script type=\"text/javascript\" charset=\"utf-8\">$loader</script>";
517     } else {
518         return '';
519     }
520 }
521
522 sub cgi($) {
523     my $cgi=shift;
524
525     return unless defined $cgi->param('do') &&
526         $cgi->param("do") eq "osm";
527
528     IkiWiki::decode_cgi_utf8($cgi);
529
530     my $map = $cgi->param('map');
531     if (!defined $map || $map !~ /^[a-z]*$/) {
532         error("invalid map parameter");
533     }
534
535     print "Content-Type: text/html\r\n";
536     print ("\r\n");
537     print "<html><body>";
538     print "<div id=\"mapdiv-$map\"></div>";
539     print embed_map_code($map);
540     print "<script type=\"text/javascript\" charset=\"utf-8\">mapsetup( 'mapdiv-$map', { 'map': '$map', 'lat': urlParams['lat'], 'lon': urlParams['lon'], 'zoom': urlParams['zoom'], 'fullscreen': 1, 'editable': 1, 'format': '" . prefered_format() . "'});</script>";
541     print "</body></html>";
542
543     exit 0;
544 }
545
546 sub embed_map_code() {
547     return <<EOF;
548   <script src="http://www.openlayers.org/api/OpenLayers.js"></script>
549   <script>
550 // taken from http://stackoverflow.com/questions/901115/get-query-string-values-in-javascript
551 var urlParams = {};
552 (function () {
553     var e,
554         a = /\\+/g,  // Regex for replacing addition symbol with a space
555         r = /([^&=]+)=?([^&]*)/g,
556         d = function (s) { return decodeURIComponent(s.replace(a, " ")); },
557         q = window.location.search.substring(1);
558
559     while (e = r.exec(q))
560        urlParams[d(e[1])] = d(e[2]);
561 })();
562
563 function mapsetup(divname, options) {
564     div = document.getElementById(divname);
565     if (options.fullscreen) {
566         permalink = 'permalink';
567         div.style.top = 0;
568         div.style.left = 0;
569         div.style.position = 'absolute';
570         div.style.width = '100%';
571         div.style.height = '100%';
572     } else {
573         div.style.height = options.height;
574         div.style.width = options.width;
575         div.style.float = options.float;
576         permalink = {base: options.href, title: "View larger map"};
577     }
578     map = new OpenLayers.Map(divname, {
579         controls: [
580             new OpenLayers.Control.Navigation(),
581             new OpenLayers.Control.ScaleLine(),
582             new OpenLayers.Control.Permalink(permalink)
583         ],
584         displayProjection: new OpenLayers.Projection("EPSG:4326"),
585         numZoomLevels: 18
586     });
587
588
589     map.addLayer(new OpenLayers.Layer.OSM());
590     if (options.format == 'CSV') {
591         pois = new OpenLayers.Layer.Text( "CSV",
592                                           { location:"/" + options.map + "/pois.txt",
593                                             projection: map.displayProjection
594                                           });
595     } else if (options.format == 'GeoJSON') {
596         pois = new OpenLayers.Layer.Vector("GeoJSON", {
597             protocol: new OpenLayers.Protocol.HTTP({
598                 url: "/" + options.map + "/pois.json",
599                 format: new OpenLayers.Format.GeoJSON()
600             }),
601             strategies: [new OpenLayers.Strategy.Fixed()]
602         });
603     } else {
604         pois = new OpenLayers.Layer.Vector("KML", {
605             protocol: new OpenLayers.Protocol.HTTP({
606                 url: "/" + options.map + "/pois.kml",
607                 format: new OpenLayers.Format.KML({
608                     extractStyles: true,
609                     extractAttributes: true
610                 })
611             }),
612             strategies: [new OpenLayers.Strategy.Fixed()]});
613     }
614     map.addLayer(pois);
615     select = new OpenLayers.Control.SelectFeature(pois);
616     map.addControl(select);
617     select.activate();
618
619     pois.events.on({
620         "featureselected": function (event) {
621             var feature = event.feature;
622             var content = '<h2><a href="' + feature.attributes.href + '">' +feature.attributes.name + "</a></h2>" + feature.attributes.description;
623             popup = new OpenLayers.Popup.FramedCloud("chicken",
624                                                      feature.geometry.getBounds().getCenterLonLat(),
625                                                      new OpenLayers.Size(100,100),
626                                                      content,
627                                                      null, true, function () {select.unselectAll()});
628             feature.popup = popup;
629             map.addPopup(popup);
630         },
631         "featureunselected": function (event) {
632             var feature = event.feature;
633             if(feature.popup) {
634                 map.removePopup(feature.popup);
635                 feature.popup.destroy();
636                 delete feature.popup;
637             }
638         }
639     });
640
641     if (options.editable) {
642         vlayer = new OpenLayers.Layer.Vector( "Editable" );
643         map.addControl(new OpenLayers.Control.EditingToolbar(vlayer));
644         map.addLayer(vlayer);
645     }
646
647     if (options.fullscreen) {
648         map.addControl(new OpenLayers.Control.PanZoomBar());
649         map.addControl(new OpenLayers.Control.LayerSwitcher({'ascending':false}));
650         map.addControl(new OpenLayers.Control.MousePosition());
651         map.addControl(new OpenLayers.Control.KeyboardDefaults());
652     } else {
653         map.addControl(new OpenLayers.Control.ZoomPanel());
654     }
655
656     //Set start centrepoint and zoom    
657     if (!options.lat || !options.lon) {
658         options.lat = urlParams['lat'];
659         options.lon = urlParams['lon'];
660     }
661     if (!options.zoom) {
662         options.zoom = urlParams['zoom'];
663     }
664     if (options.lat && options.lon) {
665         var lat = options.lat;
666         var lon = options.lon;
667         var zoom= options.zoom || 10;
668         center = new OpenLayers.LonLat( lon, lat )
669             .transform(
670                 new OpenLayers.Projection("EPSG:4326"), // transform from WGS 1984
671                 map.getProjectionObject() // to Spherical Mercator Projection
672             );
673         map.setCenter (center, zoom);
674     } else {
675         pois.events.register("loadend", this, function () { map.zoomToExtent(pois.getDataExtent()); });
676     }
677 }
678   </script>
679 EOF
680 }
681
682 1;