Foro - Perl en Español

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.

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...

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.

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