version 1.1, 1999/10/27 17:28:27 |
version 1.4, 2000/09/22 17:11:37 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
# |
# |
# $OpenXM$ |
# $OpenXM: CVSROOT/log_generate.pl,v 1.3 1999/11/12 15:18:10 maekawa Exp $ |
# |
# |
# Most parts obtained from FreeBSD.org and modified for OpenXM |
# Most parts obtained from FreeBSD.org and modified for OpenXM |
# |
# |
|
|
} |
} |
|
|
sub do_changes_file { |
sub do_changes_file { |
local($changes,$category,@mailaddrs); |
|
local(@text) = @_; |
local(@text) = @_; |
local(%unique); |
local(%unique); |
|
|
Line 293 sub mail_notification { |
|
Line 292 sub mail_notification { |
|
if ($debug) { |
if ($debug) { |
open(MAIL, "| /usr/sbin/mailsend -H $owner$dom"); |
open(MAIL, "| /usr/sbin/mailsend -H $owner$dom"); |
} else { |
} else { |
open(MAIL, "| /usr/sbin/mailsend -H cvs-committers$dom"); |
open(MAIL, "| /usr/sbin/mailsend -H cvs-committers\@openxm\.org"); |
} |
} |
|
|
# This is turned off since the To: lines go overboard. |
# This is turned off since the To: lines go overboard. |
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'; |
} |
} |
|
|