extramodules.lua.svn-base

来自「嵌入式无线路由系统openwrt的web配置工具」· SVN-BASE 代码 · 共 46 行

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

-- get list of installed packages and convert to table
f = io.popen('opkg list_installed')
installed = {}

for line in f:lines() do
  pos = line:find(' - ')
  
  -- skip lines that don't have correct format
  if (pos ~= nil) then
    pkg = line:sub(0, pos - 1)
    installed[ pkg ] = true
  end
end

f:close()

-- get available busybox modules
f = io.popen('busybox')
lines = f:read('*all')
f:close()

_, pos = lines:find('Currently defined functions:', 1, true)
lines = lines:sub(pos + 1)
lines = lines:gsub('%s', '') -- cleanup

f = true
while f do
  pos = lines:find(',', 1, true)
  if pos then
    cmd = lines:sub(1, pos - 1)
    lines = lines:sub(pos + 1)
  else
    cmd = lines
    f = false
  end

  installed[ 'busybox_' .. cmd ] = true
end

-- return array of installed modules
io.write(json.encode(installed))