Esto está muy bien si quieres crear una oficina virtual. Muchos consultores independientes estarán interesados en esto.
Una vez que hayas extraído los archivos tiff de los mensajes de correo electrónico puedes hacer con ellos lo que quieras. En este artículo los convertiremos en archivos pdf y los pondremos en un directorio web de fácil descarga.
### Copia el correo en un archivo temporal. cp /var/spool/mail/Username File.mail ### Extrae los archivos tiff. uudeview File.mail ### Asumamos que el archivo tiff es extraído bajo el nombre MyFile.tiff ### Conviértelo a postscript tiff2ps MyFile.tiff > TempFile.ps ### Conviértelo a pdf ps2pdf TempFile.ps TempFile.pdf ### muévelo mv TempFile.pdf /www/docs/pdf/TempFile.pdfAsí es cómo lo puedes hacer manualmente. Sin embargo, queremos automatizar el proceso. Dos guiones harán esto en la siguiente sección.
#!/usr/bin/perl
## Asumimos que tienes uudeview instalado.
## Asumimos que tienes un directorio public_html que tu servidor web ha sido
## propiamente configurado para ver.
### Este guión perl no está asegurado propiamente dado que es posible elaborar
### una configuración extraña para el nombre del archivo del fax, que en teoría
### podría desordenar o echar a perder las líneas de declaración de comandos. Úsalo bajo tu propio riesgo.
my $User = "Mu_Username";
my $Temp = "/home/$User/Temp/fax";
system "cp /var/spool/mail/$User /home/$User/Temp/";
system "cp /dev/null /var/spool/mail/$User";
system "/usr/bin/uudeview -o -i -d -p /home/$User/tiff/ /home/$User/Temp/fax";
system "cp /dev/null /home/$User/Temp/fax";
my @Old_Pdfs = </home/$User/public_html/pdf/*.pdf>;
my $No = @Old_Pdfs;
foreach my $File (</home/$User/tiff/*.tif>)
{
$No++;
my $Ps = $File;
$Ps =~ s/\.tif/\.ps/g;
$Ps =~ s/tiff/ps/;
system "/usr/bin/tiff2ps $File > $Ps";
### Si quieres imprimir esto, quita el comentario
# system "lpr $Ps";
my $Pdf = $Ps;
$Pdf =~ s/\.ps/\.pdf/g;
system "/usr/bin/ps2pdf $Ps $Pdf";
### Bien elige mantener el nombre por defecto del archivo o bien numéralo
# system "mv $Pdf /home/$User/public_html/pdf/";
system "mv $Pdf /home/$User/public_html/pdf/$No.pdf";
system "rm $Ps $File;";
}
Aquí está el archivo "crontab" que necesitarás. Ejecuta el comando
crontab Crontabpara que sea automatizado.
#!/bin/sh 0,15,30,45 * * * * /home/UserName/Cron.pl >> /home/UserName/cron_log 2>&1
Phil Hunter de COLUG fue el primero que me habló de esto hace un año. Él simplemente vuelca los faxes en una impresora. No me era muy útil entonces cuando tenía una oficina y una máquina de fax, pero lo he encontrado muy útil desde que me mudé a California. Mi próximo objetivo es enviar faxes a través de un módem, y entonces podré mandar y recibir faxes cuando no estoy en mi oficina en la "Bay Area", la Zona de la Bahía (San Francisco).