Re: [PERL] Mail problem qmail -> mhonarc

[<sslug@sslug>]

On Fri, 1 Jan 1999, Peter Toft wrote:

> Jeg mangler en ting før at der kommer mail webarkiver af alle vores
> lister.
> 
> qmail har et internt arkiv af mails, hvor hver mail ligger hver for sig,
> først med en header, og dernæst en almindelig tekst body.
> 
> Headeren for qmail mailen ser f.eks. således ud
> 
> --->
> Return-Path: <sslug@sslug>
[...]
> <---
> 
> Og for at jeg kan parse den header igennem mhonarc, som laver mail -> HTML
> med index og hele svineriet, så skal mailen f.eks. se således ud
> 
> --->
> >From sslug@sslug Mon Dec 21 22:26:48 1998
> Return-Path: <sslug@sslug>
[...]
> <---
> 
> Hvem hacker et lille script til mig, så det kan komme til at spille. 
> Og hvor meget kan skrottes for at mhonarc har nok at spise fra....

Jeg vil gætte på, at mhonarc blot skal bruge 'From ' som record seperator.
I såfald kan du:

ls | xargs perl -i -ne 'BEGIN{undef($/);} print "From sslug@sslug Mon Dec 21 22:26:48 1998\n"; print;'

(Ingen mails må være større end virtual memory).

Hvis det ikke er nok, så skriv igen.


/Ole