version 1.1, 1999/10/27 17:28:27 |
version 1.7, 2003/09/27 14:24:42 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
# |
# |
# $OpenXM$ |
# $OpenXM: CVSROOT/log_generate.pl,v 1.6 2000/10/28 16:52:27 maekawa Exp $ |
# |
# |
# Most parts obtained from FreeBSD.org and modified for OpenXM |
# Most parts obtained from FreeBSD.org and modified for OpenXM |
# |
# |
Line 45 $SUMMARY_FILE = "/tmp/#cvs.files.summary"; |
|
Line 45 $SUMMARY_FILE = "/tmp/#cvs.files.summary"; |
|
$MAIL_FILE = "/tmp/#cvs.files.mail"; |
$MAIL_FILE = "/tmp/#cvs.files.mail"; |
$SUBJ_FILE = "/tmp/#cvs.files.subj"; |
$SUBJ_FILE = "/tmp/#cvs.files.subj"; |
|
|
$CVSROOT = $ENV{'CVSROOT'} || "/usr/cvs"; |
$CVSROOT = $ENV{'CVSROOT'} || "/home/cvsroot/openxm"; |
|
|
############################################################ |
############################################################ |
# |
# |
|
|
} |
} |
|
|
sub do_changes_file { |
sub do_changes_file { |
local($changes,$category,@mailaddrs); |
|
local(@text) = @_; |
local(@text) = @_; |
local(%unique); |
local(%unique); |
|
|
Line 350 sub mail_notification { |
|
Line 349 sub mail_notification { |
|
# |
# |
umask (002); |
umask (002); |
$host = hostname(); |
$host = hostname(); |
if ($host =~ /^kerberos\.math\.kobe-u\.ac\.jp$/i) { |
if ($host =~ /^kerberos\.math\.sci\.kobe-u\.ac\.jp$/i) { |
$dom = '@kerberos.math.kobe-u.ac.jp'; |
$dom = '@kerberos.math.sci.kobe-u.ac.jp'; |
$owner = 'maekawa'; |
$owner = 'maekawa'; |
} |
} |
|
|