Почта шлется только при наличии в конфиге переменной $CONF->{SYS_MAIL}.
Собссно сам патч:
Код: Выделить всё
--- Users.pm.orig 2009-05-28 13:26:13.000000000 +0300
+++ Users.pm 2009-11-25 19:43:12.000000000 +0200
@@ -7,6 +7,10 @@
);
use Exporter;
+
+use Sys::Hostname;
+use Abills::Base;
+
$VERSION = 2.00;
@ISA = ('Exporter');
@@ -1025,6 +1029,9 @@
CREATE_EXT_BILL => $attr->{CREATE_EXT_BILL} });
}
+ my $host=hostname;
+ sendmail("$CONF->{ADMIN_MAIL}", "$CONF->{SYS_MAIL}", "$host: New user",
+ "User: $DATA{LOGIN}\n UID: $self->{UID}", "$CONF->{MAIL_CHARSET}", "2 (High)") if ($CONF->{SYS_MAIL} != '');
return $self;
}