diff --git a/tools/make-changelogs.sh b/tools/make-changelogs.sh
new file mode 100755
index 0000000..89d1b8b
--- /dev/null
+++ b/tools/make-changelogs.sh
@@ -0,0 +1,5 @@
+#!/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