--[[ LuCI - IPKG wrapper library Description: Wrapper for the ipkg Package manager Any return value of false or nil can be interpreted as an error FileId: $Id$ License: Copyright 2008 Steven Barth Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0 Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License. ]]-- module("luci.model.ipkg", package.seeall) require("luci.util") require("luci.fs") ipkg = luci.fs.access("/bin/opkg") and "opkg" or "ipkg" -- Returns repository information function info(pkg) return _lookup("info", pkg) end -- Returns a table with status information function status(pkg) return _lookup("status", pkg) end -- Installs packages function install(...) return _action("install", ...) end -- Returns whether a package is installed function installed(pkg, ...) local p = status(...)[pkg] return (p and p.Status and p.Status.installed) end -- Removes packages function remove(...) return _action("remove", ...) end -- Updates package lists function update() return _action("update") end -- Upgrades installed packages function upgrade() return _action("upgrade") end -- Internal action function function _action(cmd, ...) local pkg = "" arg.n = nil for k, v in pairs(arg) do pkg = pkg .. " '" .. v:gsub("'", "") .. "'" end local c = ipkg.." "..cmd.." "..pkg.." >/dev/null 2>&1" local r = os.execute(c) return (r == 0), r end -- Internal lookup function function _lookup(act, pkg) local cmd = ipkg .. " " .. act if pkg then cmd = cmd .. " '" .. pkg:gsub("'", "") .. "'" end return _parselist(luci.util.exec(cmd .. " 2>/dev/null")) end -- Internal parser function function _parselist(rawdata) if type(rawdata) ~= "string" then error("IPKG: Invalid rawdata given") end rawdata = luci.util.split(rawdata) local data = {} local c = {} local l = nil for k, line in pairs(rawdata) do if line:sub(1, 1) ~= " " then local split = luci.util.split(line, ":", 1) local key = nil local val = nil if split[1] then key = luci.util.trim(split[1]) end if split[2] then val = luci.util.trim(split[2]) end if key and val then if key == "Package" then c = {Package = val} data[val] = c elseif key == "Status" then c.Status = {} for i, j in pairs(luci.util.split(val, " ")) do c.Status[j] = true end else c[key] = val end l = key end else -- Multi-line field c[l] = c[l] .. "\n" .. line:sub(2) end end return data end