rev |
line source |
pascal@627
|
1 #!/bin/sh
|
pascal@627
|
2 #
|
al@633
|
3 # TazPkg CGI interface - Manage packages via a browser
|
pascal@627
|
4 #
|
pascal@627
|
5 # This CGI interface extensively uses tazpkg to manage packages and have
|
pascal@627
|
6 # its own code for some tasks. Please KISS, it is important and keep speed
|
pascal@627
|
7 # in mind. Thanks, Pankso.
|
pascal@627
|
8 #
|
al@707
|
9 # (C) 2011-2014 SliTaz GNU/Linux - BSD License
|
pascal@627
|
10 #
|
pascal@627
|
11
|
al@707
|
12 . /lib/libtaz.sh
|
pascal@627
|
13 . lib/libtazpanel
|
pascal@627
|
14 get_config
|
pascal@627
|
15 header
|
pascal@627
|
16
|
al@707
|
17
|
pascal@627
|
18 # xHTML 5 header with special side bar for categories.
|
al@707
|
19 TITLE=$(TEXTDOMAIN='tazpkg'; _ 'TazPanel - Packages')
|
pascal@627
|
20 xhtml_header | sed 's/id="content"/id="content-sidebar"/'
|
pascal@627
|
21
|
al@633
|
22 export TEXTDOMAIN='tazpkg'
|
psychomaniak@714
|
23 PKGS_DB="$LOCALSTATE"
|
al@707
|
24
|
pascal@627
|
25 pkg_info_link()
|
pascal@627
|
26 {
|
al@718
|
27 echo "<a class=\"$2\" href=\"?info=${1//+/%2B}\">$1</a>" | sed 's| class=""||'
|
pascal@627
|
28 }
|
pascal@627
|
29
|
al@707
|
30
|
al@718
|
31 # Display localized short description
|
al@718
|
32
|
pascal@627
|
33 i18n_desc() {
|
al@717
|
34 for L in $LANG ${LANG%%_*}; do
|
al@717
|
35 if [ -e "$PKGS_DB/packages-desc.$L" ]; then
|
al@718
|
36 LOCDESC=$(awk -F$'\t' -vp=$1 '{if ($1 == p) print $2}' $PKGS_DB/packages-desc.$L)
|
al@717
|
37 if [ -n "$LOCDESC" ]; then
|
al@717
|
38 SHORT_DESC="$LOCDESC"
|
al@717
|
39 break
|
al@717
|
40 fi
|
al@717
|
41 fi
|
al@717
|
42 done
|
pascal@627
|
43 }
|
pascal@627
|
44
|
al@707
|
45
|
pascal@627
|
46 # We need packages information for list and search
|
al@707
|
47
|
pascal@627
|
48 parse_packages_desc() {
|
pascal@627
|
49 IFS="|"
|
pascal@627
|
50 cut -f 1,2,3,5 -d "|" | while read PACKAGE VERSION SHORT_DESC WEB_SITE
|
pascal@627
|
51 do
|
al@718
|
52 class=pkg; [ -d $INSTALLED/${PACKAGE% } ] && class=pkgi
|
al@718
|
53 i18n_desc $PACKAGE
|
pascal@627
|
54 cat << EOT
|
pascal@627
|
55 <tr>
|
al@719
|
56 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>
|
pascal@627
|
57 <td>$VERSION</td>
|
al@719
|
58 <td>$SHORT_DESC</td>
|
al@718
|
59 <td><a class="w" href="$WEB_SITE"></a></td>
|
al@718
|
60 </tr>
|
al@718
|
61 EOT
|
al@718
|
62 done
|
al@718
|
63 unset IFS
|
al@718
|
64 }
|
al@718
|
65
|
al@718
|
66
|
al@718
|
67 parse_packages_info() {
|
al@718
|
68 IFS=$'\t'
|
al@718
|
69 while read PACKAGE VERSION CATEGORY SHORT_DESC WEB_SITE TAGS SIZES DEPENDS; do
|
al@718
|
70 class=pkg; [ -d $INSTALLED/${PACKAGE% } ] && class=pkgi
|
al@718
|
71 i18n_desc $PACKAGE
|
al@718
|
72 cat << EOT
|
al@718
|
73 <tr>
|
al@719
|
74 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>
|
al@718
|
75 <td>$VERSION</td>
|
al@719
|
76 <td>$SHORT_DESC</td>
|
al@718
|
77 <td><a class="w" href="$WEB_SITE"></a></td>
|
pascal@627
|
78 </tr>
|
pascal@627
|
79 EOT
|
pascal@627
|
80 done
|
pascal@627
|
81 unset IFS
|
pascal@627
|
82 }
|
pascal@627
|
83
|
al@707
|
84
|
pascal@627
|
85 # Display a full summary of packages stats
|
al@707
|
86
|
pascal@627
|
87 packages_summary() {
|
pascal@627
|
88 cat << EOT
|
pascal@627
|
89 <table class="zebra outbox">
|
pascal@627
|
90 <tbody>
|
al@707
|
91 <tr><td>$(_ 'Last recharge:')</td>
|
pascal@627
|
92 EOT
|
al@700
|
93 stat=$(stat -c %y $PKGS_DB/packages.list | \
|
pascal@627
|
94 sed 's/\(:..\):.*/\1/' | awk '{print $1}')
|
al@700
|
95 mtime=$(find $PKGS_DB/packages.list -mtime +10)
|
pascal@627
|
96 echo -n "<td>$stat "
|
pascal@627
|
97 if [ "$mtime" ]; then
|
al@707
|
98 _ '(Older than 10 days)'
|
pascal@627
|
99 else
|
al@707
|
100 _ '(Not older than 10 days)'
|
pascal@627
|
101 fi
|
pascal@627
|
102 cat << EOT
|
pascal@627
|
103 </td></tr>
|
al@707
|
104 <tr><td>$(_ 'Installed packages:')</td>
|
pascal@627
|
105 <td>$(ls $INSTALLED | wc -l)</td></tr>
|
al@707
|
106 <tr><td>$(_ 'Mirrored packages:')</td>
|
al@700
|
107 <td>$(cat $PKGS_DB/packages.list | wc -l)</td></tr>
|
al@707
|
108 <tr><td>$(_ 'Upgradeable packages:')</td>
|
al@700
|
109 <td>$(cat $PKGS_DB/packages.up | wc -l)</td></tr>
|
al@707
|
110 <tr><td>$(_ 'Installed files:')</td>
|
pascal@627
|
111 <td>$(cat $INSTALLED/*/files.list | wc -l)</td></tr>
|
al@707
|
112 <tr><td>$(_ 'Blocked packages:')</td>
|
al@700
|
113 <td>$(cat $PKGS_DB/blocked-packages.list | wc -l)</td></tr>
|
pascal@627
|
114 </tbody>
|
pascal@627
|
115 </table>
|
pascal@627
|
116 EOT
|
pascal@627
|
117 }
|
pascal@627
|
118
|
al@707
|
119
|
pascal@627
|
120 # Parse mirrors list to be able to have an icon and remove link
|
al@707
|
121
|
pascal@627
|
122 list_mirrors() {
|
pascal@627
|
123 while read line
|
pascal@627
|
124 do
|
pascal@627
|
125 cat << EOT
|
pascal@627
|
126 <li>
|
pascal@627
|
127 <a href="$SCRIPT_NAME?admin=rm-mirror=$line&file=$(httpd -e $1)">
|
al@707
|
128 <img src="$IMAGES/clear.png" title="$(_ 'Delete')" />
|
pascal@627
|
129 </a>
|
pascal@627
|
130 <a href="$SCRIPT_NAME?admin=select-mirror&mirror=$line">
|
al@707
|
131 <img src="$IMAGES/start.png" title="$(_ 'Use as default')" />
|
pascal@627
|
132 </a>
|
pascal@627
|
133 <a href="$line">$line</a>
|
pascal@627
|
134 </li>
|
pascal@627
|
135 EOT
|
pascal@627
|
136 done < $1
|
pascal@627
|
137 }
|
pascal@627
|
138
|
al@707
|
139
|
pascal@627
|
140 # Parse repositories list to be able to have an icon and remove link
|
al@707
|
141
|
pascal@627
|
142 list_repos() {
|
al@700
|
143 ls $PKGS_DB/undigest 2> /dev/null | while read repo ; do
|
pascal@627
|
144 cat <<EOT
|
pascal@627
|
145 <li><a href="$SCRIPT_NAME?admin=rm-repo=$repo">
|
al@707
|
146 <img src="$IMAGES/clear.png">$repo</a></li>
|
pascal@627
|
147 EOT
|
pascal@627
|
148 done
|
pascal@627
|
149 }
|
pascal@627
|
150
|
al@707
|
151
|
al@707
|
152
|
pascal@627
|
153 #
|
pascal@627
|
154 # xHTML functions
|
pascal@627
|
155 #
|
pascal@627
|
156
|
al@707
|
157
|
pascal@627
|
158 # ENTER will search but user may search for a button, so put one.
|
al@707
|
159
|
pascal@627
|
160 search_form() {
|
pascal@627
|
161 [ -n "$repo" ] || repo="$(GET repo)"
|
pascal@627
|
162 [ -n "$repo" ] || repo=Any
|
pascal@627
|
163 cat << EOT
|
pascal@627
|
164 <div class="search">
|
pascal@627
|
165 <form method="get" action="$SCRIPT_NAME">
|
pascal@627
|
166 <p>
|
pascal@627
|
167 <input type="text" name="search" size="20">
|
pascal@627
|
168 <input type="submit" value="$(gettext 'Search')">
|
pascal@627
|
169 <input class="radius" type="submit" name="files"
|
al@707
|
170 value="$(_n 'Files')">
|
pascal@627
|
171 <input type="hidden" name="repo" value="$repo" />
|
pascal@627
|
172 </p>
|
pascal@627
|
173 </form>
|
pascal@627
|
174 </div>
|
pascal@627
|
175 EOT
|
pascal@627
|
176 }
|
pascal@627
|
177
|
al@707
|
178
|
pascal@627
|
179 table_head() {
|
pascal@627
|
180 cat << EOT
|
pascal@627
|
181 <thead>
|
pascal@627
|
182 <tr>
|
al@707
|
183 <td>$(_ 'Name')</td>
|
al@707
|
184 <td>$(_ 'Version')</td>
|
al@707
|
185 <td>$(_ 'Description')</td>
|
al@707
|
186 <td>$(_ 'Web')</td>
|
pascal@627
|
187 </tr>
|
pascal@627
|
188 </thead>
|
pascal@627
|
189 EOT
|
pascal@627
|
190 }
|
pascal@627
|
191
|
al@707
|
192
|
pascal@627
|
193 sidebar() {
|
pascal@627
|
194 [ -n "$repo" ] || repo=Public
|
pascal@627
|
195 cat << EOT
|
pascal@627
|
196 <div id="sidebar">
|
al@707
|
197 <h4>$(_ 'Categories')</h4>
|
al@707
|
198 <a class="active_base-system" href="$SCRIPT_NAME?cat=base-system&repo=$repo" >$(_ 'base-system')</a>
|
al@707
|
199 <a class="active_x-window" href="$SCRIPT_NAME?cat=x-window&repo=$repo" >$(_ 'x-window')</a>
|
al@707
|
200 <a class="active_utilities" href="$SCRIPT_NAME?cat=utilities&repo=$repo" >$(_ 'utilities')</a>
|
al@707
|
201 <a class="active_network" href="$SCRIPT_NAME?cat=network&repo=$repo" >$(_ 'network')</a>
|
al@707
|
202 <a class="active_games" href="$SCRIPT_NAME?cat=games&repo=$repo" >$(_ 'games')</a>
|
al@707
|
203 <a class="active_graphics" href="$SCRIPT_NAME?cat=graphics&repo=$repo" >$(_ 'graphics')</a>
|
al@707
|
204 <a class="active_office" href="$SCRIPT_NAME?cat=office&repo=$repo" >$(_ 'office')</a>
|
al@707
|
205 <a class="active_multimedia" href="$SCRIPT_NAME?cat=multimedia&repo=$repo" >$(_ 'multimedia')</a>
|
al@707
|
206 <a class="active_development" href="$SCRIPT_NAME?cat=development&repo=$repo" >$(_ 'development')</a>
|
al@707
|
207 <a class="active_system-tools" href="$SCRIPT_NAME?cat=system-tools&repo=$repo">$(_ 'system-tools')</a>
|
al@707
|
208 <a class="active_security" href="$SCRIPT_NAME?cat=security&repo=$repo" >$(_ 'security')</a>
|
al@707
|
209 <a class="active_misc" href="$SCRIPT_NAME?cat=misc&repo=$repo" >$(_ 'misc')</a>
|
al@707
|
210 <a class="active_meta" href="$SCRIPT_NAME?cat=meta&repo=$repo" >$(_ 'meta')</a>
|
al@707
|
211 <a class="active_non-free" href="$SCRIPT_NAME?cat=non-free&repo=$repo" >$(_ 'non-free')</a>
|
al@707
|
212 <a class="active_all" href="$SCRIPT_NAME?cat=all&repo=$repo" >$(_ 'all')</a>
|
al@707
|
213 <a class="active_extra" href="$SCRIPT_NAME?cat=extra&repo=$repo" >$(_ 'extra')</a>
|
pascal@627
|
214 EOT
|
pascal@627
|
215
|
al@700
|
216 if [ -d $PKGS_DB/undigest ]; then
|
pascal@627
|
217 [ -n "$category" ] || category="base-system"
|
pascal@627
|
218 cat << EOT
|
al@707
|
219 <h4>$(_ 'Repositories')</h4>
|
al@707
|
220 <a class="repo_Public" href="$SCRIPT_NAME?repo=Public&cat=$category">$(_ 'Public')</a>
|
pascal@627
|
221 EOT
|
al@707
|
222
|
al@700
|
223 for i in $(ls $PKGS_DB/undigest); do
|
pascal@627
|
224 cat << EOT
|
pascal@627
|
225 <a class="repo_$i" href="$SCRIPT_NAME?repo=$i&cat=$category">$i</a>
|
pascal@627
|
226 EOT
|
pascal@627
|
227 done
|
al@707
|
228
|
pascal@627
|
229 cat << EOT
|
al@707
|
230 <a class="repo_Any" href="$SCRIPT_NAME?repo=Any&cat=$category">$(_ 'Any')</a>
|
pascal@627
|
231 EOT
|
pascal@627
|
232 fi
|
pascal@627
|
233 echo "</div>"
|
pascal@627
|
234 }
|
pascal@627
|
235
|
al@707
|
236
|
pascal@627
|
237 repo_list() {
|
al@700
|
238 if [ -n "$(ls $PKGS_DB/undigest/ 2> /dev/null)" ]; then
|
pascal@627
|
239 case "$repo" in
|
al@707
|
240 Public)
|
al@707
|
241 ;;
|
al@707
|
242 ""|Any)
|
al@707
|
243 for i in $PKGS_DB/undigest/* ; do
|
al@707
|
244 [ -d "$i" ] && echo "$i$1"
|
al@707
|
245 done ;;
|
al@707
|
246 *)
|
al@707
|
247 echo "$PKGS_DB/undigest/$repo$1"
|
al@707
|
248 return ;;
|
pascal@627
|
249 esac
|
pascal@627
|
250 fi
|
al@700
|
251 echo "$PKGS_DB$1"
|
pascal@627
|
252 }
|
pascal@627
|
253
|
al@707
|
254
|
pascal@627
|
255 repo_name() {
|
pascal@627
|
256 case "$1" in
|
al@707
|
257 $PKGS_DB)
|
al@707
|
258 echo "Public" ;;
|
al@707
|
259 $PKGS_DB/undigest/*)
|
al@707
|
260 echo ${1#$PKGS_DB/undigest/} ;;
|
pascal@627
|
261 esac
|
pascal@627
|
262 }
|
pascal@627
|
263
|
al@707
|
264
|
al@707
|
265
|
pascal@627
|
266 #
|
pascal@627
|
267 # Commands
|
pascal@627
|
268 #
|
pascal@627
|
269
|
al@707
|
270
|
pascal@627
|
271 case " $(GET) " in
|
pascal@627
|
272 *\ list\ *)
|
pascal@627
|
273 #
|
pascal@627
|
274 # List installed packages. This is the default because parsing
|
pascal@627
|
275 # the full packages.desc can be long and take up some resources
|
pascal@627
|
276 #
|
pascal@627
|
277 cd $INSTALLED
|
pascal@627
|
278 search_form
|
pascal@627
|
279 sidebar
|
al@707
|
280 LOADING_MSG="$(_ 'Listing packages...')"
|
pascal@627
|
281 loading_msg
|
pascal@627
|
282 cat << EOT
|
al@707
|
283 <h2>$(_ 'My packages')</h2>
|
pascal@627
|
284 <form method='get' action='$SCRIPT_NAME'>
|
pascal@627
|
285 <input type="hidden" name="do" value="Remove" />
|
pascal@627
|
286 <div id="actions">
|
pascal@627
|
287 <div class="float-left">
|
al@707
|
288 $(_ 'Selection:')
|
al@707
|
289 <input type="submit" value="$(_ 'Remove')" />
|
pascal@627
|
290 </div>
|
pascal@627
|
291 <div class="float-right">
|
pascal@627
|
292 <a class="button" href="$SCRIPT_NAME?recharge">
|
al@707
|
293 <img src="$IMAGES/recharge.png" />$(_ 'Recharge list')</a>
|
pascal@627
|
294 <a class="button" href='$SCRIPT_NAME?up'>
|
al@707
|
295 <img src="$IMAGES/update.png" />$(_ 'Check upgrades')</a>
|
pascal@627
|
296 </div>
|
pascal@627
|
297 </div>
|
al@718
|
298
|
al@719
|
299 <table class="zebra outbox pkglist">
|
pascal@627
|
300 $(table_head)
|
pascal@627
|
301 <tbody>
|
pascal@627
|
302 EOT
|
al@707
|
303 for pkg in *; do
|
pascal@627
|
304 . $pkg/receipt
|
pascal@627
|
305 echo '<tr>'
|
pascal@627
|
306 # Use default tazpkg icon since all packages displayed are
|
pascal@627
|
307 # installed
|
al@718
|
308 blocked=
|
al@718
|
309 grep -qs "^$pkg$" $PKGS_DB/blocked-packages.list && blocked="b"
|
al@718
|
310 i18n_desc $pkg
|
pascal@627
|
311 cat << EOT
|
al@719
|
312 <td><input type="checkbox" name="pkg" value="$pkg" />$(pkg_info_link $pkg pkgi$blocked)</td>
|
pascal@627
|
313 <td>$VERSION</td>
|
al@719
|
314 <td>$SHORT_DESC</td>
|
al@718
|
315 <td><a class="w" href="$WEB_SITE"></a></td>
|
pascal@627
|
316 </tr>
|
pascal@627
|
317 EOT
|
pascal@627
|
318 done
|
pascal@627
|
319 cat << EOT
|
pascal@627
|
320 </tbody>
|
pascal@627
|
321 </table>
|
pascal@627
|
322 </form>
|
pascal@627
|
323 EOT
|
pascal@627
|
324 ;;
|
pascal@627
|
325
|
al@707
|
326
|
pascal@627
|
327 *\ linkable\ *)
|
pascal@627
|
328 #
|
pascal@627
|
329 # List linkable packages.
|
pascal@627
|
330 #
|
pascal@627
|
331 cd $INSTALLED
|
pascal@627
|
332 search_form
|
pascal@627
|
333 sidebar
|
al@707
|
334 LOADING_MSG=$(_ 'Listing linkable packages...')
|
pascal@627
|
335 loading_msg
|
pascal@627
|
336 cat << EOT
|
al@707
|
337 <h2>$(_ 'Linkable packages')</h2>
|
pascal@627
|
338
|
pascal@627
|
339 <form method='get' action='$SCRIPT_NAME'>
|
pascal@627
|
340 <input type="hidden" name="do" value="Link" />
|
pascal@627
|
341 <div id="actions">
|
pascal@627
|
342 <div class="float-left">
|
al@707
|
343 $(_ 'Selection:')
|
al@707
|
344 <input type="submit" value="$(_ 'Link')" />
|
pascal@627
|
345 </div>
|
pascal@627
|
346 <div class="float-right">
|
pascal@627
|
347 <a class="button" href="$SCRIPT_NAME?recharge">
|
al@707
|
348 <img src="$IMAGES/recharge.png" />$(_ 'Recharge list')</a>
|
pascal@627
|
349 <a class="button" href="$SCRIPT_NAME?up">
|
al@707
|
350 <img src="$IMAGES/update.png" />$(_ 'Check upgrades')</a>
|
pascal@627
|
351 </div>
|
pascal@627
|
352 </div>
|
pascal@627
|
353 EOT
|
pascal@627
|
354 cat << EOT
|
al@719
|
355 <table class="zebra outbox pkglist">
|
pascal@627
|
356 $(table_head)
|
pascal@627
|
357 <tbody>
|
pascal@627
|
358 EOT
|
al@700
|
359 target=$(readlink $PKGS_DB/fslink)
|
al@707
|
360 for pkg in $(ls $target/$INSTALLED); do
|
pascal@627
|
361 [ -s $pkg/receipt ] && continue
|
pascal@627
|
362 . $target/$INSTALLED/$pkg/receipt
|
al@718
|
363 i18n_desc $pkg
|
pascal@627
|
364 cat << EOT
|
pascal@627
|
365 <tr>
|
al@719
|
366 <td><input type="checkbox" name="pkg" value="$pkg" />$(pkg_info_link $pkg pkg)</td>
|
pascal@627
|
367 <td>$VERSION</td>
|
al@719
|
368 <td>$SHORT_DESC</td>
|
al@718
|
369 <td><a class="w" href="$WEB_SITE"></a></td>
|
pascal@627
|
370 </tr>
|
pascal@627
|
371 EOT
|
pascal@627
|
372 done
|
pascal@627
|
373 cat << EOT
|
pascal@627
|
374 </tbody>
|
pascal@627
|
375 </table>
|
pascal@627
|
376 </form>
|
pascal@627
|
377 EOT
|
pascal@627
|
378 ;;
|
pascal@627
|
379
|
pascal@627
|
380
|
pascal@627
|
381 *\ cat\ *)
|
pascal@627
|
382 #
|
pascal@627
|
383 # List all available packages by category on mirror. Listing all
|
pascal@627
|
384 # packages is too resource intensive and not useful.
|
pascal@627
|
385 #
|
al@720
|
386 cd $PKGS_DB
|
pascal@627
|
387 repo=$(GET repo)
|
pascal@627
|
388 category=$(GET cat)
|
pascal@627
|
389 [ "$category" == "cat" ] && category="base-system"
|
al@718
|
390 #grep_category=$category
|
al@718
|
391 #[ "$grep_category" == "all" ] && grep_category="*"
|
pascal@627
|
392 search_form
|
pascal@627
|
393 sidebar | sed "s/active_$category/active/;s/repo_$repo/active/"
|
al@707
|
394 LOADING_MSG="$(_ 'Listing packages...')"
|
pascal@627
|
395 loading_msg
|
pascal@627
|
396 cat << EOT
|
al@707
|
397 <h2>$(_ 'Category: %s' $category)</h2>
|
pascal@627
|
398
|
pascal@627
|
399 <form method='get' action='$SCRIPT_NAME'>
|
pascal@627
|
400 <div id="actions">
|
pascal@627
|
401 <div class="float-left">
|
al@707
|
402 $(_ 'Selection:')
|
pascal@627
|
403 <input type="submit" name="do" value="Install" />
|
pascal@627
|
404 <input type="submit" name="do" value="Remove" />
|
pascal@627
|
405 <input type="hidden" name="repo" value="$repo" />
|
pascal@627
|
406 </div>
|
pascal@627
|
407 <div class="float-right">
|
pascal@627
|
408 <a class="button" href="$SCRIPT_NAME?recharge">
|
al@707
|
409 <img src="$IMAGES/recharge.png" />$(_ 'Recharge list')</a>
|
pascal@627
|
410 <a class="button" href="$SCRIPT_NAME?up">
|
al@707
|
411 <img src="$IMAGES/update.png" />$(_ 'Check upgrades')</a>
|
pascal@627
|
412 <a class="button" href='$SCRIPT_NAME?list'>
|
al@707
|
413 <img src="$IMAGES/tazpkg.png" />$(_ 'My packages')</a>
|
pascal@627
|
414 </div>
|
pascal@627
|
415 </div>
|
pascal@627
|
416 EOT
|
pascal@627
|
417 for i in $(repo_list ""); do
|
pascal@627
|
418 if [ "$repo" != "Public" ]; then
|
pascal@627
|
419 Repo_Name="$(repo_name $i)"
|
pascal@627
|
420 cat << EOT
|
al@707
|
421 <h3>$(_ 'Repository: %s' $Repo_Name)</h3>
|
pascal@627
|
422 EOT
|
pascal@627
|
423 fi
|
al@719
|
424 echo '<table class="zebra outbox pkglist">'
|
al@718
|
425 table_head
|
al@718
|
426 echo '<tbody>'
|
al@718
|
427
|
al@718
|
428 case $category in
|
al@718
|
429 extra)
|
al@718
|
430 sed 's|.*|& -- - -- http://mirror.slitaz.org/packages/get/& - - -|' \
|
al@718
|
431 $i/extra.list | parse_packages_info
|
al@718
|
432 ;;
|
al@718
|
433 all)
|
al@719
|
434 # test awk speed (sorry, no i18n_desc, no blocked now)
|
al@719
|
435 # http://tazpanel:82/pkgs.cgi?cat=all&repo=Any&awk
|
al@719
|
436 if [ $(GET awk) == "awk" ]; then
|
al@719
|
437 sort $i/packages.info $i/installed.info | \
|
al@719
|
438 awk -F$'\t' '
|
al@719
|
439 function outrow(pkg, cls, ver, dsc, web, pkge) {
|
al@719
|
440 pkge=pkg; gsub(/\+/, "%2B", pkge)
|
al@719
|
441 printf "<tr><td><input type=\"checkbox\" name=\"pkg\" value=\"%s\"><a class=\"%s\" href=\"?info=%s\">%s</a></td><td>%s</td><td>%s</td><td><a class=\"w\" href=\"%s\"></a></td></tr>", pkg, cls, pkge, pkg, ver, dsc, web }
|
al@719
|
442 {
|
al@719
|
443 if ($1==PKG) {
|
al@719
|
444 outrow($1, "pkgi", $2, $4, $5)
|
al@719
|
445 INS=$1
|
al@719
|
446 } else {
|
al@719
|
447 if (PKG!=INS) {
|
al@719
|
448 outrow(PKG, "pkg", VER, DSC, WEB)
|
al@719
|
449 }
|
al@719
|
450 }
|
al@719
|
451 PKG=$1; VER=$2; DSC=$4; WEB=$5
|
al@719
|
452 }'
|
al@719
|
453 else
|
al@719
|
454 # old slow method
|
al@718
|
455 parse_packages_info < $i/packages.info
|
al@719
|
456 fi
|
al@718
|
457 ;;
|
al@718
|
458 *)
|
al@720
|
459 {
|
al@720
|
460 for L in $LANG ${LANG%%_*}; do
|
al@720
|
461 if [ -e "$PKGS_DB/packages-desc.$L" ]; then
|
al@720
|
462 sed '/^#/d' $PKGS_DB/packages-desc.$L
|
al@720
|
463 break
|
al@720
|
464 fi
|
al@720
|
465 done
|
al@720
|
466
|
al@720
|
467 [ -e "$i/blocked-packages.list" ] && cat $i/blocked-packages.list
|
al@720
|
468
|
al@720
|
469 sed 's|.*|&\ti|' $i/installed.info
|
al@720
|
470
|
al@720
|
471 cat $i/packages.info
|
al@720
|
472 } | sort -t$'\t' -k1,1 | awk -F$'\t' -vc="$category" '
|
al@720
|
473 function outrow(pkg, ins, blk, ver, dsc, web, pkge) {
|
al@720
|
474 pkge=pkg; gsub(/\+/, "%2B", pkge)
|
al@720
|
475 printf "<tr><td><input type=\"checkbox\" name=\"pkg\" value=\"%s\"><a class=\"pkg%s%s\" href=\"?info=%s\">%s</a></td><td>%s</td><td>%s</td><td><a href=\"%s\"></a></td></tr>\n", pkg, ins, blk, pkge, pkg, ver, dsc, web }
|
al@720
|
476
|
al@720
|
477 {
|
al@720
|
478 if (PKG != "" && PKG != $1) {
|
al@720
|
479 if (CAT == c) {
|
al@720
|
480 if (1 in i) {
|
al@720
|
481 PKG = i[1]; VER = i[2]; DSC = i[4]; WEB = i[5];
|
al@720
|
482 } else if (1 in m) {
|
al@720
|
483 PKG = m[1]; VER = m[2]; DSC = m[4]; WEB = m[5];
|
al@720
|
484 }
|
al@720
|
485 if (DSCL != "") { DSC = DSCL }
|
al@720
|
486
|
al@720
|
487 outrow(PKG, INS, BLK, VER, DSC, WEB)
|
al@720
|
488 }
|
al@720
|
489
|
al@720
|
490 VER = ""; DSC = ""; WEB = ""
|
al@720
|
491 delete m; delete i
|
al@720
|
492 DSCL = ""; INS = ""; BLK = ""; CAT = ""
|
al@720
|
493 }
|
al@720
|
494
|
al@720
|
495 PKG = $1
|
al@720
|
496 if (NF == 1) {
|
al@720
|
497 BLK = "b"
|
al@720
|
498 } else if (NF == 2) {
|
al@720
|
499 DSCL = $2
|
al@720
|
500 } else {
|
al@720
|
501 if ($3 == c) {
|
al@720
|
502 CAT = c
|
al@720
|
503 if ($9 == "i") {
|
al@720
|
504 i[1] = $1; i[2] = $2; i[4] = $4; i[5] = $5; INS = "i"
|
al@720
|
505 } else {
|
al@720
|
506 m[1] = $1; m[2] = $2; m[4] = $4; m[5] = $5
|
al@720
|
507 }
|
al@720
|
508 }
|
al@720
|
509 }
|
al@720
|
510 }'
|
al@718
|
511 ;;
|
al@718
|
512 esac
|
pascal@627
|
513 cat << EOT
|
pascal@627
|
514 </tbody>
|
pascal@627
|
515 </table>
|
pascal@627
|
516 EOT
|
pascal@627
|
517 done
|
pascal@627
|
518 echo '</form>' ;;
|
pascal@627
|
519
|
pascal@627
|
520
|
pascal@627
|
521 *\ search\ *)
|
pascal@627
|
522 #
|
pascal@627
|
523 # Search for packages. Here default is to search in packages.desc
|
pascal@627
|
524 # and so get result including packages names and descriptions
|
pascal@627
|
525 #
|
pascal@627
|
526 pkg=$(GET search)
|
pascal@627
|
527 repo=$(GET repo)
|
al@718
|
528 cd $PKGS_DB
|
pascal@627
|
529 search_form
|
pascal@627
|
530 sidebar | sed "s/repo_$repo/active/"
|
al@707
|
531 LOADING_MSG="$(_ 'Searching packages...')"
|
pascal@627
|
532 loading_msg
|
pascal@627
|
533 cat << EOT
|
al@707
|
534 <h2>$(_ 'Search packages')</h2>
|
pascal@627
|
535 <form method="get" action="$SCRIPT_NAME">
|
pascal@627
|
536 <div id="actions">
|
pascal@627
|
537 <div class="float-left">
|
al@707
|
538 $(_ 'Selection:')
|
pascal@627
|
539 <input type="submit" name="do" value="Install" />
|
pascal@627
|
540 <input type="submit" name="do" value="Remove" />
|
al@707
|
541 <a href="$(cat $PANEL/lib/checkbox.js)">$(_ 'Toogle all')</a>
|
pascal@627
|
542 </div>
|
pascal@627
|
543 <div class="float-right">
|
pascal@627
|
544 <a class="button" href="$SCRIPT_NAME?recharge">
|
al@707
|
545 <img src="$IMAGES/recharge.png" />$(_ 'Recharge list')</a>
|
pascal@627
|
546 <a class="button" href="$SCRIPT_NAME?up">
|
al@707
|
547 <img src="$IMAGES/update.png" />$(_ 'Check upgrades')</a>
|
pascal@627
|
548 <a class="button" href='$SCRIPT_NAME?list'>
|
al@707
|
549 <img src="$IMAGES/tazpkg.png" />$(_ 'My packages')</a>
|
pascal@627
|
550 </div>
|
pascal@627
|
551 </div>
|
pascal@627
|
552 <input type="hidden" name="repo" value="$repo" />
|
pascal@627
|
553
|
pascal@627
|
554 <table class="zebra outbox">
|
pascal@627
|
555 EOT
|
pascal@627
|
556 if [ "$(GET files)" ]; then
|
pascal@627
|
557 cat <<EOT
|
pascal@627
|
558 <thead>
|
pascal@627
|
559 <tr>
|
al@707
|
560 <td>$(_ 'Package')</td>
|
al@707
|
561 <td>$(_ 'File')</td>
|
pascal@627
|
562 </tr>
|
pascal@627
|
563 <thead>
|
pascal@627
|
564 <tbody>
|
pascal@627
|
565 EOT
|
al@718
|
566 lzcat $(repo_list /files.list.lzma) | grep -Ei ": .*$(GET search)" | \
|
al@718
|
567 while read PACKAGE FILE; do
|
al@718
|
568 PACKAGE=${PACKAGE%:}
|
al@718
|
569 class=pkg; [ -d $INSTALLED/$PACKAGE ] && class=pkgi
|
al@718
|
570 cat << EOT
|
pascal@627
|
571 <tr>
|
al@719
|
572 <td><input type="checkbox" name="pkg" value="$PACKAGE">$(pkg_info_link $PACKAGE $class)</td>
|
pascal@627
|
573 <td>$FILE</td>
|
pascal@627
|
574 </tr>
|
pascal@627
|
575 EOT
|
al@718
|
576 done
|
pascal@627
|
577 else
|
al@718
|
578 table_head
|
al@718
|
579 echo " <tbody>"
|
al@718
|
580 awk -F$'\t' 'BEGIN{IGNORECASE = 1}
|
al@718
|
581 $1 $4 ~ /'$pkg'/{print $0}' $(repo_list /packages.info) | parse_packages_info
|
pascal@627
|
582 fi
|
pascal@627
|
583 cat << EOT
|
pascal@627
|
584 </tbody>
|
pascal@627
|
585 </table>
|
pascal@627
|
586 </form>
|
pascal@627
|
587 EOT
|
pascal@627
|
588 ;;
|
pascal@627
|
589
|
pascal@627
|
590
|
pascal@627
|
591 *\ recharge\ *)
|
pascal@627
|
592 #
|
pascal@627
|
593 # Lets recharge the packages list
|
pascal@627
|
594 #
|
pascal@627
|
595 search_form
|
pascal@627
|
596 sidebar
|
al@707
|
597 LOADING_MSG="$(_ 'Recharging lists...')"
|
pascal@627
|
598 loading_msg
|
pascal@627
|
599 cat << EOT
|
al@707
|
600 <h2>$(_ 'Recharge')</h2>
|
pascal@627
|
601
|
pascal@627
|
602 <form method='get' action='$SCRIPT_NAME'>
|
pascal@627
|
603 <div id="actions">
|
pascal@627
|
604 <div class="float-left">
|
al@707
|
605 <p>$(_ 'Recharge checks for new or updated packages')</p>
|
pascal@627
|
606 </div>
|
pascal@627
|
607 <div class="float-right">
|
pascal@627
|
608 <a class="button" href='$SCRIPT_NAME?up'>
|
al@707
|
609 <img src="$IMAGES/update.png" />$(_ 'Check upgrades')</a>
|
pascal@627
|
610 <a class="button" href='$SCRIPT_NAME?list'>
|
al@707
|
611 <img src="$IMAGES/tazpkg.png" />$(_ 'My packages')</a>
|
pascal@627
|
612 </div>
|
pascal@627
|
613 </div>
|
pascal@627
|
614 <div class="wrapper">
|
pascal@627
|
615 <pre>
|
pascal@627
|
616 EOT
|
al@707
|
617 echo $(_ 'Recharging packages list') | log
|
pascal@627
|
618 tazpkg recharge | filter_taztools_msgs
|
pascal@627
|
619 cat << EOT
|
pascal@627
|
620 </pre>
|
pascal@627
|
621 </div>
|
al@707
|
622 <p>$(_ 'Packages lists are up-to-date. You should check for upgrades now.')</p>
|
pascal@627
|
623 EOT
|
pascal@627
|
624 ;;
|
pascal@627
|
625
|
pascal@627
|
626
|
pascal@627
|
627 *\ up\ *)
|
pascal@627
|
628 #
|
pascal@627
|
629 # Upgrade packages
|
pascal@627
|
630 #
|
al@700
|
631 cd $PKGS_DB
|
pascal@627
|
632 search_form
|
pascal@627
|
633 sidebar
|
al@707
|
634 LOADING_MSG="$(_ 'Checking for upgrades...')"
|
pascal@627
|
635 loading_msg
|
pascal@627
|
636 cat << EOT
|
al@707
|
637 <h2>$(_ 'Up packages')</h2>
|
pascal@627
|
638
|
pascal@627
|
639 <form method="get" action="$SCRIPT_NAME">
|
pascal@627
|
640 <div id="actions">
|
pascal@627
|
641 <div class="float-left">
|
al@707
|
642 $(_ 'Selection:')
|
pascal@627
|
643 <input type="submit" name="do" value="Install" />
|
pascal@627
|
644 <input type="submit" name="do" value="Remove" />
|
al@707
|
645 <a href="$(cat $PANEL/lib/checkbox.js)">$(_ 'Toogle all')</a>
|
pascal@627
|
646 </div>
|
pascal@627
|
647 <div class="float-right">
|
pascal@627
|
648 <a class="button" href="$SCRIPT_NAME?recharge">
|
al@707
|
649 <img src="$IMAGES/recharge.png" />$(_ 'Recharge list')</a>
|
pascal@627
|
650 <a class="button" href="$SCRIPT_NAME?list">
|
al@707
|
651 <img src="$IMAGES/tazpkg.png" />$(_ 'My packages')</a>
|
pascal@627
|
652 </div>
|
pascal@627
|
653 </div>
|
pascal@627
|
654 EOT
|
pascal@627
|
655 tazpkg up --check >/dev/null
|
pascal@627
|
656 cat << EOT
|
pascal@627
|
657 <table class="zebra outbox">
|
pascal@627
|
658 $(table_head)
|
pascal@627
|
659 <tbody>
|
pascal@627
|
660 EOT
|
al@719
|
661 for pkg in $(cat packages.up); do
|
al@719
|
662 grep -hs "^$pkg |" $PKGS_DB/packages.desc $PKGS_DB/undigest/*/packages.desc | \
|
pascal@627
|
663 parse_packages_desc
|
pascal@627
|
664 done
|
pascal@627
|
665 cat << EOT
|
pascal@627
|
666 </tbody>
|
pascal@627
|
667 </table>
|
pascal@627
|
668 </form>
|
pascal@627
|
669 EOT
|
pascal@627
|
670 ;;
|
pascal@627
|
671
|
pascal@627
|
672
|
pascal@627
|
673 *\ do\ *)
|
pascal@627
|
674 #
|
pascal@627
|
675 # Do an action on one or some packages
|
pascal@627
|
676 #
|
pascal@627
|
677 opt=""
|
pascal@627
|
678 pkgs=""
|
pascal@627
|
679 cmdline=$(echo ${QUERY_STRING#do=} | sed s'/&/ /g')
|
pascal@627
|
680 cmd=$(echo ${cmdline} | awk '{print $1}')
|
pascal@627
|
681 cmdline=${cmdline#*repo=* }
|
pascal@627
|
682 pkgs=$(echo $cmdline | sed -e s'/+/ /g' -e s'/pkg=//g' -e s/$cmd//)
|
pascal@627
|
683 pkgs="$(httpd -d "$pkgs")"
|
pascal@627
|
684 cmd=$(echo $cmd | tr [:upper:] [:lower:])
|
pascal@627
|
685 case $cmd in
|
pascal@627
|
686 install)
|
pascal@627
|
687 cmd=get-install opt=--forced
|
pascal@627
|
688 LOADING_MSG="get-installing packages..."
|
pascal@627
|
689 ;;
|
pascal@627
|
690 link)
|
al@700
|
691 opt=$(readlink $PKGS_DB/fslink)
|
pascal@627
|
692 LOADING_MSG="linking packages..."
|
pascal@627
|
693 ;;
|
pascal@627
|
694 esac
|
pascal@627
|
695 search_form
|
pascal@627
|
696 sidebar
|
pascal@627
|
697 loading_msg
|
pascal@627
|
698 cat << EOT
|
al@633
|
699 <h2>TazPkg: $cmd</h2>
|
pascal@627
|
700
|
pascal@627
|
701 <form method="get" action="$SCRIPT_NAME">
|
pascal@627
|
702 <div id="actions">
|
pascal@627
|
703 <div class="float-left">
|
al@707
|
704 <p>$(_ 'Performing tasks on packages')</p>
|
pascal@627
|
705 </div>
|
pascal@627
|
706 <div class="float-right">
|
pascal@627
|
707 <p>
|
pascal@627
|
708 <a class="button" href="$SCRIPT_NAME?list">
|
al@707
|
709 <img src="$IMAGES/tazpkg.png" />$(_ 'My packages')</a>
|
pascal@627
|
710 </p>
|
pascal@627
|
711 </div>
|
pascal@627
|
712 </div>
|
pascal@627
|
713 <div class="box">
|
al@707
|
714 $(_ 'Executing %s for: %s' $cmd $pkgs)
|
pascal@627
|
715 </div>
|
pascal@627
|
716 EOT
|
al@707
|
717 for pkg in $pkgs; do
|
pascal@627
|
718 echo '<pre>'
|
al@707
|
719 echo $(_n 'y') | tazpkg $cmd $pkg $opt 2>/dev/null | filter_taztools_msgs
|
pascal@627
|
720 echo '</pre>'
|
pascal@627
|
721 done ;;
|
pascal@627
|
722
|
pascal@627
|
723
|
pascal@627
|
724 *\ info\ *)
|
pascal@627
|
725 #
|
pascal@627
|
726 # Packages info
|
pascal@627
|
727 #
|
pascal@627
|
728 pkg=$(GET info)
|
pascal@627
|
729 search_form
|
pascal@627
|
730 sidebar
|
pascal@627
|
731 if [ -d $INSTALLED/$pkg ]; then
|
pascal@627
|
732 . $INSTALLED/$pkg/receipt
|
al@718
|
733 files=$(wc -l < $INSTALLED/$pkg/files.list)
|
pascal@627
|
734 action="Remove"
|
al@707
|
735 action_i18n=$(_ 'Remove')
|
pascal@627
|
736 else
|
al@718
|
737 cd $PKGS_DB
|
al@707
|
738 LOADING_MSG=$(_ 'Getting package info...')
|
pascal@627
|
739 loading_msg
|
pascal@627
|
740 IFS='|'
|
al@707
|
741 set -- $(grep -hs "^$pkg |" packages.desc undigest/*/packages.desc)
|
pascal@627
|
742 unset IFS
|
pascal@627
|
743 PACKAGE=$1
|
pascal@627
|
744 VERSION="$(echo $2)"
|
pascal@627
|
745 SHORT_DESC="$(echo $3)"
|
pascal@627
|
746 CATEGORY="$(echo $4)"
|
pascal@627
|
747 WEB_SITE="$(echo $5)"
|
pascal@627
|
748 action="Install"
|
al@707
|
749 action_i18n=$(_ 'Install')
|
al@718
|
750 temp="${pkg#get-}"
|
pascal@627
|
751 fi
|
pascal@627
|
752 cat << EOT
|
al@707
|
753 <h2>$(_ 'Package %s' $PACKAGE)</h2>
|
pascal@627
|
754
|
pascal@627
|
755 <div id="actions">
|
pascal@627
|
756 <div class="float-left">
|
pascal@627
|
757 <p>
|
pascal@627
|
758 EOT
|
pascal@627
|
759 if [ "$temp" != "$pkg" -a "$action" == "Install" ]; then
|
pascal@627
|
760 temp="$(echo $pkg | sed 's/get-//g')"
|
al@707
|
761 echo "<a class='button' href='$SCRIPT_NAME?do=Install&$temp'>$(_ 'Install (Non Free)')</a>"
|
pascal@627
|
762 else
|
pascal@627
|
763 echo "<a class='button' href='$SCRIPT_NAME?do=$action&$pkg'>$action_i18n</a>"
|
pascal@627
|
764 fi
|
pascal@627
|
765
|
pascal@627
|
766 if [ -d $INSTALLED/$pkg ]; then
|
al@700
|
767 if grep -qs "^$pkg$" $PKGS_DB/blocked-packages.list; then
|
pascal@627
|
768 cat << EOT
|
al@707
|
769 <a class="button" href="$SCRIPT_NAME?do=Unblock&$pkg">$(_ 'Unblock')</a>
|
pascal@627
|
770 EOT
|
pascal@627
|
771 else
|
pascal@627
|
772 cat << EOT
|
al@707
|
773 <a class="button" href='$SCRIPT_NAME?do=Block&$pkg'>$(_ 'Block')</a>
|
pascal@627
|
774 EOT
|
pascal@627
|
775 fi
|
pascal@627
|
776 cat << EOT
|
al@707
|
777 <a class="button" href='$SCRIPT_NAME?do=Repack&$pkg'>$(_ 'Repack')</a>
|
pascal@627
|
778 EOT
|
pascal@627
|
779 fi
|
al@718
|
780 i18n_desc $pkg
|
pascal@627
|
781 cat << EOT
|
pascal@627
|
782 </p>
|
pascal@627
|
783 </div>
|
pascal@627
|
784 <div class="float-right">
|
pascal@627
|
785 <p>
|
pascal@627
|
786 <a class="button" href='$SCRIPT_NAME?list'>
|
al@707
|
787 <img src="$IMAGES/tazpkg.png" />$(_ 'My packages')</a>
|
pascal@627
|
788 </p>
|
pascal@627
|
789 </div>
|
pascal@627
|
790 </div>
|
pascal@627
|
791 <table class="zebra outbox">
|
pascal@627
|
792 <tbody>
|
al@707
|
793 <tr><td><b>$(_ 'Name')</b></td><td>$PACKAGE</td></tr>
|
al@707
|
794 <tr><td><b>$(_ 'Version')</b></td><td>$VERSION</td></tr>
|
al@707
|
795 <tr><td><b>$(_ 'Description')</b></td><td>$SHORT_DESC</td></tr>
|
al@707
|
796 <tr><td><b>$(_ 'Category')</b></td><td>$CATEGORY</td></tr>
|
pascal@627
|
797 EOT
|
pascal@627
|
798 if [ -d $INSTALLED/$pkg ]; then
|
pascal@627
|
799 cat << EOT
|
al@707
|
800 <tr><td><b>$(_ 'Maintainer')</b></td><td>$MAINTAINER</td></tr>
|
al@707
|
801 <tr><td><b>$(_ 'Website')</b></td><td><a href="$WEB_SITE">$WEB_SITE</a></td></tr>
|
al@707
|
802 <tr><td><b>$(_ 'Sizes')</b></td><td>$PACKED_SIZE/$UNPACKED_SIZE</td></tr>
|
pascal@627
|
803 EOT
|
pascal@627
|
804 if [ -n "$DEPENDS" ]; then
|
al@707
|
805 echo "<tr><td><b>$(_ 'Depends')</b></td><td>"
|
pascal@627
|
806 for i in $DEPENDS; do
|
al@718
|
807 pkg_info_link $i
|
pascal@627
|
808 done
|
pascal@627
|
809 echo "</td></tr>"
|
pascal@627
|
810 fi
|
pascal@627
|
811 if [ -n "$SUGGESTED" ]; then
|
al@707
|
812 echo "<tr><td><b>$(_ 'Suggested')</b></td><td>"
|
pascal@627
|
813 for i in $SUGGESTED; do
|
al@718
|
814 pkg_info_link $i
|
pascal@627
|
815 done
|
pascal@627
|
816 echo "</td></tr>"
|
pascal@627
|
817 fi
|
al@707
|
818 [ -n "$TAGS" ] && echo "<tr><td><b>$(_ 'Tags')</b></td><td>$TAGS</td></tr>"
|
pascal@627
|
819 I_FILES=$(cat $INSTALLED/$pkg/files.list | wc -l)
|
pascal@627
|
820 cat << EOT
|
pascal@627
|
821 </tbody>
|
pascal@627
|
822 </table>
|
al@717
|
823 EOT
|
al@717
|
824 DESC="$(tazpkg desc $pkg)"
|
al@717
|
825 [ -n "$DESC" ] && echo "<pre>$DESC</pre>"
|
pascal@627
|
826
|
al@717
|
827 cat << EOT
|
al@707
|
828 <p>$(_ 'Installed files: %s' $I_FILES)</p>
|
pascal@627
|
829
|
al@717
|
830 <pre>$(sort $INSTALLED/$pkg/files.list)</pre>
|
pascal@627
|
831 EOT
|
pascal@627
|
832 else
|
pascal@627
|
833 cat << EOT
|
al@707
|
834 <tr><td><b>$(_ 'Website')</b></td><td><a href="$WEB_SITE">$WEB_SITE</a></td></tr>
|
al@707
|
835 <tr><td><b>$(_ 'Sizes')</b></td><td>$(grep -hsA 3 ^$pkg$ packages.txt undigest/*/packages.txt | \
|
pascal@627
|
836 tail -n 1 | sed 's/ *//')</td></tr>
|
pascal@627
|
837 </table>
|
pascal@627
|
838
|
al@707
|
839 <p>$(_ 'Installed files:')</p>
|
pascal@627
|
840
|
pascal@627
|
841 <pre>
|
al@717
|
842 $(lzcat files.list.lzma undigest/*/files.list.lzma 2> /dev/null | \
|
al@717
|
843 sed "/^$pkg: /!d;s/^$pkg: //" | sort)
|
pascal@627
|
844 </pre>
|
pascal@627
|
845 EOT
|
pascal@627
|
846 fi
|
pascal@627
|
847 ;;
|
pascal@627
|
848
|
pascal@627
|
849
|
pascal@627
|
850 *\ admin\ * )
|
pascal@627
|
851 #
|
al@633
|
852 # TazPkg configuration page
|
pascal@627
|
853 #
|
pascal@627
|
854 cmd=$(GET admin)
|
pascal@627
|
855 case "$cmd" in
|
pascal@627
|
856 clean)
|
pascal@627
|
857 rm -rf /var/cache/tazpkg/* ;;
|
pascal@627
|
858 add-mirror)
|
pascal@627
|
859 # Decode url
|
pascal@627
|
860 mirror=$(GET mirror)
|
pascal@627
|
861 case "$mirror" in
|
pascal@627
|
862 http://*|ftp://*)
|
pascal@627
|
863 echo "$mirror" >> $(GET file) ;;
|
pascal@627
|
864 esac ;;
|
pascal@627
|
865 rm-mirror=http://*|rm-mirror=ftp://*)
|
pascal@627
|
866 mirror=${cmd#rm-mirror=}
|
pascal@627
|
867 sed -i -e "s@$mirror@@" -e '/^$/d' $(GET file) ;;
|
pascal@627
|
868 select-mirror*)
|
al@707
|
869 release=$(cat /etc/slitaz-release)
|
pascal@627
|
870 mirror="$(GET mirror)packages/$release/"
|
pascal@627
|
871 tazpkg setup-mirror $mirror | log
|
pascal@627
|
872 ;;
|
pascal@627
|
873 add-repo)
|
pascal@627
|
874 # Decode url
|
pascal@627
|
875 mirror=$(GET mirror)
|
al@700
|
876 repository=$PKGS_DB/undigest/$(GET repository)
|
pascal@627
|
877 case "$mirror" in
|
pascal@627
|
878 http://*|ftp://*)
|
pascal@627
|
879 mkdir -p $repository
|
pascal@627
|
880 echo "$mirror" > $repository/mirror
|
pascal@627
|
881 echo "$mirror" > $repository/mirrors ;;
|
pascal@627
|
882 esac ;;
|
pascal@627
|
883 rm-repo=*)
|
pascal@627
|
884 repository=${cmd#rm-repo=}
|
al@700
|
885 rm -rf $PKGS_DB/undigest/$repository ;;
|
pascal@627
|
886 esac
|
al@707
|
887 [ "$cmd" == "$(_n 'Set link')" ] &&
|
pascal@627
|
888 [ -d "$(GET link)/$INSTALLED" ] &&
|
al@700
|
889 ln -fs $(GET link) $PKGS_DB/fslink
|
al@707
|
890 [ "$cmd" == "$(_n 'Remove link')" ] &&
|
al@700
|
891 rm -f $PKGS_DB/fslink
|
al@707
|
892 cache_files=$(find /var/cache/tazpkg -name *.tazpkg | wc -l)
|
al@707
|
893 cache_size=$(du -sh /var/cache/tazpkg | cut -f1 | sed 's|\.0||')
|
pascal@627
|
894 sidebar
|
pascal@627
|
895 cat << EOT
|
al@707
|
896 <h2>$(_ 'Administration')</h2>
|
pascal@627
|
897 <div>
|
al@707
|
898 <p>$(_ 'TazPkg administration and settings')</p>
|
pascal@627
|
899 </div>
|
pascal@627
|
900 <div id="actions">
|
pascal@627
|
901 <a class="button" href='$SCRIPT_NAME?admin=&action=saveconf'>
|
al@707
|
902 <img src="$IMAGES/tazpkg.png" />$(_ 'Save configuration')</a>
|
pascal@627
|
903 <a class="button" href='$SCRIPT_NAME?admin=&action=listconf'>
|
al@707
|
904 <img src="$IMAGES/edit.png" />$(_ 'List configuration files')</a>
|
pascal@627
|
905 <a class="button" href='$SCRIPT_NAME?admin=&action=quickcheck'>
|
al@707
|
906 <img src="$IMAGES/recharge.png" />$(_ 'Quick check')</a>
|
pascal@627
|
907 <a class="button" href='$SCRIPT_NAME?admin=&action=fullcheck'>
|
al@707
|
908 <img src="$IMAGES/recharge.png" />$(_ 'Full check')</a>
|
pascal@627
|
909 </div>
|
pascal@627
|
910 EOT
|
pascal@627
|
911 case "$(GET action)" in
|
pascal@627
|
912 saveconf)
|
al@707
|
913 LOADING_MSG=$(_ 'Creating the package...')
|
pascal@627
|
914 loading_msg
|
pascal@627
|
915 echo "<pre>"
|
pascal@627
|
916 cd $HOME
|
pascal@627
|
917 tazpkg repack-config | filter_taztools_msgs
|
al@707
|
918 echo -n "$(_ 'Path:') "; ls $HOME/config-*.tazpkg
|
pascal@627
|
919 echo "</pre>" ;;
|
pascal@627
|
920 listconf)
|
al@707
|
921 echo "<h4>$(_ 'Configuration files')</h4>"
|
pascal@627
|
922 echo "<ul>"
|
pascal@627
|
923 tazpkg list-config | while read file; do
|
pascal@627
|
924 [ "${file:0:1}" == "/" ] || continue
|
pascal@627
|
925 if [ -e $file ]; then
|
pascal@627
|
926 echo "<li><a href=\"index.cgi?file=$file\">$file</a></li>"
|
pascal@627
|
927 else
|
pascal@627
|
928 echo "<li>$file</li>"
|
pascal@627
|
929 fi
|
pascal@627
|
930 done
|
pascal@627
|
931 echo "</ul>"
|
pascal@627
|
932 echo "</pre>" ;;
|
pascal@627
|
933 quickcheck)
|
al@707
|
934 LOADING_MSG=$(_ 'Checking packages consistency...')
|
pascal@627
|
935 loading_msg
|
pascal@627
|
936 echo "<pre>"
|
pascal@627
|
937 tazpkg check
|
pascal@627
|
938 echo "</pre>" ;;
|
pascal@627
|
939 fullcheck)
|
al@707
|
940 LOADING_MSG=$(_ 'Full packages check...')
|
pascal@627
|
941 loading_msg
|
pascal@627
|
942 echo "<pre>"
|
pascal@627
|
943 tazpkg check --full
|
pascal@627
|
944 echo "</pre>" ;;
|
pascal@627
|
945 esac
|
pascal@627
|
946 cat << EOT
|
al@707
|
947 <h3>$(_ 'Packages cache')</h3>
|
pascal@627
|
948
|
pascal@627
|
949 <div>
|
pascal@627
|
950 <form method="get" action="$SCRIPT_NAME">
|
pascal@627
|
951 <p>
|
al@707
|
952 $(_ 'Packages in the cache: %s (%s)' $cache_files $cache_size)
|
pascal@627
|
953 <input type="hidden" name="admin" value="clean" />
|
pascal@627
|
954 <input type="submit" value="Clean" />
|
pascal@627
|
955 </p>
|
pascal@627
|
956 </form>
|
pascal@627
|
957 </div>
|
pascal@627
|
958
|
al@707
|
959 <h3>$(_ 'Default mirror')</h3>
|
pascal@627
|
960
|
pascal@627
|
961 <pre>$(cat /var/lib/tazpkg/mirror)</pre>
|
pascal@627
|
962
|
al@707
|
963 <h3>$(_ 'Current mirror list')</h3>
|
pascal@627
|
964 EOT
|
al@700
|
965 for i in $PKGS_DB/mirrors $PKGS_DB/undigest/*/mirrors; do
|
pascal@627
|
966 [ -s $i ] || continue
|
pascal@627
|
967 echo '<div class="box">'
|
al@700
|
968 if [ $i != $PKGS_DB/mirrors ]; then
|
pascal@627
|
969 Repo_Name="$(repo_name $(dirname $i))"
|
al@707
|
970 echo "<h4>$(_ 'Repository: %s' $Repo_Name)</h4>"
|
pascal@627
|
971 fi
|
pascal@627
|
972 echo "<ul>"
|
pascal@627
|
973 list_mirrors $i
|
pascal@627
|
974 echo "</ul>"
|
pascal@627
|
975 cat << EOT
|
pascal@627
|
976 </div>
|
pascal@627
|
977 <form method="get" action="$SCRIPT_NAME">
|
pascal@627
|
978 <p>
|
pascal@627
|
979 <input type="hidden" name="admin" value="add-mirror" />
|
pascal@627
|
980 <input type="hidden" name="file" value="$i" />
|
pascal@627
|
981 <input type="text" name="mirror" size="60">
|
pascal@627
|
982 <input type="submit" value="Add mirror" />
|
pascal@627
|
983 </p>
|
pascal@627
|
984 </form>
|
pascal@627
|
985 EOT
|
pascal@627
|
986 done
|
al@707
|
987 echo "<h3>$(_ 'Private repositories')</h3>"
|
al@700
|
988 [ -n "$(ls $PKGS_DB/undigest 2> /dev/null)" ] && cat << EOT
|
pascal@627
|
989 <div class="box">
|
pascal@627
|
990 <ul>
|
pascal@627
|
991 $(list_repos)
|
pascal@627
|
992 </ul>
|
pascal@627
|
993 </div>
|
pascal@627
|
994 EOT
|
pascal@627
|
995 cat << EOT
|
pascal@627
|
996 <form method="get" action="$SCRIPT_NAME">
|
pascal@627
|
997 <p>
|
pascal@627
|
998 <input type="hidden" name="admin" value="add-repo" />
|
al@707
|
999 $(_ 'Name') <input type="text" name="repository" size="10">
|
al@707
|
1000 $(_ 'mirror')
|
pascal@627
|
1001 <input type="text" name="mirror" value="http://" size="50">
|
pascal@627
|
1002 <input type="submit" value="Add repository" />
|
pascal@627
|
1003 </p>
|
pascal@627
|
1004 </form>
|
pascal@627
|
1005
|
al@707
|
1006 <h3>$(_ 'Link to another SliTaz installation')</h3>
|
pascal@627
|
1007
|
al@707
|
1008 <p>$(_ "This link points to the root of another SliTaz installation. \
|
pascal@627
|
1009 You will be able to install packages using soft links to it.")</p>
|
pascal@627
|
1010
|
pascal@627
|
1011 <form method="get" action="$SCRIPT_NAME">
|
pascal@627
|
1012 <p>
|
pascal@627
|
1013 <input type="hidden" name="admin" value="add-link" />
|
pascal@627
|
1014 <input type="text" name="link"
|
al@700
|
1015 value="$(readlink $PKGS_DB/fslink 2> /dev/null)" size="50">
|
al@707
|
1016 <input type="submit" name="admin" value="$(_ 'Set link')" />
|
al@707
|
1017 <input type="submit" name="admin" value="$(_ 'Remove link')" />
|
pascal@627
|
1018 </p>
|
pascal@627
|
1019 </form>
|
pascal@627
|
1020 EOT
|
pascal@627
|
1021 version=$(cat /etc/slitaz-release)
|
pascal@627
|
1022 cat << EOT
|
pascal@627
|
1023
|
al@707
|
1024 <h3 id="dvd">$(_ 'SliTaz packages DVD')</h3>
|
pascal@627
|
1025
|
al@707
|
1026 <p>$(_ "A bootable DVD image of all available packages for the %s version is \
|
al@707
|
1027 generated every day. It also contains a copy of the website and can be used \
|
al@707
|
1028 without an internet connection. This image can be installed on a DVD or a USB \
|
al@707
|
1029 key." $version)</p>
|
pascal@627
|
1030
|
pascal@627
|
1031 <div>
|
pascal@627
|
1032 <form method="post" action='$SCRIPT_NAME?admin&action=dvdimage#dvd'>
|
pascal@627
|
1033 <p>
|
pascal@627
|
1034 <a class="button"
|
pascal@627
|
1035 href='http://mirror.slitaz.org/iso/$version/packages-$version.iso'>
|
al@707
|
1036 <img src="$IMAGES/tazpkg.png" />$(_ 'Download DVD image')</a>
|
pascal@627
|
1037 <a class="button" href='$SCRIPT_NAME?admin&action=dvdusbkey#dvd'>
|
al@707
|
1038 <img src="$IMAGES/tazpkg.png" />$(_ 'Install from DVD/USB key')</a>
|
pascal@627
|
1039 </p>
|
pascal@627
|
1040 <div class="box">
|
al@707
|
1041 $(_ 'Install from ISO image:')
|
pascal@627
|
1042 <input type="text" name="dvdimage" size="40" value="/root/packages-$version.iso">
|
pascal@627
|
1043 </div>
|
pascal@627
|
1044 </form>
|
pascal@627
|
1045 </div>
|
pascal@627
|
1046 EOT
|
pascal@627
|
1047 if [ "$(GET action)" == "dvdimage" ]; then
|
pascal@627
|
1048 dev=$(POST dvdimage)
|
pascal@627
|
1049 mkdir -p /mnt/packages 2> /dev/null
|
pascal@627
|
1050 echo "<pre>"
|
pascal@627
|
1051 mount -t iso9660 -o loop,ro $dev /mnt/packages &&
|
pascal@627
|
1052 /mnt/packages/install.sh &&
|
al@707
|
1053 _ '%s is installed on /mnt/packages' $dev
|
pascal@627
|
1054 echo "</pre>"
|
pascal@627
|
1055 fi
|
pascal@627
|
1056 if [ "$(GET action)" == "dvdusbkey" ]; then
|
pascal@627
|
1057 mkdir -p /mnt/packages 2> /dev/null
|
pascal@627
|
1058 for tag in "LABEL=\"packages-$version\" TYPE=\"iso9660\"" \
|
pascal@627
|
1059 "LABEL=\"sources-$version\" TYPE=\"iso9660\"" ; do
|
pascal@627
|
1060 dev=$(blkid | grep "$tag" | cut -d: -f1)
|
pascal@627
|
1061 [ -n "$dev" ] || continue
|
pascal@627
|
1062 echo "<pre>"
|
pascal@627
|
1063 mount -t iso9660 -o ro $dev /mnt/packages &&
|
pascal@627
|
1064 /mnt/packages/install.sh &&
|
al@707
|
1065 _ '%s is installed on /mnt/packages' $dev
|
pascal@627
|
1066 echo "</pre>"
|
pascal@627
|
1067 break
|
pascal@627
|
1068 done
|
pascal@627
|
1069 fi
|
pascal@627
|
1070 ;;
|
pascal@627
|
1071 *)
|
pascal@627
|
1072 #
|
pascal@627
|
1073 # Default to summary
|
pascal@627
|
1074 #
|
pascal@627
|
1075 search_form
|
pascal@627
|
1076 sidebar
|
pascal@627
|
1077 [ -n "$(GET block)" ] && tazpkg block $(GET block)
|
pascal@627
|
1078 [ -n "$(GET unblock)" ] && tazpkg unblock $(GET unblock)
|
pascal@627
|
1079 cat << EOT
|
al@707
|
1080 <h2>$(_ 'Summary')</h2>
|
pascal@627
|
1081
|
pascal@627
|
1082 <div id="actions">
|
pascal@627
|
1083 <a class="button" href="$SCRIPT_NAME?list">
|
al@707
|
1084 <img src="$IMAGES/tazpkg.png" />$(_ 'My packages')</a>
|
pascal@627
|
1085 EOT
|
al@700
|
1086 fslink=$(readlink $PKGS_DB/fslink)
|
pascal@627
|
1087 [ -n "$fslink" -a -d "$fslink/$INSTALLED" ] &&
|
pascal@627
|
1088 cat << EOT
|
pascal@627
|
1089 <a class="button" href="$SCRIPT_NAME?linkable">
|
al@707
|
1090 <img src="$IMAGES/tazpkg.png" />$(_ 'Linkable packages')</a>
|
pascal@627
|
1091 EOT
|
pascal@627
|
1092 cat << EOT
|
pascal@627
|
1093 <a class="button" href="$SCRIPT_NAME?recharge">
|
al@707
|
1094 <img src="$IMAGES/recharge.png" />$(_ 'Recharge list')</a>
|
pascal@627
|
1095 <a class="button" href="$SCRIPT_NAME?up">
|
al@707
|
1096 <img src="$IMAGES/update.png" />$(_ 'Check upgrades')</a>
|
pascal@627
|
1097 <a class="button" href="$SCRIPT_NAME?admin">
|
al@707
|
1098 <img src="$IMAGES/edit.png" />$(_ 'Administration')</a>
|
pascal@627
|
1099 </div>
|
pascal@627
|
1100
|
pascal@627
|
1101 $(packages_summary)
|
pascal@627
|
1102
|
pascal@627
|
1103
|
al@707
|
1104 <h3>$(_ 'Latest log entries')</h3>
|
pascal@627
|
1105
|
pascal@627
|
1106 <pre>
|
al@707
|
1107 $(tail -n 5 /var/log/slitaz/tazpkg.log | fgrep "-" | \
|
al@707
|
1108 awk '{print $1, $2, $3, $4, $5, $6, $7}')
|
pascal@627
|
1109 </pre>
|
pascal@627
|
1110 EOT
|
pascal@627
|
1111 ;;
|
pascal@627
|
1112 esac
|
pascal@627
|
1113
|
pascal@627
|
1114 # xHTML 5 footer
|
al@633
|
1115 export TEXTDOMAIN='tazpkg'
|
pascal@627
|
1116 xhtml_footer
|
pascal@627
|
1117 exit 0
|