===================================================================
RCS file: /home/cvs/CVSROOT/log_generate.pl,v
retrieving revision 1.1
retrieving revision 1.5
diff -u -p -r1.1 -r1.5
--- CVSROOT/log_generate.pl	1999/10/27 17:28:27	1.1
+++ CVSROOT/log_generate.pl	2000/10/03 04:00:21	1.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $OpenXM$
+# $OpenXM: CVSROOT/log_generate.pl,v 1.4 2000/09/22 17:11:37 maekawa Exp $
 #
 # Most parts obtained from FreeBSD.org and modified for OpenXM
 #
@@ -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';
 }