Уведомление на мыло при регистрации пользователя
Добавлено: Ср ноя 25, 2009 5:55 pm
Сделал патч для уведомления на почту о регистрации нового пользователя - для упрощения интеграции биллинга с системами тикетов/groupware/etc для упрощения мониторинга подключения абонентов к примеру (применений найти можно множество). Хотелось бы, чтобы данный патч был внесен в основную ветку.
Почта шлется только при наличии в конфиге переменной $CONF->{SYS_MAIL}.
Собссно сам патч:
Почта шлется только при наличии в конфиге переменной $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;
}
.