;= t X I E V »rĻ½ś’ " ; G n z æ Ä Š ½ś’ Ü äauthor Mikel Maron authorEmail mikel_maron@yahoo.com description #add location data to weblog entries homePageUrl Ahttp://rockburger.com/brainoff.com/worldkit/doc/weblogs.php#radioname Location releaseDateversion 0.3 I ŗ ¦ Arial
»rŠ:½ś
) JżLAND’’’’’’ win on afterWeblogPostForm (adrPost)
local
pta = html.getPageTableAddress()
text = ""
lon = ""
lat = ""
imgurl = ""
try
if (pta^.method == "POST")
if (adrPost != nil)
if defined (pta^.radioResponder.postArgs.lat) && sizeOf(pta^.radioResponder.postArgs.lat) > 0
adrPost^.lat = pta^.radioResponder.postArgs.lat
if defined (pta^.radioResponder.postArgs.lon) && sizeOf(pta^.radioResponder.postArgs.lon) > 0
adrPost^.lon = pta^.radioResponder.postArgs.lon
if defined (pta^.radioResponder.postArgs.imgurl) && sizeOf(pta^.radioResponder.postArgs.imgurl) > 0
adrPost^.imgurl = pta^.radioResponder.postArgs.imgurl
else
if (adrPost != nil)
if defined (adrPost^.lat) && sizeOf(adrPost^.lat) > 0
lat = adrPost^.lat
if defined (adrPost^.lon) && sizeOf(adrPost^.lon) > 0
lon = adrPost^.lon
if defined (adrPost^.imgurl) && sizeOf(adrPost^.imgurl) > 0
imgurl = adrPost^.imgurl
text = "Latitude: Longitude: Thumbnail url: "
return text
ŗ
< Ń Arial
»rŠN½ś
ō & JżLAND’’’’’’ win on writeRssItemElement (adrtable, adrpost=nil)
if defined (adrPost^.lat) && sizeOf(adrPost^.lat) > 0
adrtable^.["geo:lat"] = adrPost^.lat
if defined (adrPost^.lon) && sizeOf(adrPost^.lon) > 0
adrtable^.["geo:long"] = adrPost^.lon
if defined (adrPost^.imgurl) && sizeOf(adrPost^.imgurl) > 0
adrtable^.["photo:thumbnail"] = adrPost^.imgurl
else
if defined (adrPost^.link) && sizeOf(adrPost^.link) > 0
adrtable^.["photo:thumbnail"] = adrPost^.link
+ ” Arial
»rÓ„½ś
JżLAND’’’’’’ win on writeRssNamespace (spacetableaddress)
spacetableaddress^.["geo"] ="http://www.w3.org/2003/01/geo/"
spacetableaddress^.["photo"] = "http://pheed.com/pheed/"
+ . »rĻ»rÕS
4 @
RafterWeblogPostForm writeRssItemElement swriteRssNamespace
3 / »rĻ»rŃ
user ; 3 Z x j Arial
»só÷»söP JżLAND’’’’’’ win Changes
Created from installCodeFreshener script by AJF on 8/28/2003; 6:02:28 PM.
9/26/02; 12:23:22 AM by AJF
Add new tool tables.
1/15/02; 5:21:20 PM by DW
Runs on the user's machine, when refreshing.
local (adrtable = @system.temp.LocationSnapshot)
LocationInfo = adrtable^.info
LocationSuite = adrtable^.suite
LocationThread = adrtable^.thread
LocationWebsite = adrtable^.website
filemenu.savemyroot (@LocationSuite)
local (x=string.parseAddress (@LocationSuite), f = x[1])
frontier.tools.install (f)
dialog.notify ("Thanks for updating to version " + LocationInfo.version + " of Location.root Tool!")
Z ½ N ÷ Arial
»sō4½ś6 JżLAND’’’’’’ win Changes
Created from installCodeFreshener script by AJF on 8/28/2003; 6:02:30 PM.
1/15/02; 5:18:06 PM by DW
This is the Refresh menu command.
local (url = "http://brainoff.com/worldkit/download/locationCodeFreshener.fttb")
local (urllist = string.urlsplit (url))
local (s = tcp.httpclient (server:urllist [2], path:urllist [3]))
local (f=frontier.pathstring + "codeFreshener.fttb")
file.writewholefile (f, s)
fatpages.importfatfile (f)
thread.callscript (@system.temp.LocationSnapshot.loader, {})
½ ń m Arial
»sō5»sō6 JżLAND’’’’’’ win if dialog.confirm ("Get the newest code for Location.root Tool?")
LocationSuite.codeFreshener.refreshCode()
ń Ū ¢ Į Arial
»sō6»s÷» [łLAND’’’’’’ win Changes
Created from installCodeFreshener script by AJF on 8/28/2003; 6:02:31 PM.
1/15/02; 5:08:55 PM by DW
Created. I run this on my machine to create a package for refreshCode to load.
Talk about a Mobius Strip. It's really simple code, but it's fun to walk your mind through it.
LocationThread.enabled = true
LocationThread.ct = 0
LocationInfo.releaseDate = clock.now()
local (adrtable = @system.temp.LocationSnapshot)
new (tabletype, adrtable)
adrtable^.info = LocationInfo
adrtable^.suite = LocationSuite
adrtable^.thread = LocationThread
adrtable^.website = LocationWebsite
adrtable^.loader = LocationSuite.codeFreshener.loadNewCode
local (f = radio.file.getSubFolder ("gems") + "locationCodeFreshener.fttb")
file.surefilepath (f)
export.sendobject (adrtable, f)
f = radio.file.getSubFolder ("gems") + "Location.root"
target.set (this)
fileMenu.saveCopy (f)
dialog.alert (file.filefrompath (f) + " is " + string.megabytestring (file.size (f)))
Ū § £ 8 »só÷»sō6
$ 0
@ L
[ loadNewCode refreshCode refreshCodeMenu IreleaseNewCode F § x . Arial
»rÓ,»rāš JżLAND’’’’’’ win on install ()
if( !defined( user.radio.callbacks.afterWeblogPostForm ) )
radio.log.add( "Location", "afterWeblogPostForm callback table is missing", clock.ticks() )
else
user.radio.callbacks.afterWeblogPostForm.Location = @LocationSuite.callbacks.user.afterWeblogPostForm
if( !defined( user.radio.callbacks.writeRssItemElement ) )
radio.log.add( "Location", "writeRssItemElement callback table is missing", clock.ticks() )
else
user.radio.callbacks.writeRssItemElement.Location = @LocationSuite.callbacks.user.writeRssItemElement
if( !defined( user.radio.callbacks.writeRssNamespace ) )
radio.log.add( "Location", "writeRssNamespace callback table is missing", clock.ticks() )
else
user.radio.callbacks.writeRssNamespace.Location = @LocationSuite.callbacks.user.writeRssNamespace
bundle //install macro
local (adrMacro = @user.html.macros.locationlink)
if ( defined (adrMacro^ ) )
delete ( adrMacro )
script.newScriptObject ("on locationlink(postnum) { LocationSuite.macros.locationlink(postnum) }", adrMacro )
script.compile( adrMacro )
` ;
Arial
»rŽy»rģö JżLAND’’’’’’ win on locationlink (postnum)
local
adrblog = radio.weblog.init ()
adrpost = @adrblog^.posts.[string.padwithzeros(postnum,8)]
lat = ""
lon = ""
imgurl = user.radio.prefs.defaultCloudData.url + "images/remote.gif"
if defined (adrpost^)
if defined (adrpost^.lat)
lat = adrpost^.lat
if (defined (adrpost^.lon))
lon = adrpost^.lon
if sizeOf(lat) > 0 && sizeOf(lon) > 0
return "![](\"")
"
else
return ""
; 7 »rŽi»rŽy
locationlink
; Arial
»rĻ»rĻ ÷6æ·LAND’’’’’’ win dialog.notify ("Hello, World!")
Ō V Arial
»sō7»sō7 ÷6æ·LAND’’’’’’ win if dialog.confirm ("Get the newest code?"){LocationSuite.codeFreshener.refreshCode()}
Ō õ & W Arial
»rĻ»sō7 X ÷6æ·LAND’’’’’’ win Location
Use the Location Tool from your Weblog Post form -- Cheers!
Refresh Code...
!p
" õ p "ś °Ė Arial
ukś/ p $ Arial
»rĻ»rŃĄ JżLAND’’’’’’ win This script returns a string which appears in the Status Center on the Radio UserLand home page.
return ("Add Location Information to Individual Weblog Posts")
$ Ü Ų L »rĻ»só÷
$ 0
8 D
K W
\ h
| callbacks Ū
codeFreshener -install ąmacros !)menu #ūstatusCenterMessage $w Ü ¬ x ¼ Arial
»rĻ»rÓ å]LAND’’’’’’ win This script runs in its own thread.
local
startTime = clock.ticks()
radio.weblog.init()
bundle //install process
radio.log.add("Location","Triggering Install", startTime)
if (! defined(system.temp.flLocationInstalled) )
try
radio.log.add("Location", "Firing Install", startTime)
LocationSuite.install()
system.temp.flLocationInstalled = true
radio.log.add("Location", "Install Complete", startTime )
else
radio.log.add("Location", tryError, startTime)
else
radio.log.add("Location", "Install flag already set", startTime )
bundle //while the application is running
loop //loop until the application quits
Add your code here.
thread.sleepFor (10) //sleep for ten seconds
¬ T P . »rĻ½ś’ ’’
ctenabledscript & T n »s VArial n Å V “ " + 0 : C L Q [ aalink 008000bgcolor FFFFFFflRenderlink 0000FFspaceGif spacetext 000000vlink 800080 VArial d < ° Arial
¶F ū¶F ū µ ßiLAND’’’’’’ win
{title}
{metaTags ()}
{bodyTag ()}
{bodytext}