correo

[David Limon Romero]

Gunnar Wolf escribió:
> 
> > Hola, una disculpa porque no estoy inscrito a la lista y mando el correo,
> > mi pregunta basica es, como puedo mandar un correo electronico a mas 300
> > usuarios como root?? sin hacer tanto esfuerzo??? Muchas Gracias!
> 
> No lo he probado (de hecho, lo voy a escribir ahora mismo), pero puede ser
> algo asi:
> 
> open (PWD,'/etc/passwd');
> @cuentas='';
> while ($linea=<PWD>) {
>         @elementos=split(/:/,$linea);
>         push(@cuentas,$elementos[0]);
> }
> close(PWD);
> foreach $cuenta (@cuentas) {
>         open(MAIL,"|/bin/mail $cuenta");
>         print MAIL "Este es el tema del correo\n";
>         print MAIL "Aqui pones el cuerpo del mensaje\n";
>         print MAIL "Cuantas lineas hagan falta...\n"
>         close(MAIL);
> }
> 
> Con eso, le mandas correo a todos tus usuarios.

Gunnar: ¿Y con qué se lo va a comer? con pan, perl, tortilla, c, etc...

Saludos
David
--
David Limón Romero           | mailto:dlr en bret.com.mx
Hardware y Comunicaciones    | http://linux.bret.com.mx/
Grupo Embotellador BRET      | ICQ#:20804046
Puebla, Pue. México          | Linux User#:62953
Tel. +52-2-2291100 Ext. 2308 | Powered by Linux!
PGP Public Key: http://www.mega.net.mx/~dlr/dlr.pgp
--------------------------------------------------------
You can still escape from the GATES of hell: Use Linux!



-- 
Para desuscribirse, mande correo a: ayuda-unsubscribe en linux.org.mx
Para comandos adicionales, envíelo a: ayuda-help en linux.org.mx