slitaz-forge annotate pkgs/search.sh @ rev 457

pkgs: add backports
author Pascal Bellard <pascal.bellard@slitaz.org>
date Mon Feb 17 14:55:17 2014 +0000 (2014-02-17)
parents f14e1d28ce93
children ea7fb53f95b9
rev   line source
pankso@230 1 #!/bin/sh
pankso@449 2 #
pankso@230 3 # Tiny CGI search engine for SliTaz packages on http://pkgs.slitaz.org/
pankso@230 4 # Christophe Lincoln <pankso@slitaz.org>
al@284 5 # Aleksej Bobylev <al.bobylev@gmail.com>
pankso@230 6 #
al@284 7
slaxemulator@336 8 renice -n 19 $$
slaxemulator@336 9
al@284 10 # Parse query string
slaxemulator@320 11 . /etc/slitaz/slitaz.conf
pankso@266 12 . /usr/lib/slitaz/httphelper.sh
al@293 13 echo -n "0" > $HOME/ifEven
pascal@456 14 [ -n "$MIRROR_URL" ] || MIRROR_URL="http://mirror.slitaz.org"
al@284 15
al@284 16 # User preferred language
al@284 17 # parameter $1 have priority; without parameter $1 - browser language only
al@284 18 # if we don't support any of user languages (or only en), then return C locale
al@284 19 user_lang() {
al@284 20 LANG="C"
al@284 21 IFS=","
al@284 22 for lang in $1 $HTTP_ACCEPT_LANGUAGE
al@284 23 do
al@284 24 lang=${lang%;*} lang=${lang# } lang=${lang%-*} lang=${lang%_*}
al@284 25 case "$lang" in
al@284 26 de) LANG="de_DE" ;;
al@376 27 es) LANG="es_AR" ;;
al@284 28 fr) LANG="fr_FR" ;;
al@284 29 it) LANG="it_IT" ;;
al@376 30 pl) LANG="pl_PL" ;;
al@284 31 pt) LANG="pt_BR" ;;
al@284 32 ru) LANG="ru_RU" ;;
al@315 33 sv) LANG="sv_SE" ;;
al@284 34 zh) LANG="zh_TW" ;;
al@284 35 esac
al@376 36 if echo "de en es fr pl pt ru sv zh" | fgrep -q "$lang"; then
al@284 37 break
al@284 38 fi
al@284 39 done
al@284 40 unset IFS
al@284 41 echo "$LANG"
al@284 42 }
al@284 43
al@284 44 # Short 2-letter lang code from ll_CC
al@284 45 ll_lang() {
al@284 46 ll_CC="$1"
al@284 47 echo ${ll_CC%_*}
al@284 48 }
al@284 49
al@293 50 # Part of query to indicate current debug mode
al@293 51 ifdebug() {
al@293 52 ifdebug="$(GET debug)"
al@293 53 [ ! -z "$ifdebug" ] && ifdebug="$1$ifdebug"
al@293 54 echo "$ifdebug"
al@284 55 }
al@284 56
al@293 57 # GET or POST variable
al@293 58 GETPOST() {
al@293 59 echo "$(POST $1)$(GET $1)"
al@293 60 }
al@293 61
al@293 62 # Nice URL replacer - to copy url from address bar
slaxemulator@320 63 # TODO: deal with POST method of form submitting
slaxemulator@320 64 nice_url() {
slaxemulator@320 65 # if user submitted a form
slaxemulator@320 66 if [ "$REQUEST_METHOD" == "POST" -o ! -z $(GET submit) ]; then
slaxemulator@320 67 OBJECT="$(GETPOST object)"
slaxemulator@320 68 SEARCH="$(GETPOST query)"
slaxemulator@320 69 case $OBJECT in
slaxemulator@320 70 Package) NICE="package=$SEARCH";;
slaxemulator@320 71 Desc) NICE="desc=$SEARCH";;
slaxemulator@320 72 Tags) NICE="tags=$SEARCH";;
slaxemulator@336 73 Arch) NICE="arch=$SEARCH";;
slaxemulator@336 74 Bugs) NICE="bugs=$SEARCH";;
slaxemulator@320 75 Receipt) NICE="receipt=$SEARCH";;
slaxemulator@320 76 Depends) NICE="depends=$SEARCH";;
slaxemulator@320 77 BuildDepends) NICE="builddepends=$SEARCH";;
slaxemulator@320 78 File) NICE="file=$SEARCH";;
slaxemulator@320 79 File_list) NICE="filelist=$SEARCH";;
slaxemulator@320 80 FileOverlap) NICE="fileoverlap=$SEARCH";;
slaxemulator@320 81 esac
slaxemulator@320 82 # version, if needed
slaxemulator@320 83 version="$(GETPOST version)"
slaxemulator@320 84 if [ ! -z "$version" -a "$version" != "cooking" ]; then
slaxemulator@320 85 NICE="${NICE}&version=${version:0:1}"
slaxemulator@320 86 fi
slaxemulator@320 87 # lang, if needed
slaxemulator@320 88 query_lang="$(GETPOST lang)"
slaxemulator@320 89 pref_lang="$(user_lang)"
slaxemulator@320 90 browser_lang="$(ll_lang $pref_lang)"
slaxemulator@320 91 if [ ! -z "$query_lang" -a "$query_lang" != "$browser_lang" ]; then
slaxemulator@320 92 NICE="${NICE}&lang=$query_lang"
slaxemulator@320 93 fi
slaxemulator@320 94 # verbose, if needed
slaxemulator@320 95 verboseq="$(GETPOST verbose)"
slaxemulator@320 96 if [ ! -z "$verboseq" -a "$verboseq" != "0" ]; then
slaxemulator@320 97 NICE="${NICE}&verbose=1"
slaxemulator@320 98 fi
slaxemulator@320 99 # debug, if needed
slaxemulator@320 100 debugq="$(GET debug)"
slaxemulator@320 101 if [ ! -z "$debugq" -a "$debugq" == "debug" ]; then
slaxemulator@320 102 NICE="${NICE}&debug"
slaxemulator@320 103 fi
slaxemulator@320 104 # redirect
slaxemulator@320 105 header "HTTP/1.1 301 Moved Permanently" "Location: $SCRIPT_NAME?$NICE"
slaxemulator@320 106 # echo "Location: $SCRIPT_NAME?$NICE"
slaxemulator@320 107 # echo
slaxemulator@320 108 exit 0
al@293 109 fi
slaxemulator@320 110 }
al@284 111
slaxemulator@320 112 nice_url
al@284 113
al@284 114 OBJECT="$(GET object)"
al@284 115 SEARCH="$(GET query)"
al@284 116 SLITAZ_VERSION="$(GET version)"
al@284 117 VERBOSE="$(GET verbose)"
al@261 118
pankso@268 119 # Internal variables
al@284 120 #DATE=$(date +%Y-%m-%d\ %H:%M:%S)
pankso@268 121
al@261 122 # Internationalization
al@261 123 . /usr/bin/gettext.sh
al@284 124 export TEXTDOMAIN='tazpkg-web'
pankso@239 125
slaxemulator@336 126 unset SEARCH
al@284 127 VERBOSE=0
al@284 128 for i in $(echo $QUERY_STRING | sed 's/[?&]/ /g'); do
al@284 129 # SLITAZ_VERSION=cooking
al@284 130 case "$(echo $i | tr [A-Z] [a-z])" in
al@284 131 query=*|search=*) [ ${i#*=} == Search ] || SEARCH=${i#*=};;
al@284 132 object=*) OBJECT=${i#*=};;
al@284 133 verbose=*) VERBOSE=${i#*=};;
al@284 134 lang=*) LANG=${i#*=};;
al@284 135 file=*) SEARCH=${i#*=}; OBJECT=File;;
al@284 136 desc=*) SEARCH=${i#*=}; OBJECT=Desc;;
al@284 137 tags=*) SEARCH=${i#*=}; OBJECT=Tags;;
slaxemulator@336 138 arch=*) SEARCH=${i#*=}; OBJECT=Arch;;
slaxemulator@336 139 bugs=*) SEARCH=${i#*=}; OBJECT=Bugs;;
al@284 140 receipt=*) SEARCH=${i#*=}; OBJECT=Receipt;;
al@284 141 filelist=*) SEARCH=${i#*=}; OBJECT=File_list;;
al@284 142 package=*) SEARCH=${i#*=}; OBJECT=Package;;
al@284 143 depends=*) SEARCH=${i#*=}; OBJECT=Depends;;
al@284 144 builddepends=*) SEARCH=${i#*=}; OBJECT=BuildDepends;;
al@284 145 fileoverlap=*) SEARCH=${i#*=}; OBJECT=FileOverlap;;
slaxemulator@320 146 category=*) SEARCH=${i#*=}; OBJECT=Category;;
slaxemulator@320 147 maintainer=*) SEARCH=${i#*=}; OBJECT=Maintainer;;
al@284 148 version=[1-9]*) i=${i%%.*}; SLITAZ_VERSION=${i#*=}.0;;
al@284 149 version=s*|version=4*) SLITAZ_VERSION=stable;;
al@284 150 version=u*) SLITAZ_VERSION=undigest;;
pascal@457 151 version=b*) SLITAZ_VERSION=backports;;
al@284 152 version=t*) SLITAZ_VERSION=tiny;;
al@284 153 esac
al@284 154 done
al@284 155 [ -z "$SLITAZ_VERSION" ] && SLITAZ_VERSION=cooking
al@284 156
al@293 157 #
pankso@268 158 # Content negotiation for Gettext
al@293 159 #
al@284 160 LANG=$(user_lang $(GET lang))
al@284 161 lang="$(ll_lang $LANG)"
pankso@278 162 export LANG LC_ALL=$LANG
pankso@230 163
al@284 164
al@261 165 case "$OBJECT" in
al@284 166 File) selected_file="selected";;
al@284 167 Desc) selected_desc="selected";;
al@284 168 Tags) selected_tags="selected";;
slaxemulator@336 169 Arch) selected_arch="selected";;
slaxemulator@336 170 Bugs) selected_bugs="selected";;
al@284 171 Receipt) selected_receipt="selected";;
al@284 172 File_list) selected_file_list="selected";;
al@284 173 Depends) selected_depends="selected";;
al@261 174 BuildDepends) selected_build_depends="selected";;
al@261 175 FileOverlap) selected_overlap="selected";;
al@261 176 esac
pankso@230 177
al@261 178 case "$SLITAZ_VERSION" in
al@261 179 tiny) selected_tiny="selected";;
al@261 180 1.0) selected_1="selected";;
al@261 181 2.0) selected_2="selected";;
al@261 182 3.0) selected_3="selected";;
al@261 183 stable) selected_stable="selected";;
al@261 184 undigest) selected_undigest="selected";;
pascal@457 185 backports) selected_backports="selected";;
al@261 186 esac
pankso@230 187
pankso@452 188 #
pankso@452 189 # Unescape query and set vars
pankso@452 190 #
al@261 191 SEARCH="$(echo $SEARCH | sed 's/%2B/+/g; s/%3A/:/g; s|%2F|/|g')"
pankso@452 192 SLITAZ_HOME="/home/slitaz"
pankso@451 193 if [ "$SLITAZ_VERSION" == "cooking" ]; then
pankso@451 194 WOK=$SLITAZ_HOME/wok
pankso@451 195 else
pankso@451 196 WOK=$SLITAZ_HOME/wok-${VERSION}
pankso@451 197 fi
pankso@451 198 pkgsrepo=$SLITAZ_HOME/$SLITAZ_VERSION/packages
pankso@451 199 filelist=$pkgsrepo/files.list.lzma
pankso@451 200 pkglist=$pkgsrepo/packages.txt
pankso@451 201 equiv=$pkgsrepo/packages.equiv
pankso@230 202
pankso@230 203 # Search form
al@284 204 # TODO: add hint 'You are can search for depends loop, if textfield is empty'...
al@284 205 # add progress ticker while page is not complete
pankso@230 206 search_form()
pankso@230 207 {
pankso@230 208 cat << _EOT_
pankso@230 209
al@293 210 <div class="form">
al@293 211 <form id="s_form" method="post" action="$SCRIPT_NAME$(ifdebug '?')">
al@284 212 <input type="hidden" name="lang" value="$lang" />
al@293 213 <span class="small">
al@293 214 <select name="object">
al@293 215 <option value="Package">$(gettext "Package")</option>
al@293 216 <option $selected_desc value="Desc">$(gettext "Description")</option>
al@293 217 <option $selected_tags value="Tags">$(gettext "Tags")</option>
slaxemulator@336 218 <option $selected_arch value="Arch">$(gettext "Arch")</option>
slaxemulator@336 219 <option $selected_bugs value="Bugs">$(gettext "Bugs")</option>
al@293 220 <option $selected_receipt value="Receipt">$(gettext "Receipt")</option>
al@293 221 <option $selected_depends value="Depends">$(gettext "Depends")</option>
al@293 222 <option $selected_build_depends value="BuildDepends">$(gettext "Build depends")</option>
al@293 223 <option $selected_file value="File">$(gettext "File")</option>
al@293 224 <option $selected_file_list value="File_list">$(gettext "File list")</option>
al@293 225 <option $selected_overlap value="FileOverlap">$(gettext "common files")</option>
al@293 226 </select>
al@293 227 </span>
al@293 228 <span class="stretch">
al@293 229 <input autofocus type="text" name="query" id="query" value="$SEARCH" />
al@293 230 </span>
al@293 231 <span class="small">
al@293 232 <select name="version">
al@293 233 <option value="cooking">$(gettext "cooking")</option>
al@293 234 <option $selected_stable value="stable">4.0</option>
al@293 235 <option $selected_3 value="3.0">3.0</option>
al@293 236 <option $selected_2 value="2.0">2.0</option>
al@293 237 <option $selected_1 value="1.0">1.0</option>
al@293 238 <option $selected_tiny value="tiny">$(gettext "tiny")</option>
al@293 239 <option $selected_undigest value="undigest">$(gettext "undigest")</option>
pascal@457 240 <option $selected_backports value="backports">$(gettext "backports")</option>
al@293 241 </select>
al@293 242 </span>
al@293 243 <span class="small">
al@293 244 <input type="submit" value="$(gettext 'Search')" />
al@293 245 </span>
pankso@230 246 </form>
al@293 247 </div>
pankso@230 248 _EOT_
pankso@230 249 }
pankso@230 250
al@261 251 # xHTML5 Header.
pankso@231 252 xhtml_header() {
al@261 253 . lib/header.sh
pankso@230 254 }
pankso@230 255
slaxemulator@336 256 cat_files_list()
slaxemulator@336 257 {
slaxemulator@336 258 local tmp=/tmp/files.list.$(basename ${1%/packages})
slaxemulator@336 259 if [ ! -s $tmp -o $1/files.list.lzma -nt $tmp ]; then
pascal@457 260 unlzma < $1/files.list.lzma > $tmp.$$ && mv $tmp.$$ $tmp
slaxemulator@336 261 fi
slaxemulator@336 262 case "$2" in
slaxemulator@336 263 lines) if [ ! -s $tmp.lines -o $tmp -nt $tmp.lines ]; then
pascal@457 264 wc -l < $tmp > $tmp.lines.$$ &&
slaxemulator@336 265 mv $tmp.lines.$$ $tmp.lines
slaxemulator@336 266 fi
slaxemulator@336 267 cat $tmp.lines ;;
slaxemulator@336 268 *) cat $tmp ;;
slaxemulator@336 269 esac
slaxemulator@336 270 }
slaxemulator@336 271
pankso@230 272 # xHTML Footer.
al@284 273 # TODO: caching the summary for 5 minutes
pankso@231 274 xhtml_footer() {
al@261 275 PKGS=$(ls $WOK/ | wc -l)
pascal@457 276 #FILES=$(unlzma < $filelist | wc -l)
al@284 277 . lib/footer.sh
pankso@230 278 }
pankso@230 279
pankso@230 280 installed_size()
pankso@230 281 {
al@284 282 if [ $VERBOSE -gt 0 ]; then
slaxemulator@320 283 inst=$(grep -A 3 "^$1\$" $pkgslist | grep installed)
al@284 284 # size=$(echo $inst | cut -d'(' -f2 | cut -d' ' -f1)
al@284 285 echo $inst | sed 's/.*(\(.*\).*/(\1)/'
al@284 286 # echo $size
al@284 287 # | sed 's/.*(\(.*\) installed.*/(\1) /'
al@284 288 fi
pankso@230 289 }
pankso@230 290
al@293 291 oddeven() {
al@293 292 ifEven=$(cat $HOME/ifEven)
al@293 293 [ "$1" == "1" ] && ifEven="0"
al@293 294 case "$ifEven" in
al@293 295 "0") ifEven="1"; echo -n " class=\"even\"";;
al@293 296 "1") ifEven="0";;
al@293 297 esac
al@293 298 echo -n "$ifEven" > $HOME/ifEven
al@293 299 }
al@293 300
al@293 301 package_entry() {
al@293 302 cat << EOT
al@293 303 <tr$(oddeven $1)>
al@293 304 EOT
al@293 305 if [ -s "$(dirname $0)/$SLITAZ_VERSION/$CATEGORY.html" ]; then
al@293 306 cat << _EOT_
al@293 307 <td class="first"><a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a></td>
al@293 308 <td class="first">$(installed_size $PACKAGE)</td>
al@293 309 <td>$SHORT_DESC</td>
pankso@230 310 _EOT_
al@293 311 else
slaxemulator@336 312 PACKAGE_URL="$MIRROR_URL/packages/$SLITAZ_VERSION/$PACKAGE-$VERSION$EXTRA_VERSION.tazpkg"
al@293 313 PACKAGE_HREF="<a href=\"$PACKAGE_URL\">$PACKAGE</a>"
pascal@456 314 case "$SLITAZ_VERSION" in
pascal@456 315 cooking) COOKER="<a href=\"http://cook.slitaz.org/cooker.cgi?pkg=$PACKAGE\">$(gettext "Cooker")</a>";;
pascal@456 316 undigest) COOKER="<a href=\"http://cook.slitaz.org/undigest/cooker.cgi?pkg=$PACKAGE\">$(gettext "Cooker")</a>";;
pascal@456 317 backports) COOKER="<a href=\"http://cook.slitaz.org/backports/cooker.cgi?pkg=$PACKAGE\">$(gettext "Cooker")</a>";;
pascal@456 318 *) COOKER="";;
pascal@456 319 esac
al@293 320 cat << _EOT_
al@293 321 <td class="first">$PACKAGE_HREF</td>
al@293 322 <td class="first">$(installed_size $PACKAGE)</td>
pascal@457 323 <td>$SHORT_DESC</td>
pascal@457 324 <td><a href="?receipt=$PACKAGE&amp;version=$SLITAZ_VERSION">$(gettext "Receipt")</a> $COOKER</td>
pankso@230 325 _EOT_
al@293 326 fi
al@293 327 cat << EOT
al@293 328 </tr>
al@293 329 EOT
al@293 330 }
slaxemulator@336 331
al@293 332 package_entry_inline() {
al@293 333 if [ -s "$(dirname $0)/$SLITAZ_VERSION/$CATEGORY.html" ]; then
al@293 334 cat << _EOT_
al@293 335 <a href="$SLITAZ_VERSION/$CATEGORY.html#$PACKAGE">$PACKAGE</a> $(installed_size $PACKAGE) : $SHORT_DESC
al@293 336 _EOT_
al@293 337 else
slaxemulator@336 338 PACKAGE_URL="$MIRROR_URL/packages/$SLITAZ_VERSION/$PACKAGE-$VERSION$EXTRA_VERSION.tazpkg"
al@293 339 PACKAGE_HREF="<a href=\"$PACKAGE_URL\">$PACKAGE</a>"
pascal@456 340 case "$SLITAZ_VERSION" in
pascal@456 341 cooking) COOKER="<a href=\"http://cook.slitaz.org/cooker.cgi?pkg=$PACKAGE\">$(gettext "Cooker")</a>";;
pascal@456 342 undigest) COOKER="<a href=\"http://cook.slitaz.org/undigest/cooker.cgi?pkg=$PACKAGE\">$(gettext "Cooker")</a>";;
pascal@456 343 backports) COOKER="<a href=\"http://cook.slitaz.org/backports/cooker.cgi?pkg=$PACKAGE\">$(gettext "Cooker")</a>";;
pascal@456 344 *) COOKER="";;
pascal@456 345 esac
al@293 346 cat << _EOT_
pascal@456 347 $PACKAGE_HREF $(installed_size $PACKAGE) : $SHORT_DESC \
pascal@456 348 <a href="?receipt=$PACKAGE&amp;version=$SLITAZ_VERSION">$(gettext "Receipt")</a> $COOKER
al@293 349 _EOT_
al@293 350 fi
pankso@230 351 }
pankso@230 352
pankso@230 353 # Show loop in depends/build_depends chains
pankso@230 354 show_loops()
pankso@230 355 {
pankso@230 356 awk '
pankso@230 357 function chkloop(pkg, i, n)
pankso@230 358 {
pankso@230 359 if (n < 8)
pankso@230 360 for (i = 1; i <= split(deps[pkg],curdep," "); i++) {
pankso@230 361 if (curdep[i] == base || chkloop(curdep[i], 0, n+1)) {
pankso@230 362 split(deps[pkg],curdep," ")
pankso@230 363 p = curdep[i] " " p
pankso@230 364 return 1
pankso@230 365 }
pankso@230 366 }
pankso@230 367 return 0
pankso@230 368 }
pankso@230 369 {
pankso@230 370 for (i = 2; i <= NF; i++)
pankso@230 371 deps[$1] = deps[$1] " " $i
pankso@230 372 }
pankso@230 373 END {
pankso@230 374 for (pkg in deps) {
pankso@230 375 base = pkg
pankso@230 376 p = ""
pankso@230 377 if (chkloop(pkg, 0, 0))
pankso@230 378 print pkg " " p
pankso@230 379 #print pkg " : " p "..."
pankso@230 380 }
pankso@230 381 }' | while read line; do
pankso@230 382 set -- $line
pankso@230 383 case " $last " in
pankso@230 384 *\ $1\ *) continue
pankso@230 385 esac
pankso@230 386 last="$line"
pankso@230 387 pkg=$1
pankso@230 388 shift
al@284 389 echo "<strong>$pkg </strong>: $@ ..."
pankso@230 390 done
pankso@230 391 }
pankso@230 392
pankso@230 393 # recursive dependencies scan
pankso@230 394 dep_scan()
pankso@230 395 {
pankso@230 396 for i in $1; do
pankso@230 397 case " $ALL_DEPS " in
pankso@230 398 *\ $i\ *) continue;;
pankso@230 399 esac
pankso@230 400 ALL_DEPS="$ALL_DEPS $i"
pankso@230 401 if [ -n "$2" ]; then
pankso@230 402 echo -n "$2"
pankso@230 403 (
pankso@230 404 . $WOK/$i/receipt
al@293 405 package_entry_inline
pankso@230 406 )
pankso@230 407 fi
pankso@230 408 [ -f $WOK/$i/receipt ] || continue
slaxemulator@336 409 unset BUILD_DEPENDS DEPENDS WANTED
pankso@230 410 . $WOK/$i/receipt
pankso@230 411 if [ -n "$3" ]; then
al@236 412 [ -n "$BUILD_DEPENDS$WANTED" ] &&
pankso@230 413 dep_scan "$WANTED $BUILD_DEPENDS" "$2 " $3
pankso@230 414 else
pankso@230 415 [ -n "$DEPENDS" ] && dep_scan "$DEPENDS" "$2 "
pankso@230 416 fi
pankso@230 417 done
pankso@230 418 }
pankso@230 419
pankso@230 420 # recursive reverse dependencies scan
pankso@230 421 rdep_scan()
pankso@230 422 {
pankso@230 423 SEARCH=$1
pankso@230 424 case "$SEARCH" in
al@261 425 glibc-base|gcc-lib-base)
al@261 426 $(gettext " glibc-base and gcc-lib-base are implicit dependencies,
al@261 427 <b>every</b> package is supposed to depend on them."); echo
pankso@230 428 return;;
pankso@230 429 esac
pankso@230 430 for i in $WOK/* ; do
slaxemulator@336 431 unset BUILD_DEPENDS DEPENDS WANTED
pankso@230 432 . $i/receipt
pankso@230 433 if [ -n "$2" ]; then
pankso@230 434 echo "$(basename $i) $(echo $WANTED $BUILD_DEPENDS)"
pankso@230 435 else
pankso@230 436 echo "$(basename $i) $(echo $DEPENDS)"
pankso@230 437 fi
pankso@230 438 done | awk -v search=$SEARCH '
pankso@230 439 function show_deps(deps, all_deps, pkg, space)
pankso@230 440 {
pankso@230 441 if (all_deps[pkg] == 1) return
pankso@230 442 all_deps[pkg] = 1
pankso@230 443 if (space != "") printf "%s%s\n",space,pkg
pankso@230 444 for (i = 1; i <= split(deps[pkg], mydeps, " "); i++) {
pankso@230 445 show_deps(deps, all_deps, mydeps[i],"////" space)
pankso@230 446 }
pankso@230 447 }
pankso@230 448
pankso@230 449 {
pankso@230 450 all_deps[$1] = 0
pankso@230 451 for (i = 2; i <= NF; i++)
pankso@230 452 deps[$i] = deps[$i] " " $1
pankso@230 453 }
pankso@230 454
pankso@230 455 END {
pankso@230 456 show_deps(deps, all_deps, search, "")
pankso@230 457 }
pankso@230 458 ' | while read pkg; do
pankso@230 459 . $WOK/${pkg##*/}/receipt
pankso@230 460 cat << _EOT_
al@293 461 $(echo ${pkg%/*} | sed 's|/| |g') $(package_entry_inline)
pankso@230 462 _EOT_
pankso@230 463 done
pankso@230 464 }
pankso@230 465
pankso@230 466 # Check package exists
pankso@230 467 package_exist()
pankso@230 468 {
pankso@230 469 [ -f $WOK/$1/receipt ] && return 0
pankso@230 470 cat << _EOT_
pankso@230 471
al@261 472 <h3>$(eval_gettext "No package \$SEARCH")</h3>
pankso@230 473 _EOT_
pankso@230 474 return 1
pankso@230 475 }
pankso@230 476
pankso@230 477 # Display < > &
al@293 478 htmlize() {
pankso@230 479 sed -e 's/&/\&amp;/g' -e 's/</\&lt;/g' -e 's/>/\&gt;/g'
pankso@230 480 }
pankso@230 481
al@293 482 display_packages_and_files() {
slaxemulator@336 483 unset last
pankso@230 484 while read pkg file; do
pankso@230 485 pkg=${pkg%:}
pankso@230 486 if [ "$pkg" != "$last" ]; then
pankso@230 487 . $WOK/$pkg/receipt
al@236 488
al@293 489 package_entry_inline
pankso@230 490 last=$pkg
pankso@230 491 fi
pankso@230 492 echo " $file"
pankso@230 493 done
pankso@230 494 }
pankso@230 495
al@293 496 # Syntax highlighting for receipt file - stolen from tazpanel:
al@293 497 # '/var/www/tazpanel/lib/libtazpanel' and developed
al@293 498 syntax_highlighter() {
pascal@457 499 sed -e "s|\&|\&amp;|g; s|<|\&lt;|g; s|>|\&gt;|g; s| | |g" \
al@293 500 -e "s|@|\&#64;|g; s|~|\&#126;|g" \
al@293 501 -e "#literals" \
al@293 502 -e "s|'\([^']*\)'|@l\0~|g" \
al@293 503 -e 's|"\([^"]*\)"|@l\0~|g' \
al@293 504 -e 's|"\([^"]*\)\\|@l\0~|g' \
al@293 505 -e 's|\([^"]*\)\"$|@l\0~|g' \
al@293 506 -e "#paths" \
al@293 507 -e 's|\([ =]\)\([a-zA-Z0-9/-]*/[\$a-zA-Z0-9/\.-]\+\)\([ )]\)|\1@p\2~\3|g' \
al@293 508 -e 's|\([ =]\)\([a-zA-Z0-9/-]*/[\$a-zA-Z0-9/\.-]\+$\)|\1@p\2~|g' \
al@293 509 -e 's|\(\$[a-zA-Z0-9_\.-]\+\)\(/[\$a-zA-Z0-9_/\.\*-]\+\)\([ )]*\)|@p\1\2~\3|g' \
al@293 510 -e "#functions" \
al@293 511 -e 's|^\([^()]*\)\(()\)|@f\0~|g' \
al@293 512 -e "#single line comments" \
al@293 513 -e 's|^\([ ]*\)#\([^#]*$\)|@c\0~|g' \
al@293 514 -e "#parameters" \
al@293 515 -e 's|\( \)\(-[a-z0-9]\+\)\( *\)|\1@r\2~\3|g' \
al@293 516 -e 's|\( \)\(--[a-z0-9\-]\+\)\([= ]\)|\1@r\2~\3|g' \
al@293 517 -e "#variables" \
al@293 518 -e "s|^\([^=@#' \-]*\)\(=\)|@v\1~\2|g" \
al@293 519 -e 's|\([ ^@-]*\)\([a-zA-Z0-9]\+\)\(=\)|\1@v\2~\3|g' \
al@293 520 -e "s#\(\$[a-zA-Z0-9_]\+\)#@v\0~#g" \
al@293 521 -e "#urls" \
al@293 522 -e s"#\"\(http:[^\"\$ ]*\)\"#\"<a @u href=\0>\1</a>\"#"g \
al@293 523 -e s"#\"\(ftp:[^\"\$ ]*\)\"#\"<a @u href=\0>\1</a>\"#"g \
al@293 524 -e "#commands" \
al@293 525 -e s"#^\( \+\)\([^'= @\-]\+\)#\1@m\2~#"g \
al@293 526 -e "#simple commands" \
al@293 527 -e s"#\([{}\]$\)#@s\0~#"g \
al@293 528 -e s"#\( \)\(\&amp;\&amp;\)\( *\)#\1@s\2~\3#"g \
al@293 529 -e s"#\(|\)#@s\0~#"g \
al@293 530 -e s"#\(\&lt;\)#@s\0~#"g \
al@293 531 -e s"#\(\&gt;\&amp;\)#@s\0~#"g \
al@293 532 -e s"#\(\&gt;\)#@s\0~#"g \
al@293 533 -e s"#\(\[\)#@s\0~#"g \
al@293 534 -e s"#\(\]\)#@s\0~#"g \
al@293 535 \
al@293 536 -e "s|´|'|g; s|›|</span>|g" \
al@293 537 -e "s|@c|<span class='r-comment'>|g" \
al@293 538 -e "s|@l|<span class='r-literal'>|g" \
al@293 539 -e "s|@v|<span class='r-var'>|g" \
al@293 540 -e "s|@f|<span class='r-func'>|g" \
al@293 541 -e "s|@u|class='r-url' target='_blank'|g" \
al@293 542 -e "s|@m|<span class='r-com'>|g" \
al@293 543 -e "s|@s|<span class='r-scom'>|g" \
al@293 544 -e "s|@p|<span class='r-path'>|g" \
al@293 545 -e "s|@r|<span class='r-param'>|g" \
pascal@457 546 -e "s|~|</span>|g" < "$1"
al@293 547 }
al@293 548
al@293 549
al@293 550 #
al@293 551 # page begins
al@293 552 #
al@293 553 header "HTTP/1.1 200 OK" "Content-type: text/html"
al@284 554 xhtml_header
al@284 555
pankso@266 556 #
al@293 557 # language selector, if needed
al@293 558 #
al@293 559 if [ -z "$HTTP_ACCEPT_LANGUAGE" ]; then
al@293 560 oldlang=$(GETPOST lang)
al@293 561 if [ -z "$oldlang" ]; then
al@293 562 oldlang="C"
al@293 563 [ -z "$QUERY_STRING" ] && QUERY_STRING="lang=C" || QUERY_STRING="${QUERY_STRING}&lang=C"
al@293 564 fi
al@293 565 cat << EOT
al@293 566 <!-- Languages -->
al@293 567 <div id="lang">
al@293 568 EOT
al@293 569 for i in en de fr pt ru zh; do
al@293 570 cat << EOT
al@293 571 <a href="$SCRIPT_NAME?$(echo "$QUERY_STRING" | sed s/"lang=$oldlang"/"lang=$i"/)">$(
al@293 572 case $i in
al@293 573 en) echo -n "English";;
al@293 574 de) echo -n "Deutsch";;
al@293 575 fr) echo -n "Français";;
al@293 576 pt) echo -n "Português";;
al@293 577 ru) echo -n "Русский";;
al@293 578 zh) echo -n "中文";;
al@293 579 esac)</a>
al@293 580 EOT
al@293 581 done
al@293 582 cat << EOT
al@293 583 </div>
al@293 584
al@293 585 EOT
al@293 586 fi
al@293 587
al@293 588 cat << EOT
al@293 589 <!-- Content -->
al@293 590 <div id="content">
al@293 591 EOT
al@293 592
al@293 593 #
pankso@266 594 # Handle GET requests
pankso@266 595 #
pankso@266 596 case " $(GET) " in
al@284 597 *\ debug\ *|*\ debug*)
al@284 598 cat << EOT
al@284 599 <h2>Debug info</h2>
al@284 600 <pre>$(httpinfo)</pre>
al@284 601 <pre>LANG=$LANG;
al@284 602 OBJECT=$OBJECT;
al@284 603 SEARCH=$SEARCH;
al@284 604 SLITAZ_VERSION=$SLITAZ_VERSION;
al@284 605 WOK=$WOK;
al@293 606 GET=$(GET);
al@284 607 </pre>
al@284 608 EOT
al@284 609 #$(xhtml_footer)
al@284 610 #EOT
al@284 611 # exit 0
al@284 612 ;;
pankso@266 613 esac
pankso@266 614
pankso@230 615 # Display search form and result if requested.
al@284 616 #xhtml_header
al@293 617 cat << EOT
al@293 618 <h2>$(gettext 'Search for packages')</h2>
al@293 619 <div id="ticker"><img src="style/images/loader.gif" alt="." /></div>
al@293 620 EOT
al@284 621 search_form
al@284 622
al@293 623
al@284 624 case "$OBJECT" in
al@284 625
al@284 626
al@284 627 ### Depends loops; [Reverse] Dependency tree [(SUGGESTED)]
al@284 628 Depends)
al@284 629 if [ -z "$SEARCH" ]; then
al@284 630 cat << _EOT_
pankso@230 631
al@261 632 <h3>$(gettext "Depends loops")</h3>
pankso@235 633 <pre>
pankso@230 634 _EOT_
al@284 635 for i in $WOK/*/receipt; do
al@284 636 PACKAGE=
al@284 637 DEPENDS=
al@284 638 . $i
al@284 639 echo "$PACKAGE $(echo $DEPENDS)"
al@284 640 done | show_loops
al@284 641 cat << _EOT_
pankso@230 642 </pre>
pankso@230 643 _EOT_
al@284 644 elif package_exist $SEARCH ; then
al@284 645 cat << _EOT_
pankso@230 646
al@261 647 <h3>$(eval_gettext "Dependency tree for: \$SEARCH")</h3>
pankso@235 648 <pre>
pankso@230 649 _EOT_
slaxemulator@336 650 unset ALL_DEPS
al@284 651 dep_scan $SEARCH ""
slaxemulator@336 652 unset SUGGESTED
al@284 653 . $WOK/$SEARCH/receipt
al@284 654 if [ -n "$SUGGESTED" ]; then
al@284 655 cat << _EOT_
pankso@230 656 </pre>
pankso@230 657
al@261 658 <h3>$(eval_gettext "Dependency tree for: \$SEARCH (SUGGESTED)")</h3>
pankso@235 659 <pre>
pankso@230 660 _EOT_
slaxemulator@336 661 unset ALL_DEPS
al@284 662 dep_scan "$SUGGESTED" " "
al@284 663 fi
al@284 664 cat << _EOT_
pankso@230 665 </pre>
pankso@230 666
al@261 667 <h3>$(eval_gettext "Reverse dependency tree for: \$SEARCH")</h3>
pankso@235 668 <pre>
pankso@230 669 _EOT_
slaxemulator@336 670 unset ALL_DEPS
al@284 671 rdep_scan $SEARCH
al@284 672 cat << _EOT_
pankso@230 673 </pre>
pankso@230 674 _EOT_
al@284 675 fi
al@284 676 ;;
al@284 677
al@284 678
al@284 679 ### Build depends loops; [Reverse] Build dependency tree
al@284 680 BuildDepends)
al@284 681 if [ -z "$SEARCH" ]; then
al@284 682 cat << _EOT_
pankso@230 683
al@261 684 <h3>$(gettext "Build depends loops")</h3>
pankso@235 685 <pre>
pankso@230 686 _EOT_
al@284 687 for i in $WOK/*/receipt; do
al@284 688 PACKAGE=
al@284 689 WANTED=
al@284 690 BUILD_DEPENDS=
al@284 691 . $i
al@284 692 echo "$PACKAGE $WANTED $(echo $BUILD_DEPENDS)"
al@284 693 done | show_loops
al@284 694 cat << _EOT_
pankso@230 695 </pre>
pankso@230 696 _EOT_
al@284 697 elif package_exist $SEARCH ; then
al@284 698 cat << _EOT_
pankso@230 699
al@261 700 <h3>$(eval_gettext "\$SEARCH needs these packages to be built")</h3>
pankso@235 701 <pre>
pankso@230 702 _EOT_
slaxemulator@336 703 unset ALL_DEPS
al@284 704 dep_scan $SEARCH "" build
al@284 705 cat << _EOT_
pankso@230 706 </pre>
pankso@230 707
al@261 708 <h3>$(eval_gettext "Packages who need \$SEARCH to be built")</h3>
pankso@235 709 <pre>
pankso@230 710 _EOT_
slaxemulator@336 711 unset ALL_DEPS
al@284 712 rdep_scan $SEARCH build
al@284 713 cat << _EOT_
pankso@230 714 </pre>
pankso@230 715 _EOT_
al@284 716 fi
al@284 717 ;;
al@284 718
al@284 719
al@284 720 ### Common files
al@284 721 FileOverlap)
pascal@318 722 if package_exist $SEARCH; then
al@284 723 cat << _EOT_
pankso@230 724
al@261 725 <h3>$(eval_gettext "These packages may overload files of \$SEARCH")</h3>
pankso@235 726 <pre>
pankso@230 727 _EOT_
pascal@457 728 ( unlzma < $filelist | grep ^$SEARCH: ;
pascal@457 729 unlzma < $filelist | grep -v ^$SEARCH: ) | awk '
pankso@230 730 BEGIN { pkg=""; last="x" }
pankso@230 731 {
pankso@230 732 if ($2 == "") next
pankso@230 733 if (index($2,last) == 1 && substr($2,1+length(last),1) == "/")
pankso@230 734 delete file[last]
pankso@230 735 last=$2
pankso@230 736 if (pkg == "") pkg=$1
pankso@230 737 if ($1 == pkg) file[$2]=$1
pankso@230 738 else if (file[$2] == pkg) print
pankso@230 739 }
pankso@230 740 ' | display_packages_and_files
pankso@230 741 cat << _EOT_
pankso@230 742 </pre>
pankso@230 743 _EOT_
al@284 744 fi
al@284 745 ;;
al@284 746
al@284 747
al@284 748 ### File search
al@284 749 File)
al@284 750 if [ -n "$SEARCH" ]; then
pankso@230 751 cat << _EOT_
pankso@230 752
al@261 753 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
al@293 754 <table>
pankso@230 755 _EOT_
slaxemulator@336 756 unset last
pascal@457 757 unlzma < $filelist \
pankso@230 758 | grep "$SEARCH" | while read pkg file; do
pankso@230 759 echo "$file" | grep -q "$SEARCH" || continue
pankso@230 760 if [ "$last" != "${pkg%:}" ]; then
pankso@230 761 last=${pkg%:}
pankso@230 762 (
pankso@230 763 . $WOK/$last/receipt
al@293 764 [ -n "$last" ] && cat << EOT
al@293 765 </td></tr>
al@293 766 EOT
pankso@230 767 cat << _EOT_
pankso@230 768
al@293 769 $(package_entry 1)
al@293 770 <tr><td colspan="3" class="pre">
pankso@230 771 _EOT_
pankso@230 772 )
pankso@230 773 fi
al@293 774 echo -n "$file" | sed s/"$SEARCH"/"<span class='match'>$SEARCH<\/span>"/g
al@293 775 echo "<br />"
pankso@230 776 done
al@284 777 cat << _EOT_
al@293 778 </td></tr>
al@293 779 </table>
al@284 780 _EOT_
al@284 781 fi
al@284 782 ;;
al@284 783
al@284 784
al@284 785 ### List of files
al@284 786 File_list)
al@284 787 if package_exist $SEARCH; then
al@284 788 cat << _EOT_
pankso@230 789
al@261 790 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
pankso@235 791 <pre>
pankso@230 792 _EOT_
slaxemulator@336 793 unset last
pascal@457 794 unlzma < $filelist \
al@293 795 | grep ^$SEARCH: | sed 's/.*: / /' | sort
al@284 796 cat << _EOT_
pankso@230 797 </pre>
pankso@235 798 <pre>
al@284 799 _EOT_
pascal@457 800 filenb=$(unlzma < $filelist | grep ^$SEARCH: | wc -l)
al@284 801 eval_ngettext "\$filenb file" "\$filenb files" $filenb
al@284 802 cat << _EOT_
al@284 803 \
slaxemulator@320 804 $(busybox sed -n "/^$SEARCH$/{nnnpq}" $pkglist)
al@284 805 </pre>
pankso@230 806 _EOT_
al@284 807 fi
al@284 808 ;;
al@284 809
al@284 810
al@284 811 ### Package description
al@284 812 Desc)
al@284 813 if [ -f $WOK/$SEARCH/description.txt ]; then
al@284 814 cat << _EOT_
pankso@230 815
al@293 816 <h3>$(eval_gettext "Description of package: \$SEARCH")</h3>
al@293 817 <table>
pankso@230 818 $(htmlize < $WOK/$SEARCH/description.txt)
al@293 819 </table>
pankso@230 820 _EOT_
al@284 821 else
pankso@230 822 cat << _EOT_
pankso@230 823
al@261 824 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
al@293 825 <table>
pankso@230 826 _EOT_
slaxemulator@336 827 unset last
pankso@451 828 grep -i "$SEARCH" $pkgsrepo/packages.desc | \
al@284 829 sort | while read pkg extras ; do
al@284 830 . $WOK/$pkg/receipt
al@284 831 package_entry
al@284 832 done
al@284 833 cat << _EOT_
al@293 834 </table>
al@284 835 _EOT_
al@284 836 fi
al@284 837 ;;
al@284 838
slaxemulator@336 839 Bugs)
slaxemulator@336 840 cat << _EOT_
slaxemulator@336 841
slaxemulator@336 842 <h3>$(eval_gettext "Result for known bugs")</h3>
slaxemulator@336 843 <pre>
slaxemulator@336 844 _EOT_
slaxemulator@336 845 unset last
slaxemulator@336 846 grep ^BUGS= $WOK/*/receipt | \
slaxemulator@336 847 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
slaxemulator@336 848 unset BUGS
slaxemulator@336 849 . $WOK/$pkg/receipt
slaxemulator@336 850 package_entry_inline
slaxemulator@336 851 echo " $BUGS "
slaxemulator@336 852 done
slaxemulator@336 853 cat << _EOT_
slaxemulator@336 854 </pre>
slaxemulator@336 855 _EOT_
slaxemulator@336 856 ;;
slaxemulator@336 857
slaxemulator@336 858
slaxemulator@336 859 ### Arch
slaxemulator@336 860 Arch)
slaxemulator@336 861 cat << _EOT_
slaxemulator@336 862
slaxemulator@336 863 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
slaxemulator@336 864 <pre>
slaxemulator@336 865 _EOT_
slaxemulator@336 866 unset last
slaxemulator@336 867 grep ^HOST_ARCH= $WOK/*/receipt | grep -i "$SEARCH" | \
slaxemulator@336 868 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
slaxemulator@336 869 unset HOST_ARCH
slaxemulator@336 870 . $WOK/$pkg/receipt
slaxemulator@336 871 echo " $HOST_ARCH " | grep -iq " $SEARCH " &&
slaxemulator@336 872 package_entry_inline
slaxemulator@336 873 done
slaxemulator@336 874 cat << _EOT_
slaxemulator@336 875 </pre>
slaxemulator@336 876 _EOT_
slaxemulator@336 877 ;;
al@284 878
al@284 879 ### Tags
al@284 880 Tags)
pascal@312 881 if [ -n "$SEARCH" ]; then
pascal@312 882 cat << _EOT_
al@284 883
al@284 884 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
al@293 885 <table>
al@284 886 _EOT_
slaxemulator@336 887 unset last
pascal@312 888 grep ^TAGS= $WOK/*/receipt | grep -i "$SEARCH" | \
pascal@312 889 sed "s|$WOK/\(.*\)/receipt:.*|\1|" | sort | while read pkg ; do
pascal@312 890 . $WOK/$pkg/receipt
pascal@312 891 package_entry
pascal@312 892 done
pascal@312 893 cat << _EOT_
al@293 894 </table>
al@284 895 _EOT_
pascal@312 896 else
pascal@312 897 # Display tag cloud
pascal@312 898 grep -l ^TAGS= $WOK/*/receipt | while read file; do
pascal@312 899 TAGS=
pascal@312 900 . $file
pascal@312 901 echo $TAGS
pascal@312 902 done | awk '
pascal@312 903 {
pascal@312 904 for (i = 1; $i != ""; i++)
pascal@312 905 count[$i]++
pascal@312 906 }
pascal@312 907 END {
pascal@312 908 min=10000
pascal@312 909 max=0
pascal@312 910 for (i in count) {
pascal@312 911 if (count[i] < min) min = count[i]
pascal@312 912 if (count[i] > max) max = count[i]
pascal@312 913 }
pascal@312 914 for (i in count)
pascal@312 915 print count[i] " " min " " max " " i
pascal@312 916 }' | while read cnt min max tag ; do
pascal@312 917 cat <<EOT
pascal@312 918 <span style="color:#99f; font-size:9pt; padding-left:5px; padding-right:2px;">\
pascal@312 919 $cnt</span><a href="?tags=$tag&amp;version=$SLITAZ_VERSION" style="\
pascal@312 920 font-size:$((8+(($cnt-$min)*10)/($max-$min)))pt; font-weight:bold; \
pascal@312 921 color:black; text-decoration:none">$tag</a>
pascal@312 922 EOT
pascal@312 923 done
pascal@312 924 fi
al@284 925 ;;
al@284 926
al@284 927
al@293 928 ### Package receipt with syntax highlighter
al@284 929 Receipt)
al@293 930 if package_exist "$SEARCH"; then
al@293 931 cat << _EOT_
pankso@230 932
al@261 933 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
pankso@230 934 <pre>
pankso@230 935 _EOT_
al@293 936 if [ -f "$WOK/$SEARCH/taz/*/receipt" ]; then
al@293 937 syntax_highlighter "$WOK/$SEARCH/taz/*/receipt"
al@293 938 else
al@293 939 syntax_highlighter "$WOK/$SEARCH/receipt"
al@293 940 fi
al@293 941 echo '</pre>'
al@293 942 fi
al@284 943 ;;
al@284 944
al@284 945
al@284 946 ### Package
al@284 947 Package)
al@284 948 if package_exist $SEARCH; then
pankso@230 949 cat << _EOT_
pankso@230 950
al@261 951 <h3>$(eval_gettext "Result for: \$SEARCH")</h3>
al@293 952 <table>
pankso@230 953 _EOT_
pankso@230 954 for pkg in `ls $WOK/ | grep "$SEARCH"`
pankso@230 955 do
pankso@230 956 . $WOK/$pkg/receipt
pankso@451 957 DESC=" <p><a href=\"?object=Desc&query=$pkg&lang=$lang&version=$SLITAZ_VERSION$(ifdebug '&')&submit=go\">$(gettext description)</a><p>"
slaxemulator@336 958 [ -f $WOK/$pkg/description.txt ] || unset DESC
pankso@230 959 cat << _EOT_
pankso@230 960 $(package_entry)$DESC
pankso@230 961 _EOT_
pankso@230 962 done
pascal@457 963 vpkgs="$(cut -d= -f1 < $equiv | grep $SEARCH)"
pankso@230 964 for vpkg in $vpkgs ; do
al@284 965 cat << _EOT_
al@293 966 </table>
pankso@230 967
al@261 968 <h3>$(eval_gettext "Result for: \$SEARCH (package providing \$vpkg)")</h3>
al@293 969 <table>
pankso@230 970 _EOT_
pankso@230 971 for pkg in $(grep $vpkg= $equiv | sed "s/$vpkg=//"); do
pankso@230 972 . $WOK/${pkg#*:}/receipt
pankso@230 973 package_entry
pankso@230 974 done
pankso@230 975 done
al@284 976 cat << _EOT_
al@293 977 </table>
pankso@230 978 _EOT_
al@284 979 fi
al@284 980 ;;
al@284 981 esac
al@284 982
al@284 983 xhtml_footer
pankso@230 984
pankso@230 985 exit 0