readtrackfromurl <-
function(tdat, pfadu = "", pfad = "")
{
cat(getURI(file.path(pfadu, tdat)), file=file.path(pfad, tdat))
read.trackdata(file.path(pfad, tdat))
}