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 [EMAIL PROTECTED] 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 - [EMAIL PROTECTED] - (+52-55)5630-9700 ext. 1366
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF
