[Mimedefang] HTML ok?

[Jan Pieter Cornet]

On Wed, Sep 08, 2004 at 08:29:02PM -0600, Ashley M. Kirchner wrote:
> 
>    This got lost a while back, so I'm posting again.  We have a few 
> e-mails we'd like to come through as-is, in HTML format.  Right now, the 
> current filter will strip/defang the message, as it does all of them 
> (and we're happy with it,) but we'd like to be able to bypass this 
> mechanism for specific messages (or senders.)  What's the easiest, or 
> best way to do this?

Well, that depends on what you want, exactly. Do you want to base it on
certain messages, or on certain senders? :) And if so, how many?

Anyway, the fix is to somehow make the call to
"remove_redundant_html_parts", that is currently in your sub filter_end,
optional.

Something along the lines of:

    unless ( user_allowed_to_send_html($Sender) 
	or html_allowed_in_message($entity) )
    {
	remove_redundant_html_parts($entity);
    }
    ...


# returns true if user allowed to send html unfiltered
sub user_allowed_to_send_html {
    my $user = shift;

    if ( $user =~ /^<?grandma at hotmail.com>?$/i ) {
	return 1;
    }
    # use a hash lookup if you need to match against lots of users.
    return 0;
}

# returns true if html message is allowed to pass unfiltered
sub html_allowed_in_message {
    my $entity = shift;

    my $body = $entity->bodyhandle->as_string; # XXX: not necessarily efficient!
    if ( $body =~ m/webmaster trick of the day/ ) {
	return 1;
    }
    return 0;
}

-- 
#!perl -wpl # mmfppfmpmmpp mmpffm <pmmppfmfpppppfmmmf at fpffmm4mmmpmfpmf.ppppmf>
$p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(sub{$_[0]*9+$_[1]*3+
$_[2]}->(map{/p|f/i+/f/i}split//,$&)+97):qw(m p f)[map{((ord$&)%32-1)/$_%3}(9,
3,1)]),5,1)='`'lt$&;$f.eig;                                # Jan-Pieter Cornet