version 1.6, 2001/03/09 11:09:49
|
version 1.7, 2001/03/09 11:53:39
|
Line 190 sub mail_notification {
|
Line 190 sub mail_notification {
|
local($name, @text) = @_; |
local($name, @text) = @_; |
my $realname=$login; |
my $realname=$login; |
my $junk; |
my $junk; |
open(PASSWD, '/etc/passwd'); |
open(PASSWD, '</etc/passwd'); |
while (<PASSWD>) { |
while (<PASSWD>) { |
my ($llogin, $passwd, $uid, $gid, $gcos, $home, $shell) = split(/:/); |
my ($llogin, $passwd, $uid, $gid, $gcos, $home, $shell) = split(/:/); |
if ($llogin eq $login) { ($realname,$junk) = split(/,/,$gcos); } |
if ($llogin eq $login) { |
|
if (index($gcos,",") >= 0) { |
|
($realname,$junk) = split(/,/,$gcos); |
|
} else { |
|
$realname = $gcos; |
|
} |
|
} |
} |
} |
close(PASSWD); |
close(PASSWD); |
open(MAIL, "| $MAILER -t"); |
open(MAIL, "| $MAILER -t"); |