CVSROOT/log_generate.pl - diff

Return to log_generate.pl CVS log

Up to [local] / CVSROOT

version 1.2, 1999/10/27 18:04:48

version 1.3, 1999/11/12 15:18:10

Line 1

#!/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

Line 349 sub mail_notification {

umask (002);

$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';

}