GPS text file converter to Google Earth/Maps

:global gpstext [/file get gps.txt contents]; :local longstart [:find $gpstext "longitude" -1]; :local longend [:find $gpstext "\n" $longstart]; :local latstart [:find $gpstext "latitude" -1]; :local latend [:find $gpstext "\n" $latstart]; :local validstart [:find $gpstext "valid" -1]; :local validend [:find $gpstext "\n" $validstart]; :global longitude [:pick $gpstext ($longstart + 12) $longend]; :local degreestart [:find $longitude " " -1]; :local minutestart [:find $longitude " " $degreestart]; :local secondstart [:find $longitude "'" $minutestart]; :local secondend [:find $longitude "'" $secondstart]; :local longdegree; :local longdegreelink; :if ([:pick $longitude 0 1] = "W") do={ :set longdegree "-"; :set longdegreelink "W"; } else={ :set longdegree "+"; :set longdegreelink "E"; }; :set longdegree ($longdegree . [:pick $longitude 2 $minutestart]); :set longdegreelink ($longdegreelink . [:pick $longitude 2 $minutestart]); :local longmin [:pick $longitude ($minutestart + 1) $secondstart]; :local longsec [:pick $longitude ($secondstart + 2) $secondend]; :local longfract ((([:tonum $longmin] * 6000) + ([:tonum $longsec] * 100)) / 36); :global newlong ($longdegree . "." . $longfract); :global newlonglink ($longdegreelink . "." . $longfract); :global latitude [:pick $gpstext (latstart + 11) $latend]; :set degreestart [:find $latitude " " -1]; :set minutestart [:find $latitude " " $degreestart]; :set secondstart [:find $latitude "'" $minutestart]; :set secondend [:find $latitude "'" $secondstart]; :local latdegree; :local latdegreelink; :if ([:pick $latitude 0 1] = "N") do={ :set latdegree "+"; :set latdegreelink "N"; } else={ :set latdegree "-"; :set latdegreelink "S"; }; :set latdegree ($latdegree . [:pick $latitude 2 $minutestart]); :set latdegreelink ($latdegreelink . [:pick $latitude 2 $minutestart]); :local latmin [:pick $latitude ($minutestart + 1) $secondstart]; :local latsec [:pick $latitude ($secondstart + 2) $secondend]; :local latfract ((([:tonum $latmin] * 6000) + ([:tonum $latsec] * 100)) / 36); :global newlat ($latdegree . "." . $latfract); :global newlatlink ($latdegreelink . "." . $latfract); :global coordinates ($newlong . "," . $newlat); :global linkout "http://maps.google.com?q=$newlonglink$newlatlink"; :global kmlout "<?xml version=\"1.0\" encoding=\"UTF-8\"?> <kml xmlns=\"http://www.opengis.net/kml/2.2\"> <Placemark> <name>My router</name> <description>My router's location</description> <Point> <coordinates>$coordinates</coordinates> </Point> </Placemark> </kml> "; :global oldpos; :if ($oldpos != $coordinates) do={ /file set [/file find name=gps.kml] contents=$kmlout /tool e-mail send to=me@mydomain.com subject="Router move" body="Move to $linkout" file=gps.kml :set oldpos $coordinates; };