[Postfix-es] Autorespondedores

[Salman ®]

Bueno como no he encontrado nada sobre el tema, me estoy escribiendo mi propio script de auto-reply

Lo que hago es lo siguiente:

un ".forward" en el home de usuario que contiene:
usuario,auto-reply

un ".vacation" en el home de usuario que contiene el mensaje a devolver.


un alias que llama al script
auto-reply: "|/root/bin/auto-reply.pl"

Todo me funciona excepto que no obtengo por ningun lado la variable de entorno correspondiente al usuario original y por lo tanto no puedo leer el correspondiente /home/usuario/.vacation

he probado con

auto-reply: "|/root/bin/auto-reply.pl $HOME"

en el aliases

Y tambien viendo los $ENV{} que maneja el script ( en PERL )
y no muestra por ningun lado el nombre del usuario original

La unica forma que veo es que el aliases indique directamente el $HOME "a pelo" lo cual supondria una entrada distinta en aliases para cada mensaje de autorespuesta que quiera poner.

¿ Alguna idea de como obtener automaticamente el $HOME ?

Por si a alguien le interesa, el script es algo como esto ( aun esta sin pulir pero funciona ):

=================================================================
#!/usr/bin/perl
###########

$Usuario = shift @ARGV;


    $mailprog = '/usr/lib/sendmail -t -f autoreply en aseara.net';
 $Mensaje="";
 $Asunto="";
 $Origen="";
 $Destinatario="";

@array=<STDIN>;
foreach $Cadena_Leida (@array) {
  $Cadena_Trabajo = $Cadena_Leida;
  chop $Cadena_Trabajo;
    if ($Cadena_Trabajo =~ /^From:/i)  {
      $Origen=$Cadena_Trabajo;
      $Origen=~ s/From: //;
    }
    if ($Cadena_Trabajo =~ /^Subject:/i)  {
      $Asunto = $Cadena_Trabajo;
      $Asunto =~ s/Subject://;
    }
    if ($Cadena_Trabajo =~ /^To:/i) {
      $Destinatario=$Cadena_Trabajo;
      $Destinatario =~ s/To: //; 
    }

  if ($Cadena_Trabajo !~ /[a-z]/) {
    last;;
  }
  $Cabecera .= qq~
 $Cadena_Trabajo
  ~;

}


# $Mensaje = `cat /home/$Usuario/.vacation`;

$Mensaje= qq~
 Home= $Usuario
 From: $Origen
 To: $Destinatario
 Asunto: $Asunto

 Cabecera oculta completa: $Cabecera
~;



   open (MAIL, "|$mailprog");
   print MAIL "From: $Destinatario \n";
   print MAIL "To: $Origen \n";
   print MAIL "X-Mailer: Salman_CorreoWeb_Auto-Reply \n";
   print MAIL "Subject: [Auto-Respuesta] $Asunto\n\n";
   print MAIL "$Mensaje\n";
   close MAIL;

=================================================================



----------
Salvador Guzmán
Salman PSL
Vigo, Galicia, España
+34 986-21.30.27
Móvil  679-Salman
Correo en Salman.ES
www.Salman.ES


----- Mensaje original ----- 
De: "Salman ®" <informaciones en salman.es>
Para: <postfix-es en lists.wl0.org>
Enviado: miércoles, 25 de mayo de 2005 11:08
Asunto: [Postfix-es] Autorespondedores


Estoy buscando informacion para poder poner mensajes de autorespuesta en algunas cuentas y lo que he encontrado esta en ingles:

Autoreply software
  a.. yaa! (yet another autoresponder) autoreply utility by Branko Grac. This can run as a one-time command at the end of a pipe, or as a resident server. 
  b.. Autoreply system architecture by Joshua E. Warchol. You still need to provide the PERL script that does the actual responding. 
  c.. gnarwl autoreply utility by Patrick Ahlbrecht. This uses LDAP instead of .forward+vacation. 
¿ Alguna sugerencia de como implementarlo en Postfix y  a ser posible que este en español ?

----------
Salvador Guzmán
Salman PSL
Vigo, Galicia, España
+34 986-21.30.27
Móvil  679-Salman
Correo en Salman.ES
www.Salman.ES


_______________________________________________
List de correo Postfix-es
Postfix-es en lists.wl0.org
http://lists.wl0.org/mailman/listinfo/postfix-es