Change to use cvs2cl rather than Scheme. This Perl program can be

used with a remote CVS server.

diff --git a/etc/update-rcs-log b/etc/update-rcs-log
index bd201eb0eaf5043c757e388a10968b23be8fe806..175669fe12de12381d39f49942f98d9111a479a3 100755 (executable)
--- a/etc/update-rcs-log
+++ b/etc/update-rcs-log
@@ -1,11 +1,21 @@
 #!/bin/sh
-#
-#      Update RCS.log file in background.  no arguments
-#
-#      Currently being run daily from cph crontab on aarau
 
-PATH=/usr/contrib/bin:/usr/local/bin:/usr/bin:/bin
-export PATH
+# Update Scheme ChangeLog files.
+# Run daily from cph crontab on aarau.
+
 umask 002
 
-bgx -ioe /scheme/etc/update-rcs-log scheme -heap 4000 -no-init-file
+exec > /scheme/etc/update-rcs-log.out 2>&1
+
+generate_log ()
+{
+    cd "${1}"
+    /usr/local/bin/cvs2cl -r -U /scheme/v7/src/etc/usermap
+    /bin/rm -f ChangeLog.bak
+}
+
+generate_log /scheme/v7/doc
+generate_log /scheme/v7/src
+generate_log /scheme/etc
+generate_log /gunk/hlsim/doc
+generate_log /gunk/hlsim/src