Re: [exim] quota check at smtp_data time

Etusivu
Poista viesti
Vastaa
Lähettäjä: Jeremy Harris
Päiväys:  
Vastaanottaja: exim-users @ exim. org
Aihe: Re: [exim] quota check at smtp_data time
kig@??? wrote:
> 1. Is there a way to check quota on mailbox at smtp_data time.
>    Checks: is account over quota (which can be MTA-imposed) and whether 
> it will be over when writing message.


Yes, but it's quite involved.

Here's the core of a checker;
call it as a sub-acl from both your rcpt-time and data-time acls.
It assumes maildir format and use_message_size_file, and requires that
your acls can discover the deliver directory.

rcpt_chk_quota:
   # OK if no local deliveries
   require       set acl_c7 =    1000M
                 set acl_c5 =    0
   accept        condition =     ${if !match {$acl_c9}{/(,|\$)}}


   # Get the deliver directory
   require       set acl_c8 =    ${sg {$acl_c9} \
            {([^/],)*(.*/(,|\$))} {\$2}}
   require       set acl_c8 =    ${sg {$acl_c8} \
            {(.*/Maildir/).*\$} {\$1}}
   # If it doesn't exist either it's never been created or
   # we're on a 2MX.  Check the DB for an over-quota flag.
   accept        condition =     ${if !exists{$acl_c8}}
                 acl =           quota_db_flag
   # Get the path to the maildirsize file; if it's not present
   # then either it's
   # never been created, or it's been temporarily deleted.
   accept        condition =     ${if !exists{${acl_c8}maildirsize}}
                 acl =           quota_longform
   # read the size file
   require       set acl_c8 =    ${readfile{${acl_c8}maildirsize}{!}}
   # empty first line means infinite quota
   accept        condition =     ${if match {$acl_c8}{^\\s*(!.*)?\$}}
                 set acl_c7 =    0
   # quota: first line, first number
   require       set acl_c7 =    ${sg {$acl_c8} \
            {^(\\s*)(\\d+).*\$} {\$2}}
   # zero means infinite quota
   accept        condition =     ${if = {$acl_c7}{0}}
   # drop the first line
   warn          set acl_c8 =    ${sg {$acl_c8}{^[^!]*!(.*)\$} {\$1}}
   # convert 2nd number & linebreak into addition, on each line
                 set acl_c8 =    ${sg {$acl_c8}{\\s*(-?\\d+)[^!]*!?} \
            {\$1 +}}
   # evaluate the sum (and leave around for the data-time check)
                 set acl_c5 =    ${eval:$acl_c8 +0}
   # add this message (10k default if no SIZE=)
                 set acl_c8 =    ${eval:$acl_c5 + <
                    ${if < {$message_size}{0} \
                                         {10K} {$message_size}}}
   # ok if within quota
   accept        condition =     ${if <= {$acl_c8}{$acl_c7}}
   defer         message =       quota exceeded