[MKDoc-commit] [1.6] Fix for subscribe helo, see:

[chris at mkdoc.demon.co.uk]

Log Message:
-----------
[1.6] Fix for subscribe helo, see: http://www.mkdoc.org/bugs/stable/normal/helo/

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/flo/plugin/Account:
        Subscribe.pm

-------------- next part --------------
Index: Subscribe.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/plugin/Account/Attic/Subscribe.pm,v
retrieving revision 1.21.2.13
retrieving revision 1.21.2.14
diff -Lflo/plugin/Account/Subscribe.pm -Lflo/plugin/Account/Subscribe.pm -u -r1.21.2.13 -r1.21.2.14
--- flo/plugin/Account/Subscribe.pm
+++ flo/plugin/Account/Subscribe.pm
@@ -96,6 +96,10 @@
     if ($HAVE_CHECKMAIL) {
         # setup Mail::CheckUser options
         local $Mail::CheckUser::Timeout = 5;
+        # chris 2006-06-12
+        # fixes for this bug: http://www.mkdoc.org/bugs/stable/normal/helo/
+        local $Mail::CheckUser::Helo_Domain = $ENV{PUBLIC_DOMAIN};
+        local $Mail::CheckUser::Sender_Addr = $ENV{SERVER_ADMIN};
         
         # check the address using Mail::CheckUser
         unless(Mail::CheckUser::check_email($email)) {