User:Dschwen/addkmllinks.js

var addkmllinks =

{

config:

{

coordurls : new Array (

'http://tools.wikimedia.de/~magnus/geo/geohack.php?',

'http://www8.brinkster.com/erikbaas/wiki/maps.asp?',

'http://www.nsesoftware.nl/wiki/maps.asp?'

)

},

// Check against coordinate urls

isMaplink : function( url )

{

if( typeof(url) != 'string' ) return false;

with(addkmllinks)

{

// for( var key = 0; key < config.coordurls.length; key++ ) {

for( var key in config.coordurls ) {

if( url.substr(0,config.coordurls[key].length) == config.coordurls[key] )

return true;

}

}

return false;

},

install : function()

{

with(addkmllinks)

{

var coordnum = 0;

var len; // cache array length for iterations

var links = document.getElementsByTagName('a');

len = links.length;

for( var key = 0; key < len; key++ )

{

link = links[key];

if( isMaplink(link.href) ) coordnum++;

} //for

if( coordnum > 1 )

{

var content = document.getElementById('content');

var el;

el = document.createElement('a');

el.href = 'http://suda.co.uk/projects/microformats/geo/get-geo.php?type=kml&uri=' + encodeURIComponent( document.location );

el.appendChild( document.createTextNode('Export points of interest') );

content.appendChild(el);

}

} //with

}

}

//

// Hook up installation function

//

addOnloadHook(addkmllinks.install);

//