Уведомление на мыло при регистрации пользователя

Ответить
NiTr0
Сообщения: 767
Зарегистрирован: Пт фев 08, 2008 4:46 pm

Уведомление на мыло при регистрации пользователя

Сообщение NiTr0 »

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

Abram
Сообщения: 157
Зарегистрирован: Чт мар 26, 2009 11:31 am
Контактная информация:

Re: Уведомление на мыло при регистрации пользователя

Сообщение Abram »

Я б назвал скорее не SYS_MAIL, а REG_MAIL ;).

[offtopic]А не пора ли в ф-цию sendmail присобачить возможность отсылать письма с внешнего SMTP?[/offtopic]

~AsmodeuS~
Site Admin
Сообщения: 5722
Зарегистрирован: Пт янв 28, 2005 3:11 pm
Контактная информация:

Re: Уведомление на мыло при регистрации пользователя

Сообщение ~AsmodeuS~ »

Abram писал(а):Я б назвал скорее не SYS_MAIL, а REG_MAIL ;).

[offtopic]А не пора ли в ф-цию sendmail присобачить возможность отсылать письма с внешнего SMTP?[/offtopic]

в ближайшее время надеюсь добавить эти две возможности

Ответить