[...]

>
>
> estaba utilizando encfs para "criptografiar" (estará correcto el
> termino??) mi home y case todo ocurrio bien, excepto por dos
> inconvenientes:


El termino es "cifrar" ;)
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: 
http://listas.inf.utfsm.cl/pipermail/linux/attachments/20060718/d38f154d/attachment.html
From [EMAIL PROTECTED]  Tue Jul 18 15:53:13 2006
From: [EMAIL PROTECTED] (Alfredo Ramirez)
Date: Tue Jul 18 16:46:59 2006
Subject: [OT] La Distro War llega al futbol
Message-ID: <[EMAIL PROTECTED]>

Hola:

Aca va lo que realmente le dijo Materazzi a Zidane antes del cabezaso.

http://www.mortierbrigade.com/materazzi/?id=44143

Saludos
-- 
Alfredo Ramirez
From [EMAIL PROTECTED]  Tue Jul 18 16:22:47 2006
From: [EMAIL PROTECTED] (Miguel Oyarzo O.)
Date: Tue Jul 18 16:59:33 2006
Subject: alias temporal
In-Reply-To: <[EMAIL PROTECTED]
 >
References: <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>

At 13:32 18-07-2006, Victor Hugo dos Santos wrote:
>Hola y buenas tardes.
>
>Existe alguna manera de crear alias de correos temporales ??? que
>sirvan solamente por un correo ???
>
>digamos que quiero tener un alias [EMAIL PROTECTED] por ejemplo y
>que estes solamente reciba un correo y que lo reenvie a
>[EMAIL PROTECTED] y que luego despues de esto ya no exista mas.
>
>alguien ya ha echo esto, sin tener la necesidad de modificar
>/etc/aliases y ejecutar newaliases a todo instante ???
>
>salu2
>Victor Hugo dos Santos

hummm
sin programar lo veo dificil.

Intenta reutilizar este viejo codigo en Perl que escribí hace unos anios. Puede
que te sirva como base (deja pasar solo una vez un correo y no usa aliases ni 
nada).

en tu /etc/mail/virtusertable (o similar) agrega:
---
@algun_prefjo.miempresa.cl     alguna_variable
---
y en /etc/aliases
---
alguna_variable: "| /home/admin/programita_en_perl.pl"
---

programita_en_perl.pl
=========================
#!/usr/bin/perl
# Descompone el correo en variables
while(<STDIN>) {
        s/\r|\n//g;
        if (/^(\S+):\s+(.*)/) {
                $header{lc($1)} = $2;
                $lastheader = lc($1);
                }
        elsif (/^\s+(.*)/ && $lastheader) {
                $header{$lastheader} .= $_;
                }
        elsif (!$_) { last; }
        }
while(<STDIN>) {
        $body .= $_;
        }

# Separa user y dominio
($touser, $todom) = split(/\@/, $header{'to'});

# todo en miuscula para evitar error
$todom=~tr/A-Z/a-z/; 
$touser=~tr/A-Z/a-z/;

# Aqui coloca tu codigo  (puedes agregar verificacion de formatos especificos 
en user)
# 
$correo_fue_enviado={ (0 | 1) : Bucar la OT o el correo en algun archivo plano 
o base de datos }
#
#


if( ! $correo_fue_enviado) {
open(MAIL,"|/usr/lib/sendmail  -t [EMAIL PROTECTED] ") or die "No puedo abrir 
sendmail !";
        print MAIL "Reply-to:  $header{'from'}\n";
        print MAIL "From: $header{'from'}\n";
        if ($header{'subject'}) { print MAIL "Subject: $header{'subject'}\n" }
        else                    { print MAIL "Subject: Message\n" }
        print MAIL "To: $to\n\n";
        print MAIL $body;
close(MAIL);
} else {

# escribe $touser en la base de datos o en el archivo plano. 
# ( [EMAIL PROTECTED] solo deberia llegar una vez a [EMAIL PROTECTED] )

}

Ojala te sirva

Salu2

Miguel Oyarzo
Austro Internet
Punta Arenas


  • encfs y gdm Victor Hugo dos Santos
    • encfs y gdm Vodoo Master Gore

Responder a