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