SliTaz Repositories

     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/public/index.cgi	Sun Nov 04 01:57:24 2012 +0100
     1.3 @@ -0,0 +1,63 @@
     1.4 +#!/bin/sh
     1.5 +#
     1.6 +
     1.7 +[ -f "/etc/slitaz/pizza.conf" ] && . /etc/slitaz/pizza.conf
     1.8 +[ -f "../pizza.conf" ] && . ../pizza.conf
     1.9 +. $VHOST/db.conf
    1.10 +. /usr/lib/slitaz/httphelper
    1.11 +header
    1.12 +
    1.13 +cat $VHOST/lib/header.html
    1.14 +
    1.15 +# Content negotiation for Gettext
    1.16 +IFS=","
    1.17 +for lang in $HTTP_ACCEPT_LANGUAGE
    1.18 +do
    1.19 +	lang=${lang%;*} lang=${lang# } lang=${lang%-*}
    1.20 +	[ -d "$lang" ] &&  break
    1.21 +	case "$lang" in
    1.22 +		en) lang="C" ;;
    1.23 +		fr) lang="fr_FR" ;;
    1.24 +	esac
    1.25 +done
    1.26 +unset IFS
    1.27 +export LANG=$lang LC_ALL=$lang
    1.28 +
    1.29 +# Internationalization: $(gettext "")
    1.30 +. /usr/bin/gettext.sh
    1.31 +TEXTDOMAIN='pizza'
    1.32 +export TEXTDOMAIN
    1.33 +
    1.34 +inqueue=$(ls $queue | wc -l)
    1.35 +builds=$(cat $builds)
    1.36 +pubiso=$(ls -1 $public | wc -l)
    1.37 +[ "$builds" ] || builds=0
    1.38 +
    1.39 +		cat << EOT
    1.40 +<h2>$(gettext "Public flavors")</h2>
    1.41 +<p>
    1.42 +$(gettext "")
    1.43 +</p>
    1.44 +<pre>
    1.45 +Flavors: $inqueue in queue - $builds builds - $pubiso public</a>
    1.46 +</pre>
    1.47 +EOT
    1.48 +
    1.49 +for dir in $public/*
    1.50 +do
    1.51 +	if [ -f $dir/receipt ] && (grep -q '^FLAVOR' $dir/receipt ]); then
    1.52 +		flavor=$(grep '^FLAVOR' $dir/receipt | cut -d '=' -f 2 | sed 's/\"//g' )
    1.53 +		uri="$(basename $dir)"
    1.54 +		desc=$(grep '^SHORT_DESC'  $dir/receipt| cut -d '=' -f 2 | sed 's/\"//g')
    1.55 +cat <<EOT
    1.56 +<a href="/?id=${uri#slitaz-}">$flavor</a><br/>
    1.57 +Description: $desc<br />
    1.58 +<br />
    1.59 +EOT
    1.60 +	fi
    1.61 +done
    1.62 +
    1.63 +# HTML footer.
    1.64 +cat $VHOST/lib/footer.html
    1.65 +
    1.66 +exit 0