Packages::DoIndex: Ugly hack to fix content negotiation

[deb/packages.git] / cron.d / 050checkinst

diff --git a/cron.d/050checkinst b/cron.d/050checkinst
index ad6397a20526e8d32047dc4724c182f036fa558d..fff00880bc47b74581e1f4ecd1a5b87f69ffee00 100755 (executable)
--- a/cron.d/050checkinst
+++ b/cron.d/050checkinst
@@ -11,11 +11,13 @@ required="$required libtext-iconv-perl libhtml-template-perl"
 required="$required libclass-accessor-perl"
 required="$required liburi-perl libxml-rss-perl"
 required="$required libtemplate-perl libi18n-acceptlanguage-perl"
+required="$required liblingua-stem-perl"
 
-locales="de_DE.UTF-8 en_US.UTF-8 nl_NL fr_FR.UTF-8"
+locales="de_DE.UTF-8 en_US.UTF-8 nl_NL fr_FR.UTF-8 uk_UA.UTF-8"
 
 packages=`tempfile`
 locs=`tempfile`
+cache=`tempfile`
 trap "rm -f $packages $locs" INT EXIT
 
 for p in $required
@@ -36,7 +38,22 @@ do
     fi
 done
 
-if [ -s $packages -o -s $locs ]
+if [ -n "$cachedir" ]
+then
+    if [ ! -d "$cachedir" ]
+    then
+       echo "cachedir missing." >> $cache
+    else
+       perm=$(ls -ld "$cachedir" | perl -ne 'print "ok" if /^drwxrws--- \d+ www-data/')
+        if [ -z "$perm" ]
+       then
+           echo "cachedir has wrong permissions." >> $cache
+           echo "make sure it is writable by the web server." >> $cache
+       fi
+    fi
+fi
+
+if [ -s $packages -o -s $locs -o -s $cache ]
 then
     (
        echo "Subject: Problem packages.debian.org on `hostname -s`"
@@ -56,6 +73,12 @@ then
            echo
            cat $locs
        fi
+       if [ -s $cache ]
+       then
+           echo "Problems with cachedir:"
+           echo
+           cat $cache
+       fi
     ) | /usr/sbin/sendmail -t
 fi