version 1.2, 1999/10/27 18:04:48 |
version 1.3, 1999/11/12 15:18:10 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
# |
# |
# $OpenXM$ |
# $OpenXM: CVSROOT/log_generate.pl,v 1.2 1999/10/27 18:04:48 maekawa Exp $ |
# |
# |
# Most parts obtained from FreeBSD.org and modified for OpenXM |
# Most parts obtained from FreeBSD.org and modified for OpenXM |
# |
# |
Line 349 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'; |
} |
} |
|
|