4c2716a383435f88185f8b9ccc38e9accc9ef6de
[project/luci.git] / libs / ipkg / 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.util")
30 require("luci.fs")
31
32 ipkg = luci.fs.access("/bin/opkg") and "opkg" or "ipkg"
33
34 -- Returns repository information
35 function info(pkg)
36 return _lookup("info", pkg)
37 end
38
39 -- Returns a table with status information
40 function status(pkg)
41 return _lookup("status", pkg)
42 end
43
44 -- Installs packages
45 function install(...)
46 return _action("install", ...)
47 end
48
49 -- Returns whether a package is installed
50 function installed(pkg, ...)
51 local p = status(...)[pkg]
52 return (p and p.Status and p.Status.installed)
53 end
54
55 -- Removes packages
56 function remove(...)
57 return _action("remove", ...)
58 end
59
60 -- Updates package lists
61 function update()
62 return _action("update")
63 end
64
65 -- Upgrades installed packages
66 function upgrade()
67 return _action("upgrade")
68 end
69
70
71 -- Internal action function
72 function _action(cmd, ...)
73 local pkg = ""
74 arg.n = nil
75 for k, v in pairs(arg) do
76 pkg = pkg .. " '" .. v:gsub("'", "") .. "'"
77 end
78
79 local c = ipkg.." "..cmd.." "..pkg.." >/dev/null 2>&1"
80 local r = os.execute(c)
81 return (r == 0), r
82 end
83
84 -- Internal lookup function
85 function _lookup(act, pkg)
86 local cmd = ipkg .. " " .. act
87 if pkg then
88 cmd = cmd .. " '" .. pkg:gsub("'", "") .. "'"
89 end
90
91 return _parselist(luci.util.exec(cmd .. " 2>/dev/null"))
92 end
93
94 -- Internal parser function
95 function _parselist(rawdata)
96 if type(rawdata) ~= "string" then
97 error("IPKG: Invalid rawdata given")
98 end
99
100 rawdata = luci.util.split(rawdata)
101 local data = {}
102 local c = {}
103 local l = nil
104
105 for k, line in pairs(rawdata) do
106 if line:sub(1, 1) ~= " " then
107 local split = luci.util.split(line, ":", 1)
108 local key = nil
109 local val = nil
110
111 if split[1] then
112 key = luci.util.trim(split[1])
113 end
114
115 if split[2] then
116 val = luci.util.trim(split[2])
117 end
118
119 if key and val then
120 if key == "Package" then
121 c = {Package = val}
122 data[val] = c
123 elseif key == "Status" then
124 c.Status = {}
125 for i, j in pairs(luci.util.split(val, " ")) do
126 c.Status[j] = true
127 end
128 else
129 c[key] = val
130 end
131 l = key
132 end
133 else
134 -- Multi-line field
135 c[l] = c[l] .. "\n" .. line:sub(2)
136 end
137 end
138
139 return data
140 end