[cmdline: regex] Mail box:alle berichten van X weg

[Verwijderd]

Ontbrakken?

edit: Ontbrakt... wat was je vraag?

[drm]

Jemig, dat is suf... Ik zit te wachten op replies in de search

anyhow, dit was mijn vraag:

ik heb een mailbox die helemaal volgelopen is met Sircam-berichten. Die berichten komen van 1 bepaald persoon en moeten uit de mailbox gehaald worden, want downloaden is gekkenwerk. (gaat om 200 mb ongeveer). Die mailbox moet dus gefilterd worden, en ik dacht aan zoiets:

cat "mailbox" | grep (hier een regex die alle berichten die beginnen met From: emailadres ... weglaat) >filtered;

zoiets, maar wat moet dan de regex zijn, en wat is wellicht een betere manier ...?

_edit:
het gaat om een UNIX 6.0 bak, alleen telnet access met een superuser van de mailbox-houder

[Verwijderd]

drm: Ik heb een mailbox die helemaal volgelopen is met Sircam-berichten. Die berichten komen van 1 bepaald persoon en moeten uit de mailbox gehaald worden.

cat "mailbox" | grep (hier een regex die alle berichten die beginnen met From: emailadres ... weglaat) >filtered;

Is een idee maar grep is linebased IIRC (vraagje tussendoor: waarom pipen mensen de output van cat naar grep als grep ook files kan lezen? )

Wat is wellicht een betere manier ...?

Perl en mboxutil (of zoiets) module? Edit: was Mail::Util

Of een filter maken met Perl maar dan moet je even hier wat ouput dumpen om mailen.

[drm]

Arien:
Is een idee maar grep is linebased IIRC (vraagje tussendoor: waarom pipen mensen de output van cat naar grep als grep ook files kan lezen? )

antwoordje tussendoor: macht der gewoonte denk ik, omdat je vaak ook de output van andere statements/progjes wil greppen. Eerder automatisme dan logica...

Wat is linebased IIRC? Waarin beperk ik me dan...?

Perl en mboxutil (of zoiets) module?

Perl is een beetje een onbegaan vlak voor mij... Maar ik zal eens ff kijken

[Verwijderd]

drm: Wat is linebased IIRC?

Dat grep op regels werkt (grep, egrep, fgrep - print lines matching a pattern)en dan wordt het moeilijk filteren als het om complete berichten gaat.

Perl is een beetje een onbegaan vlak voor mij... Maar ik zal eens ff kijken.

Plak anders hier even 2 berichten (editen mag, als de structuur maar zelfde blijft) om te kijken hoe die file eruit ziet. Is het mbox formaat?

[drm]

code:

From [e-mail] Sat Sep 29 12:45:31 2001
Received: from mail2.home.nl (mail2.home.nl [213.51.129.226])
      by mijnserver (8.9.3/8.9.3) with ESMTP id MAA14535
      for <webmaster@mijnserver>; Sat, 29 Sep 2001 12:45:26 +0200 (CEST)
Received: from Rick.ensch1.ov.nl.home.com ([217.120.132.106])
        by mail2.home.nl (InterMail vM.4.01.03.00 201-229-121) with SMTP
        id <[e-mail]>
        for <webmaster@mijnserver>; Sat, 29 Sep 2001 12:45:12 +0200
From: "Begbie"<[e-mail]>
To: webmaster@mijnserver
Subject: Zip alles
date: Sat, 29 Sep 2001 12:47:38 +0200
MIME-Version: 1.0
X-MIMEOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
Content-Type: multipart/mixed; boundary="----5C7AF3C7_Outlook_Express_message_boundary"
Content-Disposition: Multipart message
Message-Id: <[e-mail]>

------5C7AF3C7_Outlook_Express_message_boundary
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Content-Disposition: message text

Hi! How are you=3F
 
I send you this file in order to have your advice
 
See you later=2E Thanks

------5C7AF3C7_Outlook_Express_message_boundary
Content-Type: application/mixed; name="Zip alles.zip.bat"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;  filename="Zip alles.zip.bat"

{binaire code van attachment}

------5C7AF3C7_Outlook_Express_message_boundary


From [e-mail] Sat Sep 29 12:46:46 2001
is dus het volgende bericht op dezelfde wijze.

Heb de domeinnaam even veranderd in mijnserver voor convenience, if u don't mind

* Het eerste wat drm doet na deze ongein is een maxquota erop zetten

[odysseus]

Ik zit te denken aan zoiets:

code:

#!/usr/bin/perl

open (OUT, ">/var/spool/mail_fixed");
open (FILE, "/var/spool/mailbestand");
while (FILE)
{
  if ($_ =~ /^Content-Type\: application\/mixed/ || $i == 1)
  {
    $_ = "";
    $i = 1;
  }
print OUT $_;
$i = 0 if ($_ =~ /.*message_boundary.*/);
}
close FILE;
close OUT;

Ik doe dit uit mijn blote hoofd na een flinke tijd geen perl meer gedaan te hebben, dus waarschijnlijk compileert dit niet eens, laat staan dat het echt iets goeds doet . De bedoeling is in ieder geval dat het alles vanaf 'Content-Type: application/mixed" tot en met het einde van het attachment ("message_boundary") verwijdert. De attachments nemen naar ik aanneem de meeste ruimte in beslag. De berichten zelf zullen er dan nog wel staan, maar dat lijkt me vrij eenvoudig in een mailprogramma op te lossen. Ik betwijfel een beetje of dit is wat je zoekt, maar het is in ieder geval leuk om weer eens te proberen

[igmar]

Vraag over filteren mail

Met grepmail kun je filteren op inhoud van berichten. Of je hetgeen kan filteren wat sircam specifiek is : Geen idee.