1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
--[[
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 <steven@midlink.org>
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.sys")
require("luci.util")
ipkg = "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.sys.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
|
