El 2004-05-04 a las 02:20 +0200, Carlos E. R. escribió:
Lo hace desde:
($login,$name)=(getpwuid($<))[0,6];
$from="$name <$login>";
* Tambien se podria hacer algun apaño para que la variable $from del fichero, no se saque con $name $login, se saque leyendo algun fichero, donde conste la equivalencia usuario que ejecuta la peticion, direccion de correo para el from.
Eso sería lo más correcto, si. Lo que todavía no he visto es como hace para importar la respuesta, porque todavía no he lanzado ninguna (hasta que cambie el "from").
Ya tengo más tema de estudio.
Se me ocurre que la manera más rápida sería con un selector o case, pero no tengo ni idea de como se hace en perl. O sea, tenemos: ($login,$name)=(getpwuid($<))[0,6]; $from="$name <$login>"; Cambiar la segunda linea por algo como: case login of 'cer' : from:= "direccion@servidor"; else $from="$name <$login>"; end; Pero bien, porque obviamente eso no es perl O:-) -- Saludos Carlos Robinson