====== Corriger la casse des entêtes SOGo ======

[[http://sogo.nu|SOGo]] ajoute les entêtes des mails tout en minuscules. À priori, ce n'est pas interdit par les RFC, mais par convention, les entêtes commencent généralement par des majuscules. Certains serveurs (gmail ?) placent quasi systématiquement ce type de mail dans les spams. Un bug est ouvert chez SOGo: http://sogo.nu/bugs/view.php?id=1047

En attendant qu'il soit réglé, voilà un petit plugin qpsmtpd qui permet de ré-écrire ces entêtes

<code perl>
#!/usr/bin/perl -wT
=head1 NAME

fix_headers_case

=head1 DESCRIPTION

SOGo adds lower case headers, which some mail servers do not like.
This plugin just rewrite them to have the first letter uppercase

=head1 AUTHOR

Daniel Berteaud <daniel@firewall-services.com>

=head1 LICENSE

MIT


=cut


sub register {
  my ($self, $qp, %arg) = @_;
  $self->register_hook("data_post", "fix_headers_case");
}


sub fix_headers_case {
  my ($self, $transaction) = @_;
  my $mailer = $self->get_header($transaction,'User-Agent') or return DECLINED;
  $mailer =~ m/^SOGoMail/ or return DECLINED;
  $self->log(LOGINFO, "SOGo mailer detected, going to fix headers case");
  foreach my $header (qw/From To Cc Subject Message-ID Content-Type Date Content-Length Content-Transfer-Encoding/){
    my $value = $self->get_header($transaction,$header) or return DECLINED;
    $self->set_header($transaction, $header, $value);
  }
  return DECLINED;
}

sub get_header {
  my ($self, $transaction, $header) = @_;
  my $ret  = $transaction->header->get($header) or return;
  return $ret;
}

sub set_header {
    my ($self, $transaction, $header, $value) = @_;
    my $ret = $transaction->header->delete($header) or return;
    $ret = $transaction->header->add($header, $value) or return;
    return $ret;
}
</code>