Reenable working Freifunk modules
[project/luci.git] / libs / core / luasrc / model / ipkg.lua
1 --[[
2 LuCI - IPKG wrapper library
3
4 Description:
5 Wrapper for the ipkg Package manager
6
7 Any return value of false or nil can be interpreted as an error
8
9 FileId:
10 $Id$
11
12 License:
13 Copyright 2008 Steven Barth <steven@midlink.org>
14
15 Licensed under the Apache License, Version 2.0 (the "License");
16 you may not use this file except in compliance with the License.
17 You may obtain a copy of the License at
18
19 http://www.apache.org/licenses/LICENSE-2.0
20
21 Unless required by applicable law or agreed to in writing, software
22 distributed under the License is distributed on an "AS IS" BASIS,
23 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
24 See the License for the specific language governing permissions and
25 limitations under the License.
26
27 ]]--
28 module("luci.model.ipkg", package.seeall)
29 require("luci.sys")
30 require("luci.util")
31 require("luci.fs")
32
33 ipkg = luci.fs.access("/bin/opkg") and "opkg" or "ipkg"
34
35 -- Returns repository information
36 function info(pkg)
37 return _lookup("info", pkg)
38 end
39
40 -- Returns a table with status information
41 function status(pkg)
42 return _lookup("status", pkg)
43 end
44
45 -- Installs packages
46 function install(...)
47 return _action("install", ...)
48 end
49
50 -- Returns whether a package is installed
51 function installed(pkg, ...)
52 local p = status(...)[pkg]
53 return (p and p.Status and p.Status.installed)
54 end
55
56 -- Removes packages
57 function remove(...)
58 return _action("remove", ...)
59 end
60
61 -- Updates package lists
62 function update()
63 return _action("update")
64 end
65
66 -- Upgrades installed packages
67 function upgrade()
68 return _action("upgrade")
69 end
70
71
72 -- Internal action function
73 function _action(cmd, ...)
74 local pkg = ""
75 arg.n = nil
76 for k, v in pairs(arg) do
77 pkg = pkg .. " '" .. v:gsub("'", "") .. "'"
78 end
79
80 local c = ipkg.." "..cmd.." "..pkg.." >/dev/null 2>&1"
81 local r = os.execute(c)
82 return (r == 0), r
83 end
84
85 -- Internal lookup function
86 function _lookup(act, pkg)
87 local cmd = ipkg .. " " .. act
88 if pkg then
89 cmd = cmd .. " '" .. pkg:gsub("'", "") .. "'"
90 end
91
92 return _parselist(luci.sys.exec(cmd .. " 2>/dev/null"))
93 end
94
95 -- Internal parser function
96 function _parselist(rawdata)
97 if type(rawdata) ~= "string" then
98 error("IPKG: Invalid rawdata given")
99 end
100
101 rawdata = luci.util.split(rawdata)
102 local data = {}
103 local c = {}
104 local l = nil
105
106 for k, line in pairs(rawdata) do
107 if line:sub(1, 1) ~= " " then
108 local split = luci.util.split(line, ":", 1)
109 local key = nil
110 local val = nil
111
112 if split[1] then
113 key = luci.util.trim(split[1])
114 end
115
116 if split[2] then
117 val = luci.util.trim(split[2])
118 end
119
120 if key and val then
121 if key == "Package" then
122 c = {Package = val}
123 data[val] = c
124 elseif key == "Status" then
125 c.Status = {}
126 for i, j in pairs(luci.util.split(val, " ")) do
127 c.Status[j] = true
128 end
129 else
130 c[key] = val
131 end
132 l = key
133 end
134 else
135 -- Multi-line field
136 c[l] = c[l] .. "\n" .. line:sub(2)
137 end
138 end
139
140 return data
141 end