 Vie Dic 23, 2005 5:58 am
|
 |
rafa
Perlero Nuevo
|
Registrado: 14 May 2004
Mensajes: 68
|
|
| Modificar Chat de Perl para mandar mensajes privados |
 |
|
Hola de nuevo, un saludo para todos.
Tengo hecho en Perl un Chat, este se abre con frame y quisiera poner la opción de enviar privados entre los usuarios, alguien podría darme un script o alguna idea como puedo hacerlo ?.
Los nombres de usuarios están en ..
<nobr><FORM name="isn" ACTION="$ENV{'SCRIPT_NAME'}" METHOD="POST" onSubmit="return JoinIn();">
<font face="verdana"><b>ESCRIBA MENSAJE: </font></b><input name=username type=hidden value="$form{'username'}">
<input name=room type=hidden value="$form{'room'}">
<input name=nombre type=text value="$form{'nombre'}">
<input type=text name=message size=42 onfocus="javascript:this.select()">
<input name=CHATCOLOR type=hidden value="$form{'CHATCOLOR'}" size="8">
<select size="1" name="listado">
<option selected>TODOS</option>
<option>3º_ESTADÍSTICA_MADRID_R.B</option>
<option>10º_ESTADÍSTICA_MADRID_J.R</option>
<option>4º_ESTADÍSTICA_MADRID_J.M</option>
</select>
<input type=submit value="Enviar">
</form></nobr>
</TD></TR>
donde $form{'username'} y $form{'nombre'} es un solo usuario y es el mismo.
Y en la lista desplegable estan todos los usarios.
un Saludo a todos. |
|
|
|
|
Vie Dic 23, 2005 10:33 am
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4128
Ubicación: Valladolid, España
|
|
|
|
|
| Cuando un usuario crea un chat privado, es como crear un nuevo grupo en el que él y el invitado son los únicos que pueden entrar. Puedes pensar cómo crear ese grupo, de la misma forma que los grupos principales... |
|
|
Lun Dic 26, 2005 1:51 am
|
|
rafa
Perlero Nuevo
|
Registrado: 14 May 2004
Mensajes: 68
|
|
| MENSAJE PRIVADO |
|
|
Hola, la verdad que no te he entendido, debo decirte que mi programación en Perl es baja, no se si te refieres ha hacer algo parecido a eto :
if ($form{'username'} && $form{'listado'} eq $form{'nombre'})
{
$newmessage = .....
}
Un saludo. |
|
|
Jue Dic 29, 2005 5:27 am
|
|
monoswim
Vive para Perl en Español
|
Registrado: 18 Nov 2003
Mensajes: 716
Ubicación: Buenos Aires
|
|
|
|
|
Hola, en donde almacenas los mensajes del chat ???
En un TXT ? pues podrías usar otro TXT por cada conversación privada...
Y el script que muestre los mensajes dependiendo de la sala de chat que sea...
Espero que te sirva
Saludos |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
