From 6514115f0fd72b648ead60cb2bd861e92732250f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Nov 2002 22:15:49 +0000
Subject: [PATCH] Change to use cvs2cl rather than Scheme.  This Perl program
 can be used with a remote CVS server.

---
 etc/update-rcs-log | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/etc/update-rcs-log b/etc/update-rcs-log
index bd201eb0e..175669fe1 100755
--- 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
-- 
2.25.1