#!/bin/sh

of=extras.html.new

# delete .new file if it is more than a day old
find $of -mtime +1 -delete 2>/dev/null

if [ -f $of ]; then exit; fi

if [ -e .stamp -a $(echo $(find . -newer .stamp -type f -name '*.log' 2>/dev/null | wc -l)) = "0" ]; then exit; fi

echo "<html><head><title>List of files and directories that do not match their mtree description</title>" >$of
echo "<h1>List of files and directories that do not match their mtree description</h1>" >>$of
echo "</head><body>" >>$of

touch .stamp

#find . -name '*.log' | xargs grep -l '^list of extra files and directories' | xargs-exec sed -n -e '/^checking installed files/d' -e 's:^extra[:] :{} :p' -e 's:\(.*\) extra$:{} \1:p' '{}' ';' | sort | sed -e 's/^..//' -e 's/\.log//' | awk '{print $1 " " $2}' > .tmp
find . -name '*.log' | xargs grep -l '^list of extra files and directories' | sort | sed -e 's/^..//' > .tmp
if [ $(echo $(cat .tmp | wc -l)) = 0 ]; then
  echo "No extra files (yet)" >> $of
else
  set $(cat .tmp)
  num=$#
  if [ -s cvsdone ]; then
    echo "(cvs update finished at: $(cat cvsdone))<br>" >> $of
  fi
  echo "(timestamp of newest log: $(ls -rtTl | grep 'log$' | tail -1 | awk '{printf("%s %s %s %s\n",$6,$7,$8,$9)}'))<br><br>" >> $of
  echo "<table border=1>" >>$of
  echo "<tr><th>Log</th><th>Aff.</th><th>Size</th><th>Repository</th><th>Maintainer</th><th>Pathname</th></tr>" >>$of
  while [ $# -gt 0 ]; do
    log=$(echo $1 | basename $1 .log)
    echo -n "<tr><td valign=\"top\">" >>$of
    echo -n "<a name=\"$log.log\"></a>" >> $of
    echo -n "<a href=\"$log.log\">" >>$of
    echo -n $log >>$of
    echo -n "</a>" >>$of
    echo -n "</td><td align=right valign=\"top\">" >>$of
    affected=$(($(grep -cF $log < INDEX) - 1))
    if [ $affected != 0 ]; then echo -n $affected >>$of; fi
    echo -n "</td><td align=right valign=\"top\">" >>$of
    size=$(/bin/ls -sk $log.log | awk '{print $1}')
    echo -n "$size KB" >>$of
    echo -n "</td><td valign=\"top\">" >>$of
    dir=$(sed -n -e '3p' $log.log | awk '{print $4}' | sed -e 's,^/[^/]*/[^/]*/,,')
    echo -n "<a href=\"http://www.FreeBSD.org/cgi/cvsweb.cgi/ports/$dir\">$dir</a>" >>$of
    echo -n "</td><td valign=\"top\">" >>$of
    maint=$(sed -n -e '4p' $log.log | awk '{print $3}')
    maints="$maints $maint"
    echo -n "<a href=\"mailto:$maint\">$maint</a>" >>$of
    echo "</td><td valign=\"top\">" >>$of
    for file in $(cat $log.log | sed -e '1,/^list of extra files and directories/d' -e '/^list of all files and directories/,$d' -e '/^	/d' -e 's/^extra: //' -e 's/^missing: //' -e 's/://' | awk '{print $1}'); do
      echo "$file<br>" >>$of
    done
    echo "</td></tr>" >>$of
    shift
  done
  echo "</table><br>" >> $of
  echo "$num errors<br>" >> $of
fi

rm .tmp

echo "<hr>" >> $of
echo "<a href=\"../\">back to top</a>" >> $of

echo "</body></html>" >>$of

mv -f $of extras.html

echo $maints | sed -e 's/ /\
/g' | sort -fu > maintainers
