#!/bin/sh
for dir in `find . -type d -and -not '(' -name 'CVS' -or -name 'html' ')'`
do 
    ( cd $dir ; [ -d CVS -a -r CVS/Entries ] && [ "`sed -n -e '/^\/[^/]*\//p' CVS/Entries | sed 's/^\/\([^/]*\)\/.*$/\1/'| wc -l`" -gt 0 ] && rcs2log -u 'dent	Pierre R. Mai	pmai@pmsf.de' `sed -n -e '/^\/[^/]*\//p' CVS/Entries | sed 's/^\/\([^/]*\)\/.*$/\1/'` > ChangeLog ) 
done