diff options
| -rwxr-xr-x | fripost-adduser | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/fripost-adduser b/fripost-adduser index 368d4e4..e96c5f3 100755 --- a/fripost-adduser +++ b/fripost-adduser @@ -155,6 +155,16 @@ $msg->attr('content-type.charset' => 'utf-8'); } } +### Subscribe user to announce-list +{ + confirm_or_abort("Subscribe user to announce mailing list? "); + $msg->replace(From => $user->{username}); + $msg->replace(To => 'announce-subscribe@lists.fripost.org'); + $msg->replace(Subject => ''); + $msg->replace(Data => ''); + $msg->send(); +} + =head1 AUTHOR Stefan Kangas C<< <skangas at skangas.se> >> |