===================================================================
RCS file: /home/cvs/CVSROOT/log_generate.pl,v
retrieving revision 1.1
retrieving revision 1.6
diff -u -p -r1.1 -r1.6
--- CVSROOT/log_generate.pl	1999/10/27 17:28:27	1.1
+++ CVSROOT/log_generate.pl	2000/10/28 16:52:27	1.6
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $OpenXM$
+# $OpenXM: CVSROOT/log_generate.pl,v 1.5 2000/10/03 04:00:21 maekawa Exp $
 #
 # Most parts obtained from FreeBSD.org and modified for OpenXM
 #
@@ -45,7 +45,7 @@ $SUMMARY_FILE  = "/tmp/#cvs.files.summary";
 $MAIL_FILE     = "/tmp/#cvs.files.mail";
 $SUBJ_FILE     = "/tmp/#cvs.files.subj";
 
-$CVSROOT       = $ENV{'CVSROOT'} || "/usr/cvs";
+$CVSROOT       = $ENV{'CVSROOT'} || "/usr/cvs" || "/home/cvs";
 
 ############################################################
 #
@@ -271,7 +271,6 @@ sub mlist_map {
 }    
 
 sub do_changes_file {
-    local($changes,$category,@mailaddrs);
     local(@text) = @_;
     local(%unique);
 
@@ -350,8 +349,8 @@ sub mail_notification {
 #
 umask (002);
 $host = hostname();
-if ($host =~ /^kerberos\.math\.kobe-u\.ac\.jp$/i) {
-    $dom = '@kerberos.math.kobe-u.ac.jp';
+if ($host =~ /^kerberos\.math\.sci\.kobe-u\.ac\.jp$/i) {
+    $dom = '@kerberos.math.sci.kobe-u.ac.jp';
     $owner = 'maekawa';
 }