cookutils: lighttpd/index.cgi annotate

cookutils annotate lighttpd/index.cgi @ rev 940

cook: improve patchit() and all_names(); modules/deps: change the cases upside down, show update stats (it not hangs); lighttpd/index.cgi: use split.db to make search datalist, and to search packages (no need to `ls` ~ 5000 dirs, just one file); lighttpd/cooker.css: style the matches in search page.

author	Aleksej Bobylev <al.bobylev@gmail.com>
date	Thu Jun 22 20:18:08 2017 +0300 (2017-06-22)
parents	5ae6788158f0
children	adda5217f721

rev	line source
al@898	1 #!/bin/sh
al@898	2 #
al@898	3 # SliTaz Cooker CGI + Lighttpd web interface.
al@898	4 #
al@898	5
al@898	6 # Make request URI relative to the script name
al@898	7 base="$(dirname "$SCRIPT_NAME")"; [ "$base" == '/' ] && base=''
al@898	8 REQUEST_URI=$(echo "$REQUEST_URI" \| sed "s\|^$base/\|/\|; s\|\?.\|\|")
al@898	9
al@898	10 # Split the URI request to /pkg/cmd/arg
al@898	11 export pkg=$(echo "$REQUEST_URI" \| cut -d/ -f2)
al@898	12 export cmd=$(echo "$REQUEST_URI" \| cut -d/ -f3)
al@898	13 export arg=$(echo "$REQUEST_URI" \| sed 's\|^/[^/]/[^/]/\|\|')
al@898	14
al@898	15
al@898	16 . /usr/lib/slitaz/httphelper.sh
al@898	17
al@898	18 [ -f "/etc/slitaz/cook.conf" ] && . /etc/slitaz/cook.conf
al@898	19 [ -f "./cook.conf" ] && . ./cook.conf
al@898	20 wok="$WOK"
al@898	21 title=${title:-SliTaz Cooker}
al@898	22 # Cooker DB files.
al@898	23 activity="$CACHE/activity"
al@898	24 commits="$CACHE/commits"
al@898	25 cooklist="$CACHE/cooklist"
al@898	26 cookorder="$CACHE/cookorder"
al@898	27 command="$CACHE/command"; touch $command
al@898	28 blocked="$CACHE/blocked"
al@898	29 broken="$CACHE/broken"
al@898	30 cooknotes="$CACHE/cooknotes"
al@898	31 cooktime="$CACHE/cooktime"
al@898	32 wokrev="$CACHE/wokrev"
al@933	33 webstat="$CACHE/webstat"
al@940	34 splitdb="$CACHE/split.db"
al@898	35
al@898	36 # Path to markdown to html convertor
al@898	37 cmark_opts='--smart -e table -e strikethrough -e autolink -e tagfilter'
al@898	38 if [ -n "$(which cmark 2>/dev/null)" ]; then
al@898	39 md2html="$(which cmark) $cmark_opts"
al@898	40 elif [ -x "./cmark" ]; then
al@898	41 md2html="./cmark $cmark_opts"
al@898	42 elif [ -n "$(which sundown 2>/dev/null)" ]; then
al@898	43 md2html=$(which sundown)
al@898	44 elif [ -x "./sundown" ]; then
al@898	45 md2html="./sundown"
al@898	46 fi
al@898	47
al@898	48
al@898	49
al@898	50
al@898	51 # Search form redirection
al@898	52 if [ -n "$(GET search)" ]; then
al@898	53 echo -e "HTTP/1.1 301 Moved Permanently\nLocation: $base/$(GET q)\n\n"
al@898	54 exit 0
al@898	55 fi
al@898	56
al@898	57
al@898	58 # Show the running command and it's progression
al@898	59
al@898	60 running_command() {
al@898	61 state="$(cat $command)"
al@923	62 local pct=''
al@898	63 if [ -n "$state" ];then
al@898	64 echo -n "$state</td></tr><tr><td>Completion</td>"
al@898	65 set -- $(grep "^$state" $cooktime)
al@898	66 [ -n "$1" -a $2 -ne 0 ] && pct=$((($(date +%s)-$3)*100/$2))
al@898	67 [ -n "$pct" ] && max="max='100'"
al@898	68 echo -n "<td><progress id='gauge' $max value='$pct' title='Click to stop updating' onclick='stopUpdating()'>"
al@898	69 echo -n "</progress> <span id='pct'>${pct:-?}%</span>"
al@898	70 [ "$2" -gt 60 ] &&
al@898	71 echo -n "</td></tr><tr><td>Estimated end time</td><td>$(date +%H:%M -ud @$(($2+$3)))"
al@898	72 else
al@898	73 echo 'not running'
al@898	74 fi
al@898	75 }
al@898	76
al@898	77
al@898	78 # HTML page header
al@898	79
al@898	80 page_header() {
al@898	81 local theme t='' css
al@898	82 theme=$(COOKIE theme)
al@898	83 [ "$theme" == 'default' ] && theme=''
al@898	84 [ -n "$theme" ] && theme="-$theme"
al@898	85 css="cooker$theme.css"
al@898	86
al@898	87 echo -e 'Content-Type: text/html; charset=UTF-8\n'
al@898	88
al@898	89 cat <<EOT
al@898	90 <!DOCTYPE html>
al@898	91 <html lang="en">
al@898	92 <head>
al@898	93 <title>$([ -n "$pkg" ] && echo "$pkg - ")$title</title>
al@898	94 <link rel="stylesheet" href="/$css">
al@898	95 <link rel="icon" type="image/png" href="/slitaz-cooker.png">
al@903	96 <link rel="search" href="$base/os.xml" title="$title" type="application/opensearchdescription+xml">
al@898	97 <!-- mobile -->
al@898	98 <meta name="viewport" content="width=device-width, initial-scale=1.0">
al@898	99 <meta name="theme-color" content="#222">
al@898	100 <!-- rss -->
al@898	101 <link rel="alternate" type="application/rss+xml" title="$title Feed" href="?rss">
al@898	102 </head>
al@898	103 <body>
al@898	104 <div id="container">
al@898	105 <header>
al@898	106 <h1><a href="$base/">$title</a></h1>
al@898	107 <div class="network">
al@898	108 <a href="http://www.slitaz.org/">Home</a>
al@898	109 <a href="http://bugs.slitaz.org/">Bugs</a>
al@898	110 <a href="http://hg.slitaz.org/wok-next/">Hg</a>
al@898	111 <a href="http://roadmap.slitaz.org/">Roadmap</a>
al@898	112 <a href="http://pizza.slitaz.me/">Pizza</a>
al@898	113 <a href="http://tank.slitaz.org/">Tank</a>
al@898	114 \|
al@898	115 <a href="$base/cross/">Cross</a>
al@898	116 <a href="$base/i486.cgi">i486</a>
al@898	117 <a href="$base/cookiso.cgi">ISO</a>
al@898	118 <select onChange="window.location.href=this.value" style="display: none">
al@898	119 <option value=".">Go to…</option>
al@898	120 <option value="http://www.slitaz.org/">Home</option>
al@898	121 <option value="http://bugs.slitaz.org/">Bug tracker</option>
al@898	122 <option value="http://hg.slitaz.org/wok/">Hg wok</option>
al@898	123 <option value="http://roadmap.slitaz.org/">Roadmap</option>
al@898	124 <option value="http://pizza.slitaz.me/">Pizza</option>
al@898	125 <option value="http://tank.slitaz.org/">Tank</option>
al@898	126 <option disabled>---------</option>
al@898	127 <option value="cross/">Cross</option>
al@898	128 <option value="i486.cgi">i486</option>
al@898	129 <option value="cookiso.cgi">ISO</option>
al@898	130 </select>
al@898	131 </div>
al@898	132 </header>
al@898	133
al@898	134 <main>
al@898	135 EOT
al@898	136
al@898	137 [ -n "$(GET debug)" ] && echo "<pre><code class='language-ini'>$(env \| sort)</code></pre>"
al@898	138 }
al@898	139
al@898	140
al@898	141 # HTML page footer
al@898	142
al@898	143 page_footer() {
al@898	144 date_now=$(date +%s)
al@898	145 sec_now=$(date +%S); sec_now=${sec_now#0} # remove one leading zero
al@898	146 wait_sec=$(( 60 - $sec_now ))
al@898	147 cat <<EOT
al@898	148 </main>
al@898	149
al@898	150 <footer>
al@898	151 <a href="http://www.slitaz.org/">SliTaz Website</a>
al@898	152 <a href="$base/">Cooker</a>
al@898	153 <a href="$base/doc/cookutils/cookutils.html">Documentation</a>
al@898	154 <a href="$base/?theme">Theme</a>
al@898	155 </footer>
al@898	156 </div>
al@898	157 <script src="/cooker.js"></script>
al@898	158 <script>refreshDate(${wait_sec}000, ${date_now}000)</script>
al@898	159 </body>
al@898	160 </html>
al@898	161 EOT
al@898	162 }
al@898	163
al@898	164
al@898	165 show_note() {
al@898	166 echo "<div class='bigicon-$1'>$2</div>"
al@898	167 }
al@898	168
al@898	169
al@898	170 not_found() {
al@898	171 local file="${1#$PKGS/}"; file="${file#$LOGS/}"; file="${file#$WOK/}"
al@898	172 echo "HTTP/1.1 404 Not Found"
al@898	173 page_header
al@898	174 echo "<h2>Not Found</h2>"
al@898	175 case $2 in
al@898	176 pkg)
al@898	177 show_note e "The requested package “$(basename "$(dirname "$file")")” was not found." ;;
al@898	178 *)
al@898	179 show_note e "The requested file “$file” was not found." ;;
al@898	180 esac
al@898	181 page_footer
al@898	182 }
al@898	183
al@898	184
al@898	185 manage_modified() {
al@898	186 local file="$1" option="$2" nul day mon year time hh mm ss date_s
al@898	187 if [ ! -f "$file" ]; then
al@898	188 if [ "$option" == 'silently-absent' ]; then
al@898	189 echo "HTTP/1.1 404 Not Found"
al@898	190 return
al@898	191 else
al@898	192 not_found "$file" "$2"
al@898	193 exit
al@898	194 fi
al@898	195 fi
al@898	196 [ "$option" == 'no-last-modified' ] && return
al@898	197 if [ -n "$HTTP_IF_MODIFIED_SINCE" ]; then
al@898	198 echo "$HTTP_IF_MODIFIED_SINCE" \| \
al@898	199 while read nul day mon year time nul; do
al@898	200 case $mon in
al@898	201 Jan) mon='01';; Feb) mon='02';; Mar) mon='03';; Apr) mon='04';;
al@898	202 May) mon='05';; Jun) mon='06';; Jul) mon='07';; Aug) mon='08';;
al@898	203 Sep) mon='09';; Oct) mon='10';; Nov) mon='11';; Dec) mon='12';;
al@898	204 esac
al@898	205 hh=$(echo $time \| cut -d: -f1)
al@898	206 mm=$(echo $time \| cut -d: -f2)
al@898	207 ss=$(echo $time \| cut -d: -f3)
al@898	208 date_s=$(date -ud "$year$mon$day$hh$mm.$ss" +%s)
al@898	209 # if [ "$date_s" -ge "$(date -ur "$file" +%s)" ]; then
al@898	210 # echo -e 'HTTP/1.1 304 Not Modified\n'
al@898	211 # exit
al@898	212 # fi
al@898	213 # TODO: improve caching control
al@898	214 done
al@898	215 fi
al@898	216 echo "Last-Modified: $(date -Rur "$file" \| sed 's\|UTC\|GMT\|')"
al@898	217 echo "Cache-Control: public, max-age=3600"
al@898	218 }
al@898	219
al@898	220
al@898	221 # Query '?pct=<package>': update percentage
al@898	222
al@898	223 if [ -n "$(GET pct)" ]; then
al@898	224 pkg="$(GET pct)"
al@898	225 state="$(cat $command)"
al@898	226 if [ "$state" == "cook:$pkg" ]; then
al@898	227 set -- $(grep "^$state" $cooktime)
al@898	228 [ -n "$1" ] && pct=$(( ($(date +%s) - $3) * 100 / $2 ))
al@898	229 echo "${pct:-?}"
al@898	230 else
al@898	231 echo 'reload'
al@898	232 fi
al@898	233 exit 0
al@898	234 fi
al@898	235
al@898	236
al@898	237 # Query '?poke': poke cooker
al@898	238
al@898	239 if [ -n "$(GET poke)" ]; then
al@898	240 touch $CACHE/cooker-request
al@898	241 echo -e "Location: ${HTTP_REFERER:-${REQUEST_URI%\?*}}\n"
al@898	242 exit
al@898	243 fi
al@898	244
al@898	245
al@898	246 # Query '?recook=<package>': query to recook package
al@898	247
al@898	248 if [ -n "$(GET recook)" ]; then
al@898	249 pkg="$(GET recook)"
al@898	250 case "$HTTP_USER_AGENT" in
al@898	251 SliTaz)
al@898	252 grep -qs "^$pkg$" $CACHE/recook-packages \|\|
al@898	253 echo "$pkg" >> $CACHE/recook-packages
al@898	254 esac
al@898	255 echo -e "Location: ${HTTP_REFERER:-${REQUEST_URI%\?*}}\n"
al@898	256 exit
al@898	257 fi
al@898	258
al@898	259
al@898	260 # Query '/i/<log>/<pkg>': show indicator icon
al@898	261 # Can't use ?query - not able to change '+' to '%2B' in the sed rules (see log handler)
al@898	262
al@898	263 if [ "$pkg" == 'i' ]; then
al@898	264 echo -en "Content-Type: image/svg+xml\n\n<svg xmlns='http://www.w3.org/2000/svg' height='12' width='8'><path d='"
al@898	265 if [ $LOGS/$cmd -nt $PKGS/$arg.tazpkg ]; then
al@898	266 echo "m1 2-1 1v8l1 1h6l1-1v-8l-1-1z' fill='#090'/></svg>"
al@898	267 else
al@898	268 echo "m0 3v8l1 1h6l1-1v-8l-1-1h-6zm3 0h2v5h-2zm0 6h2v2h-2z' fill='#d00'/></svg>"
al@898	269 fi
al@898	270 exit
al@898	271 fi
al@898	272
al@898	273
al@898	274 # Query '?theme[=<theme>]': change UI theme
al@898	275
al@898	276 if [ -n "$(GET theme)" ]; then
al@898	277 theme="$(GET theme)"
al@924	278 ref="$(echo "$HTTP_REFERER" \| sed 's\|:\|%3A\|g; s\|/\|%2F\|g; s\|\?\|%3F\|g; s\|\+\|%2B\|g;')"
al@898	279 case $theme in
al@898	280 theme)
al@898	281 current=$(COOKIE theme)
al@898	282 page_header
al@898	283 cat <<EOT
al@898	284 <section>
al@898	285 <h2>Change theme</h2>
al@898	286 <p>Current theme: “${current:-default}”. Select other:</p>
al@898	287 <ul>
al@898	288 $(
al@903	289 for i in default emerald sky goldenrod midnight like2016 terminal; do
al@924	290 [ "$i" == "${current:-default}" ] \|\| echo "<li><a href=\"$base/?theme=$i&ref=$ref\">$i</a></li>"
al@898	291 done
al@898	292 )
al@898	293 </ul>
al@898	294 </section>
al@898	295 EOT
al@898	296 page_footer
al@898	297 exit 0
al@898	298 ;;
al@903	299 default\|emerald\|sky\|goldenrod\|midnight\|like2016\|terminal)
al@924	300 ref="$(GET ref)"
al@924	301 [ -n "$ref" ] \|\| ref="$base/"
al@898	302 # Expires in a year
al@898	303 expires=$(date -uRd @$(($(date +%s)+31536000)) \| sed 's\|UTC\|GMT\|')
al@924	304 echo -e "HTTP/1.1 302 Found\nLocation: $ref\nCache-Control: no-cache\nSet-Cookie: theme=$theme; expires=$expires\n\n"
al@898	305 exit 0
al@898	306 ;;
al@898	307 esac
al@898	308 fi
al@898	309
al@898	310
al@898	311 #case "$QUERY_STRING" in
al@898	312 # stuff*)
al@898	313 # file="$wok/$(GET stuff)"
al@898	314 # manage_modified "$file"
al@898	315 # ;;
al@898	316 #
al@898	317 # pkg=\|receipt=\|description=\|files=\|log=\|man=\|doc=\|info=)
al@898	318 # type=${QUERY_STRING%%=*}
al@898	319 # pkg=$(GET $type)
al@898	320 # case "$type" in
al@898	321 # description)
al@898	322 # manage_modified "$wok/$pkg/receipt" 'no-last-modified'
al@898	323 # manage_modified "$wok/$pkg/description.txt" 'silently-absent'
al@898	324 # ;;
al@898	325 # log)
al@898	326 # manage_modified "$wok/${pkg%%.log*}/receipt" 'no-last-modified'
al@898	327 # manage_modified "$LOGS/$pkg"
al@898	328 # ;;
al@898	329 # *)
al@898	330 # manage_modified "$wok/$pkg/receipt" pkg
al@898	331 # ;;
al@898	332 # esac
al@898	333 # ;;
al@898	334 #esac
al@898	335
al@898	336
al@898	337 # RSS feed generator
al@898	338 # URI: ?rss[&limit={1..100}]
al@898	339
al@898	340 if [ -n "$(GET rss)" ]; then
al@898	341 limit=$(GET limit); limit="${limit:-12}"; [ "$limit" -gt 100 ] && limit='100'
al@898	342 pubdate=$(date -Rur$(ls -t $FEEDS/*.xml \| head -n1) \| sed 's\|UTC\|GMT\|')
al@898	343 cooker_url="http://$HTTP_HOST$base/"
al@898	344 cat <<EOT
al@898	345 Content-Type: application/rss+xml
al@898	346
al@898	347 <?xml version="1.0" encoding="utf-8" ?>
al@898	348 <rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
al@898	349 <channel>
al@898	350 <title>$title</title>
al@898	351 <description>The SliTaz packages cooker feed</description>
al@898	352 <link>$cooker_url</link>
al@898	353 <lastBuildDate>$pubdate</lastBuildDate>
al@898	354 <pubDate>$pubdate</pubDate>
al@898	355 <atom:link href="$cooker_url?rss" rel="self" type="application/rss+xml" />
al@898	356 EOT
al@898	357 for rss in $(ls -t $FEEDS/*.xml \| head -n$limit); do
al@898	358 sed "s\|http[^=]*=\|$cooker_url\|; s\|<guid\|& isPermaLink=\"false\"\|g; s\|</pubDate\| GMT&\|g" $rss
al@898	359 done
al@898	360 cat <<EOT
al@898	361 </channel>
al@898	362 </rss>
al@898	363 EOT
al@898	364 exit 0
al@898	365 fi
al@898	366
al@898	367
al@903	368 ### OpenSearch ###
al@903	369
al@903	370 # Query '/os.xml': get OpenSearch Description
al@903	371
al@903	372 if [ "$pkg" == 'os.xml' ]; then
al@903	373 cat <<EOT
al@903	374 Content-Type: application/xml; charset=UTF-8
al@903	375
al@903	376 <?xml version="1.0" encoding="UTF-8"?>
al@903	377 <OpenSearchDescription xmlns="http://a9.com/-/spec/opensearch/1.1/">
al@903	378 <ShortName>$title</ShortName>
al@903	379 <Description>SliTaz packages search</Description>
al@903	380 <Image width="16" height="16" type="image/png">http://$HTTP_HOST/images/logo.png</Image>
al@903	381 <Url type="text/html" method="GET" template="http://$HTTP_HOST$base/{searchTerms}"/>
al@903	382 <Url type="application/x-suggestions+json" method="GET" template="http://$HTTP_HOST$base/">
al@903	383 <Param name="oss" value="{searchTerms}"/>
al@903	384 </Url>
al@903	385 <SearchForm>http://$HTTP_HOST$base/</SearchForm>
al@903	386 <InputEncoding>UTF-8</InputEncoding>
al@903	387 </OpenSearchDescription>
al@903	388 EOT
al@903	389 exit 0
al@903	390 fi
al@903	391
al@903	392 # Query '?oss[=<term>]': OpenSearch suggestions
al@903	393
al@903	394 if [ -n "$(GET oss)" ]; then
al@903	395 term="$(GET oss \| tr -cd '[:alnum:]+-')"
al@903	396 echo -e 'Content-Type: application/x-suggestions+json; charset=UTF-8\n'
al@903	397 cd $wok
al@903	398 ls \| fgrep "$term" \| head -n10 \| awk -vterm="$term" '
al@903	399 BEGIN{printf("[\"%s\",[", term)}
al@903	400 {printf("%s\"%s\"", NR != 1 ? "," : "", $0)}
al@903	401 END {printf("]]")}
al@903	402 '
al@903	403 exit 0
al@903	404 fi
al@903	405
al@903	406
al@898	407
al@898	408
al@898	409 #
al@898	410 # Functions
al@898	411 #
al@898	412
al@898	413
al@898	414 # Unpack to stdout
al@898	415
al@898	416 docat() {
al@898	417 case "$1" in
al@898	418 *gz) zcat ;;
al@898	419 *bz2) bzcat ;;
al@898	420 *xz) xzcat ;;
al@898	421 *) cat
al@898	422 esac < $1
al@898	423 }
al@898	424
al@898	425
al@898	426 # Tiny texinfo converter
al@898	427
al@898	428 info2html() {
al@898	429 sed \
al@898	430 -e 's\|&\|\&\|g; s\|<\|\<\|g; s\|>\|\>\|g' \
al@898	431 -e 's\|^\* $.$::\| <a href="#\1">\1</a> \|' \
al@898	432 -e 's\|\note $.$::\|<a href="#\1">\1</a>\|' \
al@898	433 -e '/^File: / s\|(dir)\|Top\|g' \
al@898	434 -e '/^File: / s\|Next: $[^,]*$\|<a class="button" href="#\1">Next: \1</a>\|' \
al@898	435 -e '/^File: / s\|Prev: $[^,]*$\|<a class="button" href="#\1">Prev: \1</a>\|' \
al@898	436 -e '/^File: / s\|Up: $[^,]*$\|<a class="button" href="#\1">Up: \1</a>\|' \
al@898	437 -e '/^File: / s\|^.* Node: $[^,]$, $.*$$\|<pre id="\1">\2\|' \
al@898	438 -e '/^<pre id=/ s\|^$[^>]>$$<a[^>]>Next: [^,]$, $<a[^>]>Prev: [^,]$, $<a[^>]>Up: .*$\|\1 \3 \4 \2\|' \
al@898	439 -e '/^Tag Table:$/,/^End Tag Table$/d' \
al@898	440 -e '/INFO-DIR/,/^END-INFO-DIR/d' \
al@898	441 -e "s\|https://[^>),'\"\`’ ]\|<a href=\"&\">&</a>\|g" \
al@898	442 -e "s\|ftp://[^>),\"\` ]*\|<a href=\"&\">&</a>\|g" \
al@898	443 -e 's\|^\* Menu:\|<b>Menu:</b>\|' \
al@898	444 -e "s\|^\|</pre>\|"
al@898	445 }
al@898	446
al@898	447
al@898	448 # Put some colors into log and DB files.
al@898	449
al@898	450 syntax_highlighter() {
al@898	451 case $1 in
al@898	452 log)
al@898	453 # If variables not defined - define them with some rare values
al@898	454 : ${_src=#_#_#}
al@898	455 : ${_install=#_#_#}
al@898	456 : ${_fs=#_#_#}
al@898	457 : ${_stuff=#_#_#}
al@898	458 # Use one-letter html tags to save some bytes :)
al@898	459 # <b>is error (red)</b> <u>is warning (orange)</u> <i>is informal (green)</i>
al@898	460 sed -e 's/&/\&/g; s/</\</g; s/>/\>/g' \
al@898	461 -e 's#OK$#<i>OK</i>#' \
al@898	462 -e 's#$[Dd]one$$#<i>\1</i>#' \
al@898	463 -e 's#Success$#<i>Success</i>#' \
al@898	464 -e 's#$[^a-z]$ok$#\1<i>ok</i>#' \
al@898	465 -e 's#$[^a-z]$yes$#\1<i>yes</i>#' \
al@912	466 -e 's#$[^a-z]$ON$#\1<i>ON</i>#' \
al@898	467 -e 's#$[^a-z]$no$#\1<u>no</u>#' \
al@898	468 -e 's#$[^a-z]$none$#\1<u>none</u>#' \
al@898	469 -e 's#$[^a-z]$false$#\1<u>false</u>#' \
al@912	470 -e 's#$[^a-z]$OFF$#\1<u>OFF</u>#' \
al@898	471 -e 's#$^checking .\.\.\. $$.$$#\1<i>\2</i>#' \
al@898	472 \
al@898	473 -e 's#$ \[Y[nm/]\?\] n$$# <u>\1</u>#' \
al@898	474 -e 's#$ \[N[ym/]\?\] y$$# <i>\1</i>#' \
al@898	475 -e 's# y$# <i>y</i>#' \
al@898	476 -e 's# n$# <u>n</u>#' \
al@898	477 -e 's#(NEW) *$#<b>(NEW)</b>#' \
al@898	478 \
al@898	479 -e 's#.(pkg/local).#<i>\0</i>#' \
al@898	480 -e 's#.(web/cache).#<u>\0</u>#' \
al@898	481 \
al@898	482 -e 's#$[^a-zA-Z]$$[Ee]rror$$#\1<b>\2</b>#' \
al@898	483 -e 's#ERROR:#<b>ERROR:</b>#g' \
al@898	484 \
al@909	485 -e 's#^.[Ff][Aa][Ii][Ll][Ee][Dd].#<b>\0</b>#' \
al@898	486 -e 's#^.[Ff]atal.#<b>\0</b>#' \
al@898	487 -e 's#^.[Nn]ot found.#<b>\0</b>#' \
al@898	488 -e 's#^.[Nn]o such file.#<b>\0</b>#' \
al@898	489 -e 's#^.No package . found.*#<b>\0</b>#' \
al@898	490 -e 's#^.Unable to find.#<b>\0</b>#' \
al@938	491 -e 's#[^a-zA-Z-][Ii]nvalid.*#<b>\0</b>#' \
al@914	492 -e 's#$[Nn][Oo][Tt] found\.*$$#<b>\1</b>#' \
al@914	493 -e 's#$found\.*$$#<i>\1</i>#' \
al@898	494 \
al@898	495 -e 's#^.WARNING:.#<u>\0</u>#' \
al@898	496 -e 's#^.warning:.#<u>\0</u>#' \
al@898	497 -e 's#^.* [Ee]rror:* .*#<b>\0</b>#' \
al@898	498 -e 's#^.terminated.#<b>\0</b>#' \
al@898	499 -e 's#$missing$#<b>\1</b>#g' \
al@898	500 -e 's#^.[Cc]annot find.#<b>\0</b>#' \
al@898	501 -e 's#^.unrecognized options.#<u>\0</u>#' \
al@898	502 -e 's#^.does not.#<u>\0</u>#' \
al@898	503 -e 's#^.[Ii]gnoring.#<u>\0</u>#' \
al@898	504 -e 's#^.note:.#<u>\0</u>#' \
al@898	505 \
al@898	506 -e 's#^.* will not .*#<u>\0</u>#' \
al@898	507 -e 's!^Hunk .* succeeded at .*!<u>\0</u>!' \
al@898	508 -e 's#^.* Warning: .*#<u>\0</u>#' \
al@898	509 \
al@898	510 -e "s#^Executing:$[^']*$.#<em>\0</em>#" \
al@898	511 -e "s#^Making.*#<em>\0</em>#" \
al@898	512 -e "s#^Scanning dependencies of target .*#<em>\0</em>#" \
al@898	513 -e "s#^====$[^']*$.#<span class='span-line'>\0</span>#g" \
al@898	514 -e "s#^[a-zA-Z0-9]$[^']*$ :: #<span class='span-sky'>\0</span>#g" \
al@898	515 -e "s#[fh]ttps://[^ '\"]*#<a href='\0'>\0</a>#g" \
al@898	516 \
al@898	517 -e "s\|$_src\|<span class='var'>\${src}</span>\|g;
al@898	518 s\|$_install\|<span class='var'>\${install}</span>\|g;
al@898	519 s\|$_fs\|<span class='var'>\${fs}</span>\|g;
al@898	520 s\|$_stuff\|<span class='var'>\${stuff}</span>\|g" \
al@913	521 -e "s\|\[9$[1-6]$m\|<span class='c\10'>\|;
al@898	522 s\|\[39m\|</span>\|;"
al@898	523 ;;
al@898	524
al@898	525 files)
al@898	526 # Highlight the Busybox's `ls` output
al@898	527 awk '{
al@898	528 part1 = substr($0, 0, 16);
al@898	529 part2 = substr($0, 17, 9);
al@898	530 part3 = substr($0, 26, 9);
al@898	531 part4 = substr($0, 35);
al@898	532 if (part2 != "root ") part2 = "<span class=\"c11\">" part2 "</span>";
al@898	533 if (part3 != "root ") part3 = "<span class=\"c11\">" part3 "</span>";
al@898	534 print part1 part2 part3 part4;
al@898	535 }' \| \
al@924	536 sed "s\|\[0m/\|/\[0m\|g;
al@924	537 s\|\[$[01]$;3$[1-7]$m\|<a class='c\2\1'>\|g;
al@898	538 s\|\[$[01]$;0m\|<a class='c0\1'>\|g;
al@898	539 s\|\[0m\|</a>\|g;
al@898	540 s\|^$lrwxrwxrwx$\|<span class='c61'>\1</span>\|;
al@898	541 s\|^$-rwxr-xr-x$\|<span class='c21'>\1</span>\|;
al@898	542 s\|^$-rw-r--r--$\|<span class='c31'>\1</span>\|;
al@924	543 s\|^$drwxr-xr-x$\|<span class='c41'>\1</span>\|;
al@902	544 s\|^$[lrwxs-]*$\|<span class='c11'>\1</span>\|;
al@898	545 "
al@898	546 ;;
al@898	547 esac
al@898	548 }
al@898	549
al@898	550
al@898	551 show_code() {
al@898	552 echo -n "<pre><code class=\"language-$1\">"
al@898	553 sed 's\|&\|\&\|g; s\|<\|\<\|g; s\|>\|\>\|g'
al@898	554 echo '</code></pre>'
al@898	555 }
al@898	556
al@898	557
al@898	558 datalist() {
al@940	559 cut -d$'\t' -f2 $splitdb \| tr ' ' '\n' \| sort -u \| awk '
al@898	560 BEGIN{printf("<datalist id=\"packages\">")}
al@940	561 {printf("<option>%s",$1)}
al@898	562 END {printf("</datalist>")}
al@898	563 '
al@898	564 }
al@898	565
al@898	566
al@898	567 mklog() {
al@898	568 awk '
al@898	569 BEGIN { printf("<pre class=\"log dog\">\n") }
al@898	570 { print }
al@898	571 END { print "</pre>" }'
al@898	572 }
al@898	573
al@898	574
al@898	575 summary() {
al@898	576 log="$1"
al@898	577 pkg="$(basename ${log%%.log*})"
al@898	578
al@898	579 if [ -f "$log" ]; then
al@898	580 if grep -q "cook:$pkg$" $command; then
al@898	581 show_note i "The Cooker is currently building $pkg"
al@898	582 elif fgrep -q "Summary for:" $log; then
al@904	583 sed '/^Summary for:/,$!d' $log \| awk '
al@898	584 BEGIN { print "<section>" }
al@904	585 function row(line) {
al@904	586 split(line, s, " : ");
al@904	587 printf("\t<tr><td>%s</td><td>%s</td></tr>\n", s[1], s[2]);
al@904	588 }
al@904	589 function row2(line, rowNum) {
al@904	590 split(line, s, " : ");
al@938	591 if (rowNum == 1) {
al@938	592 print "<thead>";
al@904	593 printf("\t<tr><th>%s</th><th>%s</th><th>%s</th><th>%s</th><th>%s</th></tr>\n", s[1], s[2], s[3], s[4], s[5]);
al@938	594 print "</thead><tbody>";
al@938	595 }
al@904	596 else
al@904	597 printf("\t<tr><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>\n", s[1], s[2], s[3], s[4], s[5]);
al@904	598 }
al@898	599 {
al@904	600 if (NR==1) { printf("<h3>%s</h3>\n<table>\n", $0); next }
al@904	601 if ($0 ~ "===") { seen++; if (seen == 1) next; else exit; }
al@904	602 if ($0 ~ "---") {
al@904	603 seen2++;
al@938	604 if (seen2 == 1) print "</table>\n\n<table class=\"pkgslist\">"
al@904	605 next
al@898	606 }
al@904	607 if (seen2) row2($0, seen2); else row($0);
al@898	608 }
al@938	609 END { print "</tbody></table></section>" }
al@898	610 '
al@898	611 elif fgrep -q "Debug information" $log; then
al@898	612 echo -e '<section>\n<h3>Debug information</h3>'
al@898	613 sed -e '/^Debug information/,$!d; /^===/d; /^$/d' $log \| sed -n '1!p' \| \
al@898	614 if [ -n "$2" ]; then
al@898	615 syntax_highlighter log \| sed 's\|$[0-9][0-9]*$:\|<a href="#l\1">\1</a>:\|'
al@898	616 else
al@898	617 sed 's\|^[0-9][0-9]*:\|\|' \| syntax_highlighter log
al@898	618 fi \| mklog
al@898	619 echo '</section>'
al@898	620 fi
al@898	621 else
al@898	622 [ -n "$pkg" -a -d "$wok/$pkg" ] && show_note e "No log for $pkg"
al@898	623 fi
al@898	624 }
al@898	625
al@898	626
al@898	627 active() {
al@898	628 [ "$cmd" == "$1" -o "$cmd" == "${2:-$1}" ] && echo -n ' active'
al@898	629 }
al@898	630
al@898	631
al@898	632 pkg_info() {
al@898	633 local log active bpkg
al@898	634 log="$LOGS/$pkg.log"
al@898	635
al@926	636 echo "<h2><a href=\"$base/$pkg\">$pkg</a></h2>"
al@898	637 echo '<div id="info">'
al@898	638 echo "<a class='button icon receipt$(active receipt stuff)' href='$base/$pkg/receipt'>receipt & stuff</a>"
al@898	639
al@898	640 unset WEB_SITE WANTED
al@898	641 . $wok/$pkg/receipt
al@898	642
al@898	643 [ -n "$WEB_SITE" ] &&
al@898	644 echo "<a class='button icon website' href='$WEB_SITE' target='_blank' rel='noopener noreferrer'>web site</a>"
al@898	645
al@925	646 [ -f "$wok/$pkg/taz/$PACKAGE-$VERSION/receipt" ] &&
al@898	647 echo "<a class='button icon files$(active files)' href='$base/$pkg/files'>files</a>"
al@898	648
al@925	649 [ -n "$(ls $wok/$pkg/description*.txt)" ] &&
al@925	650 echo "<a class='button icon desc$(active description)' href='$base/$pkg/description'>description</a>"
al@898	651
al@925	652 [ -n "$TARBALL" -a -s "$SRC/$TARBALL" -o -d "$wok/$pkg/taz" ] &&
al@925	653 echo "<a class='button icon download' href='$base/$pkg/download'>download</a>"
al@898	654
al@898	655 echo "<a class='button icon browse' href='$base/$pkg/browse/'>browse</a>"
al@898	656
al@898	657 [ -x ./man2html -a -d "$wok/$pkg/install/usr/share/man" ] &&
al@898	658 echo "<a class='button icon doc$(active man)' href='$base/$pkg/man/'>man</a>"
al@898	659
al@898	660 [ -d "$wok/$pkg/install/usr/share/doc" -o -d "$wok/$pkg/install/usr/share/gtk-doc" ] &&
al@898	661 echo "<a class='button icon doc$(active doc)' href='$base/$pkg/doc/'>doc</a>"
al@898	662
al@898	663 [ -d "$wok/$pkg/install/usr/share/info" ] &&
al@898	664 echo "<a class='button icon doc$(active info)' href='$base/$pkg/info/#Top'>info</a>"
al@898	665
al@898	666 [ -s "$log" ] &&
al@898	667 echo "<a class='button icon log$(active log)' href='$base/$pkg/log/'>logs</a>"
al@898	668
al@898	669 echo '</div>'
al@898	670 }
al@898	671
al@898	672
al@898	673 mktable() {
al@898	674 sed 's# : #\|#' \| awk -vc="$1" '
al@898	675 BEGIN { printf("<table class=\"%s\">\n", c); FS="\|" }
al@898	676 { printf("<tr><td>%s</td>", $1);
al@898	677 if (NF == 2) printf("<td>%s</td>", $2);
al@898	678 printf("</tr>\n", $2) }
al@898	679 END { print "</table>" }'
al@898	680 }
al@898	681
al@898	682
al@898	683 section() {
al@898	684 local i=$(basename "$1")
al@898	685 echo -e '\n\n<section>'
al@898	686 [ $(wc -l < $1) -gt $2 ] && echo "<a class='button icon more r' href='?$i'>${3#*\|}</a>"
al@898	687 echo "<h2>${3%\|*}</h2>"
al@898	688 mktable "$i"
al@898	689 echo '</section>'
al@898	690 }
al@898	691
al@898	692
al@908	693 show_desc() {
al@908	694 echo "<section><h3>Description of “$1”</h3>"
al@908	695 if [ -n "$md2html" ]; then
al@908	696 $md2html $2
al@908	697 else
al@908	698 show_code markdown < $2
al@908	699 fi
al@908	700 echo "</section>"
al@908	701 }
al@908	702
al@908	703
al@924	704 # Return all the names of packages bundled in this receipt
al@924	705
al@924	706 all_names() {
al@924	707 local split=" $SPLIT "
al@924	708 if [ "${split/ $PACKAGE /}" != "$split" ]; then
al@924	709 # $PACKAGE included somewhere in $SPLIT (probably in the end).
al@924	710 # We should build packages in the order defined in the $SPLIT.
al@924	711 echo $SPLIT
al@924	712 else
al@924	713 # We'll build the $PACKAGE, then all defined in the $SPLIT.
al@924	714 echo $PACKAGE $SPLIT
al@924	715 fi
al@924	716 }
al@924	717
al@924	718
al@924	719 toolchain_version() {
al@924	720 echo "<tr><td><a href='$base/$1'>$1</a></td><td>"
al@924	721 if [ -e "$WOK/$1/receipt" ]; then
al@924	722 grep ^VERSION $WOK/$1/receipt \| cut -d '"' -f2
al@924	723 echo '</td><td>'
al@924	724 grep ^SHORT_DESC $WOK/$1/receipt \| cut -d '"' -f2
al@924	725 else
al@924	726 echo -n '---</td><td>---'
al@924	727 fi
al@924	728 echo "</td></tr>"
al@924	729 }
al@924	730
al@924	731
al@924	732 files_header() {
al@924	733 echo '<section><h3>Available downloads:</h3>'
al@924	734 echo '<table><thead><tr><th>File</th><th>Size</th><th>Description</th></tr></thead><tbody>'
al@924	735 }
al@924	736
al@924	737
al@933	738 # Update statistics used in web interface.
al@933	739 # There is no need to recalculate the statistics every time the page is displayed.
al@940	740 # Note, $webstat file must be owned by www, otherwise this function will not be able to do the job.
al@933	741
al@933	742 update_webstat() {
al@938	743 echo '<div id="waitme">'
al@938	744 show_note i 'Please wait while statistics are being collected.'
al@938	745 echo "</div>"
al@938	746
al@933	747 # for receipts:
al@933	748 rtotal=$(ls $WOK/*/arch.$ARCH \| wc -l)
al@933	749 rcooked=$(ls -d $WOK/*/taz \| wc -l)
al@933	750 runbuilt=$(($rtotal - $rcooked))
al@933	751 rblocked=$(wc -l < $blocked)
al@933	752 rbroken=$(wc -l < $broken)
al@933	753
al@933	754 # for packages:
al@936	755 ptotal=$(cut -d$'\t' -f2 $CACHE/split.db \| tr ' ' '\n' \| sort -u \| wc -l)
al@933	756 pcooked=$(ls $PKGS/*.tazpkg \| wc -l)
al@933	757 punbuilt=$(($ptotal - $pcooked))
al@933	758 pblocked=$(
al@933	759 while read i; do
al@933	760 sed "/^$i\t/!d" $CACHE/split.db
al@933	761 done < $blocked \| cut -d$'\t' -f2 \| tr ' ' '\n' \| wc -l)
al@933	762 pbroken=$(
al@933	763 while read i; do
al@933	764 sed "/^$i\t/!d" $CACHE/split.db
al@933	765 done < $broken \| cut -d$'\t' -f2 \| tr ' ' '\n' \| wc -l)
al@933	766
al@933	767 cat > $webstat <<EOT
al@933	768 rtotal="$rtotal"; rcooked="$rcooked"; runbuilt="$runbuilt"; rblocked="$rblocked"; rbroken="$rbroken"
al@933	769 ptotal="$ptotal"; pcooked="$pcooked"; punbuilt="$punbuilt"; pblocked="$pblocked"; pbroken="$pbroken"
al@933	770 EOT
al@938	771
al@938	772 echo '<script>document.getElementById("waitme").remove();</script>'
al@933	773 }
al@933	774
al@933	775
al@898	776
al@898	777
al@898	778 #
al@898	779 # Load requested page
al@898	780 #
al@898	781
al@898	782 if [ -z "$pkg" ]; then
al@898	783
al@898	784 page_header
al@898	785 if [ -n "$QUERY_STRING" -a "$QUERY_STRING" != 'debug' ]; then
al@898	786
al@898	787 for list in activity cooknotes cooklist; do
al@898	788 [ -n "$(GET $list)" ] \|\| continue
al@898	789 [ "$list" == 'cooklist' ] && nb="- Packages: $(wc -l < $cooklist)"
al@898	790 echo '<section id="content2">'
al@898	791 echo "<h2>DB: $list $nb</h2>"
al@905	792 tac $CACHE/$list \| sed 's\|cooker.cgi?pkg=\|\|; s\|%2B\|+\|g;
al@898	793 s\|\[ Done\|<span class="r c20">Done\|;
al@898	794 s\|\[ Failed\|<span class="r c10">Failed\|;
al@898	795 s\| \]\|</span>\|' \| mktable $list
al@898	796 echo '</section>'
al@898	797 done
al@898	798
al@898	799 if [ -n "$(GET broken)" ]; then
al@938	800 echo '<section id="content2">'
al@898	801 echo "<h2>DB: broken - Packages: $(wc -l < $broken)</h2>"
al@898	802 sort $CACHE/broken \| sed "s\|^[^']*\|<a href='$base/\0'>\0</a>\|g" \| mktable
al@938	803 echo '</section>'
al@898	804 fi
al@898	805
al@898	806 case "$QUERY_STRING" in
al@898	807 *.log)
al@898	808 log=$LOGS/$QUERY_STRING
al@898	809 name=$(basename $log)
al@898	810 if [ -f "$log" ]; then
al@898	811 echo "<h2>Log for: ${name%.log}</h2>"
al@898	812 if fgrep -q "Summary" $log; then
al@898	813 echo '<pre class="log">'
al@898	814 grep -A 20 '^Summary' $log \| syntax_highlighter log
al@898	815 echo '</pre>'
al@898	816 fi
al@898	817 echo '<pre class="log">'
al@898	818 syntax_highlighter log < $log
al@898	819 echo '</pre>'
al@898	820 else
al@898	821 show_note e "No log file: $log"
al@898	822 fi
al@898	823 ;;
al@924	824 toolchain)
al@924	825 cat <<EOT
al@924	826 <div id="content2">
al@924	827 <section>
al@924	828 <h2>SliTaz GNU/Linux toolchain</h2>
al@924	829
al@924	830 <table>
al@924	831 <tr><td>Build date</td> <td colspan="2">$(sed -n '/^Cook date/s\|[^:]: $.$\|\1\|p' $LOGS/slitaz-toolchain.log)</td></tr>
al@924	832 <tr><td>Build duration</td> <td colspan="2">$(sed -n '/^Cook time/s\|[^:]: $.$\|\1\|p' $LOGS/slitaz-toolchain.log)</td></tr>
al@924	833 <tr><td>Architecture</td> <td colspan="2">$ARCH</td></tr>
al@924	834 <tr><td>Build system</td> <td colspan="2">$BUILD_SYSTEM</td></tr>
al@924	835 <tr><td>Host system</td> <td colspan="2">$HOST_SYSTEM</td></tr>
al@924	836 <tr><th>Package</th><th>Version</th><th>Description</th></tr>
al@924	837 $(toolchain_version slitaz-toolchain)
al@924	838 $(toolchain_version binutils)
al@924	839 $(toolchain_version linux-api-headers)
al@924	840 $(toolchain_version gcc)
al@924	841 $(toolchain_version glibc)
al@924	842 </table>
al@924	843
al@924	844 <p>Toolchain documentation: <a target="_blank" rel="noopener noreferrer"
al@924	845 href="http://doc.slitaz.org/en:cookbook:toolchain">http://doc.slitaz.org/en:cookbook:toolchain</a>
al@924	846 </p>
al@924	847
al@924	848 </section>
al@924	849 </div>
al@924	850 EOT
al@924	851 ;;
al@898	852 esac
al@898	853 page_footer
al@898	854 exit 0
al@898	855 fi
al@898	856
al@898	857
al@898	858 # We may have a toolchain.cgi script for cross cooker's
al@898	859 if [ -f "toolchain.cgi" ]; then
al@898	860 toolchain="toolchain.cgi"
al@898	861 else
al@924	862 toolchain="?toolchain"
al@898	863 fi
al@933	864
paul@900	865 # Main page with summary. Count only packages included in ARCH,
al@898	866 # use 'cooker arch-db' to manually create arch.$ARCH files.
al@933	867
al@898	868 cat <<EOT
al@898	869 <div id="content2">
al@898	870
al@898	871 <section>
al@898	872 <form method="get" action="" class="search r">
al@898	873 <input type="hidden" name="search" value="pkg"/>
al@898	874 <button type="submit" title="Search">Search</button>
al@898	875 <input type="search" name="q" placeholder="Package" list="packages" autocorrect="off" autocapitalize="off"/>
al@898	876 </form>
al@898	877
al@898	878 <h2>Summary</h2>
al@898	879 EOT
al@898	880
al@898	881 mktable <<EOT
al@898	882 Cooker state : $(running_command)
al@898	883 Wok revision : <a href='$WOK_URL' target='_blank' rel='noopener noreferrer'>$(cat $wokrev)</a>
al@898	884 Commits to cook : $(wc -l < $commits)
al@898	885 Current cooklist : $(wc -l < $cooklist)
al@898	886 Architecture : $ARCH, <a href="$toolchain">toolchain</a>
al@898	887 Server date : <span id='date'>$(date -u '+%F %R %Z')</span>
al@898	888 EOT
al@898	889
al@898	890 # If command is "cook:*", update gauge and percentage periodically.
al@898	891 # If different package is cooking, reload the page (with new settings)
al@898	892 cmd="$(cat $command)"
al@898	893 case "$cmd" in
al@898	894 cook:*)
al@898	895 pkg=${cmd#*:}
al@898	896 echo "<script>updatePkg = '${pkg//+/%2B}';</script>"
al@898	897 ;;
al@898	898 esac
al@898	899
al@933	900 # Do we need to update the statistics?
al@933	901 [ "$webstat" -nt "$activity" ] \|\| update_webstat
al@933	902 . $webstat
al@933	903
al@933	904 pct=0; [ "$rtotal" -gt 0 ] && pct=$(( ($rcooked * 100) / $rtotal ))
al@933	905
al@933	906 cat <<EOT
al@933	907 <div class="meter"><progress max="100" value="$pct">${pct}%</progress><span>${pct}%</span></div>
al@933	908
al@933	909 <table class="webstat"><thead>
al@933	910 <tr><th> </th><th>Total </th><th>Cooked </th><th>Unbuilt </th><th>Blocked </th><th>Broken </th></tr>
al@933	911 </thead><tbody>
al@933	912 <tr><td>Receipts</td><td>$rtotal</td><td>$rcooked</td><td>$runbuilt</td><td>$rblocked</td><td>$rbroken</td></tr>
al@933	913 <tr><td>Packages</td><td>$ptotal</td><td>$pcooked</td><td>$punbuilt</td><td>$pblocked</td><td>$pbroken</td></tr>
al@933	914 </tbody></table>
al@933	915 EOT
al@933	916
al@898	917 if [ -e "$CACHE/cooker-request" -a ! -s $command ]; then
al@898	918 if [ "$activity" -nt "$CACHE/cooker-request" ]; then
al@898	919 echo '<a class="button icon bell r" href="?poke">Wake up</a>'
al@898	920 else
al@898	921 show_note i 'Cooker will be launched in the next 5 minutes.'
al@898	922 fi
al@898	923 fi
al@898	924
al@898	925 cat <<EOT
al@898	926 <p>
al@898	927 Service logs:
al@898	928 <a href="?cookorder.log">cookorder</a> ·
al@898	929 <a href="?commits.log">commits</a> ·
al@898	930 <a href="?pkgdb.log">pkgdb</a>
al@898	931 </p>
al@898	932 </section>
al@898	933 EOT
al@898	934
al@898	935 tac $activity \| head -n12 \| sed 's\|cooker.cgi?pkg=\|\|;
al@898	936 s\|\[ Done\|<span class="r c20">Done\|;
al@898	937 s\|\[ Failed\|<span class="r c10">Failed\|;
al@898	938 s\| \]\|</span>\|;
al@898	939 s\|%2B\|\+\|g' \| \
al@898	940 section $activity 12 "Activity\|More activity"
al@898	941
al@898	942 [ -s "$cooknotes" ] && tac $cooknotes \| head -n12 \| \
al@898	943 section $cooknotes 12 "Cooknotes\|More notes"
al@898	944
al@898	945 [ -s "$commits" ] &&
al@898	946 section $commits 20 "Commits\|More commits" < $commits
al@898	947
al@898	948 [ -s "$cooklist" ] && head -n 20 $cooklist \| \
al@898	949 section $cooklist 20 "Cooklist\|Full cooklist"
al@898	950
al@898	951 [ -s "$broken" ] && head -n20 $broken \| sed "s\|^[^']*\|<a href='\0'>\0</a>\|g" \| \
al@898	952 section $broken 20 "Broken\|All broken packages"
al@898	953
al@898	954 [ -s "$blocked" ] && sed "s\|^[^']*\|<a href='\0'>\0</a>\|g" $blocked \| \
al@898	955 section $blocked 12 "Blocked\|All blocked packages"
al@898	956
al@898	957 cd $PKGS
al@898	958 ls -let *.tazpkg \| awk '
al@898	959 (NR<=20){
al@898	960 sub(/:[0-9][0-9]$/, "", $9);
al@898	961 mon = index(" JanFebMarAprMayJunJulAugSepOctNovDec", $7) / 3;
al@898	962 printf("%d-%02d-%02d %s : <a href=\"get/%s\">%s</a>\n", $10, mon, $8, $9, $11, $11);
al@898	963 }' \| \
al@898	964 section $activity 1000 "Latest cook"
al@898	965
al@898	966 echo '</div>'
al@898	967 datalist
al@898	968 page_footer
al@898	969 exit 0
al@898	970 fi
al@898	971
al@898	972
al@898	973 case "$cmd" in
al@898	974 '')
al@898	975 page_header
al@898	976
al@898	977 # Package info.
al@940	978 if [ ! -f "$wok/$pkg/receipt" ]; then
al@940	979 # Let's look at the cases when the package was not found
al@940	980
al@940	981 # Maybe query is the exact name of split package? -> proceed to main package
al@940	982 mainpkg=$(awk -F$'\t' -vpkg=" $pkg " '{
al@940	983 if (index(" " $2 " ", pkg)) {print $1; exit}
al@940	984 }' $splitdb)
al@940	985
al@940	986 # No, so let's find any matches among packages names (both main and split)
al@940	987 if [ -z "$mainpkg" ]; then
al@940	988 pkgs=$(cut -d$'\t' -f2 $splitdb \| tr ' ' '\n' \| fgrep "$pkg")
al@940	989 # Nothing matched
al@940	990 if [ -z "$pkgs" ]; then
al@940	991 echo "<h2>Not Found</h2>"
al@940	992 show_note e "The requested package <b>$pkg</b> was not found on this server."
al@940	993 page_footer; exit 0
al@940	994 fi
al@940	995 # Search results page
al@898	996 echo "<section><h2>Package names matching “$pkg”</h2>"
al@898	997 echo "<table><thead><tr><th>Name</th><th>Description</th><th>Category</th></tr></thead><tbody>"
al@940	998 query="$pkg"
al@940	999 for pkg in $pkgs; do
al@940	1000 # Find main package
al@940	1001 mainpkg=$(awk -F$'\t' -vpkg=" $pkg " '{
al@940	1002 if (index(" " $2 " ", pkg)) {print $1; exit}
al@940	1003 }' $splitdb)
al@940	1004 unset SHORT_DESC CATEGORY; . $wok/$mainpkg/receipt
al@940	1005
al@898	1006 unset SHORT_DESC CATEGORY
al@940	1007 [ -e "$wok/$mainpkg/taz/$PACKAGE-$VERSION/receipt" ] &&
al@940	1008 . $wok/$mainpkg/taz/$PACKAGE-$VERSION/receipt
al@940	1009
al@940	1010 echo -n "<tr><td><a href="$base/$pkg">${pkg//$query/<mark>$query</mark>}</a>"
al@940	1011 [ "$pkg" == "$mainpkg" ] \|\| echo -n " (${mainpkg//$query/<mark>$query</mark>})"
al@940	1012 echo -n "</td><td>$SHORT_DESC</td><td>$CATEGORY</td></tr>"
al@898	1013 done
al@898	1014 echo '</tbody></table></section>'
al@940	1015 page_footer; exit 0
al@898	1016 fi
al@940	1017 pkg="$mainpkg"
al@898	1018 fi
al@898	1019
al@940	1020 log=$LOGS/$pkg.log
al@940	1021 pkg_info
al@940	1022
al@898	1023 # Check for a log file and display summary if it exists.
al@898	1024 summary "$log"
al@898	1025
al@898	1026 # Display <Recook> button only for SliTaz web browser
al@898	1027 if [ -f "$log" ]; then
al@898	1028 case "$HTTP_USER_AGENT" in
al@898	1029 SliTaz)
al@898	1030 if [ -f $CACHE/cooker-request -a -n "$HTTP_REFERER" ]; then
al@898	1031 if grep -qs "^$pkg$" $CACHE/recook-packages; then
al@898	1032 show_note i "The package “$pkg” has been requested for recook"
al@898	1033 else
al@898	1034 echo "<a class='button' href='$base/?recook=${pkg//+/%2B}'>Recook $pkg</a>"
al@898	1035 fi
al@898	1036 fi
al@898	1037 ;;
al@898	1038 esac
al@898	1039 fi
al@898	1040 ;;
al@898	1041
al@898	1042 receipt)
al@898	1043 page_header
al@898	1044 pkg_info
al@898	1045 echo "<a class='button receipt' href='$base/$pkg/receipt'>receipt</a>"
al@898	1046 ( cd $wok/$pkg; find stuff -type f 2>/dev/null ) \| sort \| \
al@898	1047 awk -vb="$base/$pkg" '{printf("<a class=\"button\" href=\"%s/%s\">%s</a>\n", b, $0, $0)}'
al@898	1048
al@898	1049 show_code bash < $wok/$pkg/receipt
al@898	1050 ;;
al@898	1051
al@898	1052 stuff)
al@898	1053 page_header
al@898	1054 pkg_info
al@898	1055 file="$pkg/stuff/$arg"
al@898	1056 echo "<a class='button' href='$base/$pkg/receipt'>receipt</a>"
al@898	1057 ( cd $wok/$pkg; find stuff -type f 2>/dev/null ) \| sort \| \
al@898	1058 awk -vb="$base/$pkg" -va="stuff/$arg" '{
al@898	1059 printf("<a class=\"button%s\" href=\"%s/%s\">%s</a>\n", a==$0 ? " receipt" : "", b, $0, $0)
al@898	1060 }'
al@898	1061
al@898	1062 if [ -f "$wok/$file" ]; then
al@898	1063 case $file in
al@898	1064 .desktop\|.theme) class="ini" ;;
al@898	1065 .patch\|.diff\|*.u) class="diff" ;;
al@898	1066 *.sh) class="bash" ;;
al@898	1067 .conf\|*.ini)
al@898	1068 class="bash"
al@898	1069 [ -n "$(cut -c1 < $wok/$file \| fgrep '[')" ] && class="ini"
al@898	1070 ;;
al@898	1071 *.pl) class="perl" ;;
al@898	1072 .c\|.h\|*.awk) class="clike" ;;
al@898	1073 *.svg) class="svg" ;;
al@898	1074 Makefile) class="makefile" ;;
al@898	1075 .po\|.pot) class="bash" ;;
al@898	1076 *.css) class="css" ;;
al@898	1077 .htm\|.html) class="html" ;;
al@898	1078 *.js) class="js" ;;
al@898	1079 *.txt) class="asciidoc" ;;
al@898	1080 *)
al@898	1081 case $(head -n1 $wok/$file) in
al@898	1082 !/bin/sh\|!/bin/bash) class="bash" ;;
al@898	1083 esac
al@898	1084 if [ -z "$class" -a "$(head -n1 $wok/$file \| cut -b1)" == '#' ]; then
al@898	1085 class="bash"
al@898	1086 fi
al@898	1087 if [ -z "$class" ]; then
al@898	1088 # Follow Busybox restrictions. Search for non-printable chars
al@898	1089 if [ $(tr -d '[:alnum:][:punct:][:blank:][:cntrl:]' < "$wok/$file" \| wc -c) -gt 0 ]; then
al@898	1090 raw="true"
al@898	1091 fi
al@898	1092 fi
al@898	1093 ;;
al@898	1094 esac
al@898	1095
al@898	1096 # Display image
al@898	1097 case $file in
al@898	1098 .png\|.svg\|.jpg\|.jpeg\|*.ico)
al@898	1099 echo "<img src='$base/$pkg/browse/stuff/$arg' style='display: block; max-width: 100%; margin: auto'/>"
al@898	1100 ;;
al@898	1101 esac
al@898	1102
al@898	1103 # Display colored listing for all text-based documents (also for *.svg)
al@898	1104 case $file in
al@898	1105 .png\|.jpg\|.jpeg\|.ico) ;;
al@898	1106 *)
al@898	1107 if [ -z "$raw" ]; then
al@898	1108 cat $wok/$file \| show_code $class
al@898	1109 fi
al@898	1110 ;;
al@898	1111 esac
al@898	1112
al@898	1113 # Display hex dump for binary files
al@898	1114 if [ -n "$raw" ]; then
al@898	1115 hexdump -C $wok/$file \| show_code #\| sed 's\|^$[0-9a-f][0-9a-f]*$\|<span class="c2">\1</span>\|'
al@898	1116 fi
al@898	1117 else
al@898	1118 show_note e "File “$file” absent!"
al@898	1119 fi
al@898	1120 ;;
al@898	1121
al@898	1122 files)
al@898	1123 page_header
al@898	1124 pkg_info
al@898	1125
al@898	1126 packaged=$(mktemp)
al@898	1127
al@898	1128 # find main package
al@898	1129 wanted=$(. $wok/$pkg/receipt; echo $WANTED)
al@898	1130 main=${wanted:-$pkg}
al@915	1131
paul@900	1132 # identify split packages
al@898	1133 split="$main $(. $wok/$main/receipt; echo $SPLIT)"
al@898	1134 [ -d "$wok/$main-dev" ] && split="$split $main-dev"
al@898	1135 split="$(echo $split \| tr ' ' '\n' \| sort -u)"
al@915	1136
al@898	1137 # finally we need the version
al@915	1138 if [ -f "$WOK/linux/receipt" ]; then
al@915	1139 kvers=$(. $WOK/linux/receipt; echo $VERSION)
al@915	1140 kbasevers=$(echo $kvers \| cut -d. -f1,2)
al@915	1141 elif [ -f "$INSTALLED/linux-api-headers/receipt" ]; then
al@915	1142 kvers=$(. $INSTALLED/linux-api-headers/receipt; echo $VERSION)
al@915	1143 kbasevers=$(echo $kvers \| cut -d. -f1,2)
al@915	1144 fi
al@898	1145 ver=$(. $wok/$main/receipt; echo $VERSION$EXTRAVERSION)
al@898	1146
al@924	1147
al@924	1148 echo "<section><h3>Quick jump:</h3><ul>"
al@940	1149 echo "$split" \| sed 'p' \| xargs printf "<li><a href='#%s'>%s</a></li>\n"
al@940	1150 echo "<li id='li-repeats' style='display:none'><a href='#repeats'>repeatedly packaged files</a></li>"
al@940	1151 echo "<li id='li-orphans' style='display:none'><a href='#orphans'>unpackaged files</a></li>"
al@924	1152 echo "</ul></section>"
al@924	1153
al@898	1154 for p in $split; do
al@898	1155 namever="$p-$ver"
al@898	1156 if [ -d "$wok/$p/taz/$p-$ver" ]; then
al@898	1157 indir=$p
al@898	1158 elif [ -d "$wok/$main/taz/$p-$ver" ]; then
al@898	1159 indir=$main
al@898	1160 fi
al@898	1161 dir="$wok/$indir/taz/$p-$ver/fs"
al@898	1162
al@898	1163 size=$(du -hs $dir \| awk '{ sub(/\.0/, ""); print $1 }')
al@898	1164
al@940	1165 echo "<section><h3 id='$p'>Contents of package “$namever” (${size:-empty}):</h3>"
al@912	1166 echo '<pre class="files">'
al@912	1167 if [ -s "$wok/$indir/taz/$p-$ver/files.list" ]; then
al@912	1168 echo -n '<span class="underline">permissions·lnk·user ·'
al@924	1169 echo -en 'group · size·date & time ·name\n</span>'
al@912	1170 cd $dir
al@924	1171 find . -print0 \| sort -z \| xargs -0 ls -ldp --color=always \| \
al@912	1172 syntax_highlighter files \| \
al@924	1173 sed "s\|$[^>]$>\.$[^<]$$<.*$$\|\1 href='$base/$indir/browse/taz/$p-$ver/fs\2'>\2\3\|;" \| \
al@912	1174 awk 'BEGIN { FS="\""; }
al@912	1175 { gsub("+", "%2B", $2); print; }'
al@912	1176 else
al@912	1177 echo 'No files'
al@912	1178 fi
al@898	1179 echo '</pre></section>'
al@898	1180 cat $wok/$indir/taz/$p-$ver/files.list >> $packaged
al@898	1181 done
al@898	1182
al@898	1183 # find repeatedly packaged files
al@898	1184 repeats="$(sort $packaged \| uniq -d)"
al@898	1185 if [ -n "$repeats" ]; then
al@928	1186 echo '<script>document.getElementById("li-repeats").style.display = "list-item"</script>'
al@940	1187 echo -n '<section><h3 id="repeats">Repeatedly packaged files:</h3><pre class="files">'
al@898	1188 echo "$repeats" \| sed 's\|^\|<span class="c11">!!!</span> \|'
al@898	1189 echo "</pre></section>"
al@898	1190 fi
al@898	1191
al@898	1192 # find unpackaged files
al@898	1193 all_files=$(mktemp)
al@898	1194 cd $wok/$main/install; find ! -type d \| sed 's\|\.\|\|' > $all_files
al@898	1195 orphans="$(sort $all_files $packaged \| uniq -u)"
al@912	1196 if [ -d "$wok/$main/install" -a -n "$orphans" ]; then
al@928	1197 echo '<script>document.getElementById("li-orphans").style.display = "list-item"</script>'
al@940	1198 echo '<section><h3 id="orphans">Unpackaged files:</h3>'
al@912	1199 table=$(mktemp)
al@924	1200 echo "$orphans" \| awk -vi="$base/$indir/browse/install" '
al@924	1201 function tag(text, color) {
al@924	1202 printf("<span class=\"c%s1\">%s</span> ", color, text);
al@924	1203 printf("<a class=\"c00\" href=\"%s\">%s</a>\n", i $0, $0);
al@924	1204 }
al@912	1205 /\/perllocal.pod$/ \|\| /\/\.packlist$/ \|\| /\/share\/bash-completion\// \|\|
al@912	1206 /\/lib\/systemd\// \|\| /\.pyc$/ \|\| /\.pyo$/ { tag("---", 0); next }
al@898	1207 /\.pod$/ { tag("pod", 5); next }
al@898	1208 /\/share\/man\// { tag("man", 5); next }
al@912	1209 /\/share\/doc\// \|\| /\/share\/gtk-doc\// \|\| /\/share\/info\// \|\|
al@912	1210 /\/share\/devhelp\// { tag("doc", 5); next }
al@898	1211 /\/share\/icons\// { tag("ico", 2); next }
al@898	1212 /\/share\/locale\// { tag("loc", 4); next }
al@924	1213 /\.h$/ \|\| /\.a$/ \|\| /\.la$/ \|\| /\.pc$/ \|\| /\/bin\/.*-config$/ \|\|
al@924	1214 /\/Makefile.*$/ { tag("dev", 3); next }
al@898	1215 { tag("???", 1) }
al@912	1216 ' > $table
al@912	1217
al@912	1218 # Summary table
al@912	1219 for i in head body; do
al@912	1220 case $i in
al@912	1221 head) echo -n '<table class="summary"><tr>';;
al@912	1222 body) echo -n '<th> </th></tr><tr>';;
al@912	1223 esac
al@912	1224 for j in '???1' dev3 loc4 ico2 doc5 man5 pod5 '---0'; do
al@912	1225 tag=${j:0:3}; class="c${j:3:1}0"; [ "$class" == 'c00' ] && class='c01'
al@912	1226 case $i in
al@912	1227 head) echo -n "<th class='$class'>$tag</th>";;
al@912	1228 body) printf '<td>%s</td>' "$(grep ">$tag<" $table \| wc -l)";;
al@912	1229 esac
al@912	1230 done
al@912	1231 done
al@912	1232 echo '<td> </td></tr></table>'
al@912	1233
al@912	1234 echo -n '<pre class="files">'
al@912	1235 cat $table
al@898	1236 echo '</pre></section>'
al@912	1237 rm $table
al@898	1238 fi
al@912	1239 rm $packaged $all_files
al@898	1240 ;;
al@898	1241
al@898	1242 description)
al@898	1243 page_header
al@898	1244 pkg_info
al@908	1245 descs="$(ls $WOK/$pkg/description*.txt)"
al@908	1246 if [ -n "$descs" ]; then
al@898	1247 echo '<div id="content2">'
al@908	1248 [ -f "$WOK/$pkg/description.txt" ] && show_desc "$pkg" "$WOK/$pkg/description.txt"
al@908	1249 for i in $descs; do
al@908	1250 case $i in
al@908	1251 */description.txt) continue ;;
al@908	1252 *) package=$(echo $i \| cut -d. -f2) ;;
al@908	1253 esac
al@908	1254 show_desc "$package" "$i"
al@908	1255 done
al@898	1256 echo '</div>'
al@898	1257 else
al@898	1258 show_note w "No description of $pkg"
al@898	1259 fi
al@898	1260 ;;
al@898	1261
al@898	1262 log)
al@898	1263 page_header
al@898	1264 pkg_info
al@898	1265 [ -z "$arg" ] && arg=$(stat -c %Y $LOGS/$pkg.log)
al@898	1266
al@898	1267 echo '<div class="btnList">'
al@924	1268 acc='l' # access key for the latest log is 'L'
al@898	1269 while read log; do
al@924	1270 # for all $pkg.log, $pkg.log.0 .. $pkg.log.9, $pkg-pack.log (if any)
al@898	1271 timestamp=$(stat -c %Y $log)
al@898	1272 class=''
al@898	1273 if [ "$arg" == "$timestamp" ]; then
al@898	1274 class=' log'
al@898	1275 logfile="$log"
al@898	1276 fi
al@924	1277 case $log in *-pack.log) acc='p';; esac # access key for the packing log is 'P'
al@898	1278 echo -n "<a class='button$class' data-acc='$acc' accesskey='$acc' href='$base/$pkg/log/$timestamp'>"
al@898	1279 echo "$(stat -c %y $log \| cut -d: -f1,2)</a>"
al@898	1280 case $acc in
al@898	1281 l) acc=0;;
al@898	1282 *) acc=$((acc+1));;
al@898	1283 esac
al@898	1284 done <<EOT
al@898	1285 $(find $LOGS -name "$pkg.log*" \| sort)
al@924	1286 $(find $LOGS -name "$pkg-pack.log")
al@898	1287 EOT
al@898	1288 echo '</div>'
al@898	1289
al@898	1290 if [ -z "$logfile" ]; then
al@898	1291 show_note e "Requested log is absent"
al@898	1292 page_footer
al@898	1293 exit 0
al@898	1294 fi
al@898	1295
al@898	1296 # Define cook variables for syntax highlighter
al@898	1297 if [ -s "$WOK/$pkg/receipt" ]; then
al@898	1298 . "$WOK/$pkg/receipt"
al@898	1299 _wok='/home/slitaz/wok'
al@898	1300 _src="$_wok/$pkg/source/$PACKAGE-$VERSION"
al@898	1301 _install="$_wok/$pkg/install"
al@898	1302 _fs="$_wok/$pkg/taz/$PACKAGE-$VERSION/fs"
al@898	1303 _stuff="$_wok/$pkg/stuff"
al@898	1304 fi
al@898	1305
al@898	1306 # if [ ! -f "gzlog/$pkg.$arg" ]; then
al@898	1307 # {
al@898	1308 # summary "$logfile" links
al@898	1309 #
al@898	1310 # syntax_highlighter log < $logfile \| awk '
al@898	1311 # BEGIN { print "<pre class=\"log\">"; }
al@898	1312 # { printf("<a name=\"l%d\" href=\"#l%d\">%5d</a> %s\n", NR, NR, NR, $0); }
al@898	1313 # END { print "</pre>"; }
al@898	1314 # '
al@898	1315 #
al@898	1316 # page_footer
al@898	1317 # } \| gzip > gzlog/$pkg.$arg
al@898	1318 # fi
al@898	1319
al@898	1320 blog=$(basename $logfile)
al@898	1321 summary "$logfile" links
al@898	1322
al@898	1323 # disable next `sed` for the 'like2016' theme
al@898	1324 theme=$(COOKIE theme); theme=${theme:-default}; [ "$theme" != 'like2016' ] && theme=''
al@898	1325 cat $logfile \| syntax_highlighter log \| \
al@898	1326 sed -e "/(pkg\/local$theme):/ s\|: $[^<]*$\|<img src='$base/i/$blog/\1'> \1\|" \| \
al@898	1327 awk '
al@898	1328 BEGIN { print "<pre class=\"log\">"; }
al@898	1329 { printf("<a name=\"l%d\" href=\"#l%d\">%5d</a> %s\n", NR, NR, NR, $0); }
al@898	1330 END { print "</pre>"; }
al@898	1331 '
al@898	1332 ;;
al@898	1333
al@898	1334
al@898	1335 man\|doc\|info)
al@898	1336 page_header
al@898	1337 pkg_info
al@898	1338 echo '<div style="max-height: 6.4em; overflow: auto; padding: 0 4px">'
al@898	1339
al@898	1340 dir="wok/$pkg/install/usr/share/$cmd"
al@898	1341 [ "$cmd" == 'doc' ] && dir="$dir wok/$pkg/install/usr/share/gtk-doc"
al@898	1342 if [ "$cmd" == 'doc' -a -z "$arg" ]; then
al@898	1343 try=$(for i in $dir; do find $i -name 'index.htm*'; done \| sed q)
al@898	1344 [ -n "$try" ] && arg="$try"
al@898	1345 fi
al@898	1346 while read i; do
al@898	1347 [ -s "$i" ] \|\| continue
al@898	1348 case "$i" in
al@898	1349 .jpg\|.png\|.gif\|.svg\|.css) continue
al@898	1350 esac
al@898	1351 i=${i#$dir/}
al@898	1352 [ -n "$arg" ] \|\| arg="$i"
al@898	1353 class=''; [ "$arg" == "$i" ] && class=" doc"
al@898	1354 case "$cmd" in
al@898	1355 man)
al@898	1356 case $i in
al@898	1357 man*) lang='';;
al@898	1358 ) lang="${i%%/}: ";;
al@898	1359 esac
al@898	1360 man=$(basename $i .gz)
al@898	1361 echo "<a class='button$class' href='$base/$pkg/man/$i'>$lang${man%.} (${man##.})</a>"
al@898	1362 ;;
al@898	1363 doc)
al@898	1364 echo "<a class='button$class' href='$base/$pkg/doc/$i'>$(basename $i .gz)</a>"
al@898	1365 ;;
al@898	1366 info)
al@898	1367 info=$(basename $i)
al@898	1368 echo "<a class='button$class' href='$base/$pkg/info/$i#Top'>${info/.info/}</a>"
al@898	1369 ;;
al@898	1370 esac
al@898	1371 done <<EOT
al@898	1372 $(for i in $dir; do find $i -type f; done \| sort)
al@898	1373 EOT
al@898	1374 echo '</div>'
al@898	1375
al@898	1376 [ -f "$arg" ] \|\| arg="$dir/$arg"
al@898	1377 if [ -f "$arg" ]; then
al@898	1378 tmp="$(mktemp)"
al@898	1379 docat "$arg" > $tmp
al@898	1380 [ -s "$tmp" ] &&
al@898	1381 case "$cmd" in
al@898	1382 info)
al@898	1383 echo '<div id="content2" class="texinfo"><pre class="first">'
al@898	1384 info2html < "$tmp"
al@898	1385 echo '</pre></div>'
al@898	1386 ;;
al@898	1387 doc)
al@898	1388 case "$arg" in
al@898	1389 .sgml\|.devhelp2) class='xml';;
al@898	1390 *.py) class='python';; # pycurl package
al@898	1391 *.css) class='css';;
al@898	1392 *) class='asciidoc';;
al@898	1393 esac
al@898	1394 case "$arg" in
al@898	1395 .htm)
al@898	1396 case $arg in
al@898	1397 wok/) page="${arg#wok/}"; page="$base/$pkg/browse/${page#/}";;
al@898	1398 *) page="$base/$pkg/browse/install/usr/share/$cmd/$arg";;
al@898	1399 esac
paul@929	1400 # make the iframe height so long to contain its contents without scrollbar
al@898	1401 echo "<iframe id='idoc' src='$page' width='100%' onload='resizeIframe(this)'></iframe>"
al@898	1402 ;;
al@898	1403 *.pdf)
al@898	1404 case $arg in
al@898	1405 wok/) page="${arg#wok/}"; page="$base/$pkg/browse/${page#/}";;
al@898	1406 *) page="$base/$pkg/browse/install/usr/share/$cmd/$arg";;
al@898	1407 esac
al@898	1408 cat <<EOT
al@898	1409 <object id="idoc" data="$page" width="100%" height="100%" type="application/pdf" style="min-height: 600px">
al@898	1410 $(show_note w "Missing PDF plugin.<br/>Get the file <a href="$page">$(basename "$page")</a>.")
al@898	1411 </object>
al@898	1412 EOT
al@898	1413 ;;
al@898	1414 *)
al@898	1415 show_code $class < "$tmp"
al@898	1416 ;;
al@898	1417 esac
al@898	1418 ;;
al@898	1419 man)
al@898	1420 #export TEXTDOMAIN='man2html'
al@898	1421 echo "<div id='content2'>"
al@898	1422
al@898	1423 html=$(./man2html "$tmp" \| sed -e '1,/<header>/d' -e '/<footer>/,$d' \
al@898	1424 -e 's\|<a href="file:///[^>]>$[^<]$</a>\|\1\|g' \
al@898	1425 -e 's\|<a href="?[1-9]\+[^>]>$[^<]$</a>\|\1\|g')
al@898	1426
al@898	1427 if [ -n "$(echo "$html" \| fgrep 'The requested file /tmp/tmp.')" ]; then
al@898	1428 # Process the pre-formatted man-cat page
al@912	1429 # (for example see sudo package without groff in build dependencies)
al@912	1430 sed -i '
al@898	1431 s\|M-bM-^@M-^S\|—\|g;
al@898	1432 s\|M-bM-^@M-^\\\|<b>\|g;
al@898	1433 s\|M-bM-^@M-^]\|</b>\|g
al@898	1434 s\|M-bM-^@M-^X\|<u>\|g;
al@898	1435 s\|M-bM-^@M-^Y\|</u>\|g;
al@898	1436 s\|M-BM-\|\|g;
al@912	1437 s\|++oo\|•\|g;
al@912	1438 s\|&\|\&\|g; s\|<\|\<\|g; s\|>\|\>\|g;
al@898	1439 ' "$tmp"
al@912	1440 for i in a b c d e f g h i j k l m n o p q r s t u v w x y z \
al@912	1441 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z \
al@912	1442 0 1 2 3 4 5 6 7 8 9 _ - '\\+' '\.' /; do
al@912	1443 sed -i "s\|$i$i\|<b>$i</b>\|g; s\|_$i\|<u>$i</u>\|g" "$tmp"
al@912	1444 done
al@912	1445 echo '<pre class="catman">'
al@912	1446 sed 's\|</b><b>\|\|g; s\|</u><u>\|\|g; s\|</u><b>_</b><u>\|_\|g; s\|</b> <b>\| \|g;' "$tmp"
al@898	1447 echo '</pre>'
al@898	1448 else
al@898	1449 echo "$html"
al@898	1450 fi
al@898	1451 echo "</div>"
al@898	1452 ;;
al@898	1453 esac
al@898	1454 rm -f $tmp
al@898	1455 else
al@898	1456 show_note e "File “$arg” not exists!"
al@898	1457 fi
al@898	1458 ;;
al@898	1459
al@924	1460 download)
al@924	1461 page_header
al@924	1462 pkg_info
al@924	1463 show=0
al@924	1464
al@924	1465 . $wok/$pkg/receipt
al@924	1466
al@924	1467 if [ -n "$TARBALL" -a -s "$SRC/$TARBALL" ]; then
al@924	1468 files_header
al@924	1469 echo "<tr><td><a href='$base/src/$TARBALL'>$TARBALL</a></td>"
al@924	1470 ls -lh "$SRC/$TARBALL" \| awk '{printf("<td>%sB</td>", $5)}'
al@924	1471 echo "<td>Sources for building the package “$pkg”</td></tr>"
al@924	1472 show=1
al@924	1473 fi
al@924	1474
al@924	1475 if [ -d "$wok/$pkg/taz" ]; then
al@924	1476 [ "$show" -eq 1 ] \|\| files_header
al@924	1477
al@924	1478 for i in $(all_names); do
al@924	1479 [ -e "$wok/$pkg/taz/$i-$VERSION$EXTRAVERSION/receipt" ] \|\| continue
al@924	1480 . $wok/$pkg/taz/$i-$VERSION$EXTRAVERSION/receipt
al@924	1481
al@924	1482 for filename in "$PACKAGE-$VERSION$EXTRAVERSION.tazpkg" "$PACKAGE-$VERSION$EXTRAVERSION-$ARCH.tazpkg"; do
al@924	1483 [ -f "$PKGS/$filename" ] &&
al@924	1484 cat <<EOT
al@924	1485 <tr>
al@924	1486 <td><a href="$base/get/$filename">$filename</a></td>
al@924	1487 <td>$(ls -lh ./packages/$filename \| awk '{printf("%sB", $5)}')</td>
al@924	1488 <td>$SHORT_DESC</td>
al@924	1489 </tr>
al@924	1490 EOT
al@924	1491 done
al@924	1492 done
al@924	1493 show=1
al@924	1494 fi
al@924	1495
al@924	1496 if [ "$show" -eq 1 ]; then
al@924	1497 echo '</tbody></table></section>'
al@924	1498 else
al@924	1499 show_note w "Sorry, there's nothing to download…"
al@924	1500 fi
al@924	1501 ;;
al@924	1502
al@898	1503 esac
al@898	1504
al@898	1505
al@898	1506 page_footer
al@898	1507 exit 0

SliTaz Repositories

cookutils annotate lighttpd/index.cgi @ rev 940