Ik ben bezig om een filter te maken die quoted-printable mail omzet in 7bit.
Nu heb ik hier een module gevonden die het kan:
http://www.perldoc.com/perl5.6/lib/MIME/Decoder.html
Nu ben ik niet zo'n grote held in perl, dus zou iemand mij een beetje op weg wel helpen. Ik begrijp de uitleg die er bij staat nog niet helemaal.
Ik heb nu ook een perl script wat uitgevoerd wordt voor de mail wordt opgehaald, zodat er een disclaimer onder komt.
Nu zou ik ook nog willen dat de mail 7bit (van quoted-printable) wordt mbv van die module.
Volgens mij moet dit wel in de huidige code kunnen, maar als iemand me op weg zou willen helpen, graag.
Nu heb ik hier een module gevonden die het kan:
http://www.perldoc.com/perl5.6/lib/MIME/Decoder.html
Nu ben ik niet zo'n grote held in perl, dus zou iemand mij een beetje op weg wel helpen. Ik begrijp de uitleg die er bij staat nog niet helemaal.
Ik heb nu ook een perl script wat uitgevoerd wordt voor de mail wordt opgehaald, zodat er een disclaimer onder komt.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| #!/usr/bin/perl -n
$sig_html = `cat /var/qmail-remote/signature-html`;
$search = "</BODY></HTML>";
while (<>)
{
if (/$search/)
{
chomp ($_);
$_ =~ s/$search/$sig_html/;
}
print $_;
}
exit(0); |
Nu zou ik ook nog willen dat de mail 7bit (van quoted-printable) wordt mbv van die module.
Volgens mij moet dit wel in de huidige code kunnen, maar als iemand me op weg zou willen helpen, graag.
http://www.bsdfreaks.nl Home site: http://rob.lensen.nu /me was RobL