Re: Script para arreglo de buzones corruptos

[Gunnar Wolf <gwolf@gwolf.cx>]

Juanillo dijo [Fri, May 23, 2003 at 10:19:11PM +0200]:
> Hola a todos
> 
> Hace unos dias se me lleno la particion donde tenia las colas de correo. La 
> consecuencia es que los buzones de correo se me han quedado corruptos.
> tal que asi:
> 
> qwerqweroiqeywhrfhkasdñlfkahsñflhkasdñfcnxcvnñasldhkfñasdkhfñasdhfñas
> qwerhqwñrhfoiqweytrjdfg,dmfbvgxzklchgw0gfiwerkhtñrlkehgrweoiytoerityoiy3
> iqwethdñsadfhasdñfhañsdlfhFrom pepito@palotes.es Thu .... etc
> 
> La solucion es borrar las lineas anteriores a la linea donde esta el From y 
> despues borrar los caracteres de antes del From para que quede de nuevo asi:
> (...)

Ummm... Tal vez no sea lo más rápido/eficiente, pero sí te asegura que
el buzón quedará en un formato realmente válido: Asómate al módulo de
Perl Mail::Box (libmail-box-perl). Puedes hacer un programilla como el
siguiente: 

--------------------
#!/usr/bin/perl
use warnings;
use strict;
use Mail::Box::Manager;

my ($mgr, $viejo, $nuevo);

$mgr = Mail::Box::Manager->new;
$viejo = $mgr->open('/var/mail/tubuzon', access=>'r');
$nuevo = $mgr->open('/tmp/nuevobuzon', access=>'a', create=>1);


foreach my $msg ($mbox->messages) {
    $mgr->copyMessage('pcm', $msg);
}
$mgr->closeAllFolders;
--------------------

Claro está, Mail::Box te permite MUCHO más que eso :) Es un maravilloso
modulito que conviene conocer.

Saludos,

-- 
Gunnar Wolf - gwolf@gwolf.cx - (+52-55)5630-9700 ext. 1366
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF