main.lua.svn-base

嵌入式无线路由系统openwrt的web配置工具

#!/usr/bin/lua
-- Copyright (C) 2008 OpenRB.com
require('fslib')

path = '/www/scripts/Languages/'
file = '/www/scripts/Lang.js'

data = {
  values = {
    lang = 'English'
  },
  langs = {},
  params = {}
}

-- get list of available languages
files = readlines('ls -1 ' .. path, 0, true)

for _, name in ipairs(files) do
  name = name:gsub('.js', '')
  table.insert(data.langs, name)
end

-- get current language from symlink
link = proc('ls -l ' .. file .. ' 2>/dev/null', true)

if (link) then
  _, spos = link:find(path, 1, true)


  if (spos ~= nil) then
    epos, _ = link:find('.js', spos, true)
    data.values.lang = link:sub(spos + 1, epos - 1)
  end
end

io.write(json.encode(data))