[Mimedefang] received headers ofuscation

[Steffen Kaiser]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Tue, 24 Nov 2009, ulver wrote:

> thanks guys!!, following your advices (and googling a lot) i achieve these piece of code (on filter_end)
>
> $header_object = $entity->head;
>
> i got an ...nice Slave 0 stderr: Can't use an undefined value as a SCALAR reference at.....

Where is the "at ..." ?

Anyway, I would start looking into something like this:

if(open(H, '<', 'HEADERS')) {
   action_delete_all_headers('received');
   while(<H>) {
     next unless s/\Areceived:\s//i;
     chop;
     # Mess around with $_
     action_add_header('Received', $_);
   }
   unless(close H) {
     send_short_message_to_admin("Hey admin, something is wrong here: $!");
     return action_tempfail('internal server error');
   }
}

Bye,

- -- 
Steffen Kaiser
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)

iQEVAwUBSwzlbtlJzF6z/k3SAQLuWQgAhOQaakkaopt7Hq05vFUgo8IAb+ua1m0O
CNNdr7CsXDd9JUFIkGbVQD65HpN24JgQXmKbVCPm0IusOlpkeGfCtWKer3MPIk/7
7ZfO9Ldyoxujz2eCODj1FggsTP6rUCc/Vuvb7NmTt2G1huLzF0qUISobMhiwZbxZ
6bpdgKOsZ24E4R3Xf98Iv4jdGWZeNYCzxgvSUlyIQUsQYvHIzNwODrghHpK5vyQ5
j9nBs1Go7kj+ysPqAYHKfC0sj50Po8TGtRWsXBacnuz3pWQHt7LpVpCdXqu7jVAD
HU0cS8H8fbCpqExcLTY0x/77VPOoHcVV9a7blnbdnNbeg1TjLjigjw==
=XPWF
-----END PGP SIGNATURE-----