libs/ipkg/luasrc/model/ipkg.lua

   1 --[[
   2 LuCI - Lua Configuration Interface
   3
   4 (c) 2008 Jo-Philipp Wich <xm@leipzig.freifunk.net>
   5 (c) 2008 Steven Barth <steven@midlink.org>
   6
   7 Licensed under the Apache License, Version 2.0 (the "License");
   8 you may not use this file except in compliance with the License.
   9 You may obtain a copy of the License at
  10
  11 http://www.apache.org/licenses/LICENSE-2.0
  12
  13 $Id$
  14 ]]--
  15
  16 local os   = require "os"
  17 local io   = require "io"
  18 local util = require "luci.util"
  19
  20 local type  = type
  21 local pairs = pairs
  22 local error = error
  23
  24 local ipkg = "opkg -force-defaults"
  25
  26 --- LuCI IPKG/OPKG call abstraction library
  27 module "luci.model.ipkg"
  28
  29
  30 -- Internal action function
  31 local function _action(cmd, ...)
  32         local pkg = ""
  33         arg.n = nil
  34         for k, v in pairs(arg) do
  35                 pkg = pkg .. " '" .. v:gsub("'", "") .. "'"
  36         end
  37
  38         local c = ipkg.." "..cmd.." "..pkg.." >/dev/null 2>&1"
  39         local r = os.execute(c)
  40         return (r == 0), r
  41 end
  42
  43 -- Internal parser function
  44 local function _parselist(rawdata)
  45         if type(rawdata) ~= "function" then
  46                 error("IPKG: Invalid rawdata given")
  47         end
  48
  49         local data = {}
  50         local c = {}
  51         local l = nil
  52
  53         for line in rawdata do
  54                 if line:sub(1, 1) ~= " " then
  55                         local key, val = line:match("(.-): ?(.*)%s*")
  56
  57                         if key and val then
  58                                 if key == "Package" then
  59                                         c = {Package = val}
  60                                         data[val] = c
  61                                 elseif key == "Status" then
  62                                         c.Status = {}
  63                                         for j in val:gmatch("([^ ]+)") do
  64                                                 c.Status[j] = true
  65                                         end
  66                                 else
  67                                         c[key] = val
  68                                 end
  69                                 l = key
  70                         end
  71                 else
  72                         -- Multi-line field
  73                         c[l] = c[l] .. "\n" .. line
  74                 end
  75         end
  76
  77         return data
  78 end
  79
  80 -- Internal lookup function
  81 local function _lookup(act, pkg)
  82         local cmd = ipkg .. " " .. act
  83         if pkg then
  84                 cmd = cmd .. " '" .. pkg:gsub("'", "") .. "'"
  85         end
  86
  87         -- IPKG sometimes kills the whole machine because it sucks
  88         -- Therefore we have to use a sucky approach too and use
  89         -- tmpfiles instead of directly reading the output
  90         local tmpfile = os.tmpname()
  91         os.execute(cmd .. (" >%s 2>/dev/null" % tmpfile))
  92
  93         local data = _parselist(io.lines(tmpfile))
  94         os.remove(tmpfile)
  95         return data
  96 end
  97
  98
  99 --- Return information about installed and available packages.
 100 -- @param pkg Limit output to a (set of) packages
 101 -- @return Table containing package information
 102 function info(pkg)
 103         return _lookup("info", pkg)
 104 end
 105
 106 --- Return the package status of one or more packages.
 107 -- @param pkg Limit output to a (set of) packages
 108 -- @return Table containing package status information
 109 function status(pkg)
 110         return _lookup("status", pkg)
 111 end
 112
 113 --- Install one or more packages.
 114 -- @param ... List of packages to install
 115 -- @return Boolean indicating the status of the action
 116 -- @return IPKG return code
 117 function install(...)
 118         return _action("install", ...)
 119 end
 120
 121 --- Determine whether a given package is installed.
 122 -- @param pkg Package
 123 -- @return Boolean
 124 function installed(pkg)
 125         local p = status(pkg)[pkg]
 126         return (p and p.Status and p.Status.installed)
 127 end
 128
 129 --- Remove one or more packages.
 130 -- @param ... List of packages to install
 131 -- @return Boolean indicating the status of the action
 132 -- @return IPKG return code
 133 function remove(...)
 134         return _action("remove", ...)
 135 end
 136
 137 --- Update package lists.
 138 -- @return Boolean indicating the status of the action
 139 -- @return IPKG return code
 140 function update()
 141         return _action("update")
 142 end
 143
 144 --- Upgrades all installed packages.
 145 -- @return Boolean indicating the status of the action
 146 -- @return IPKG return code
 147 function upgrade()
 148         return _action("upgrade")
 149 end