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

[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]

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

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

[~AsmodeuS~]

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

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

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