Hi, I have a chat script that needs to be modified. The modifications would be, reverse the page layout so that the user name and message boxes are at the bottom of the page, take out pull down menu, and make it so user ip's don't show in the chat rooms. I'm on a very limited budget at the moment because of a computer meltdown, that about killed my pocketbook. If you can help please let me know, Thank You, Lesia

Hi Lesia I'm willing to help modify the script for free just email me at woodduck@bigpond.com with the script and a full list of modifications and the script either as an attachment or inside the email it's self.

Brian, I couldn't find the email addresses, so here's the script. My email address is tmhlmg@northcascades.net if anyone prefers I send it as an attatchment. The modifications needed are, reverse page layout so that the text and user name box is at the bottom of the page, take out the pull down menu, and make it so user's ip's don't show in the room. Thanks, Lesia

#!/usr/bin/perl

# Chat program (version 2.13) # # Copyright 1998 Michael Chavel (chavel@aquilo.net) # You may use this program for PERSONAL, NON-PROFIT USE ONLY! # The most recent version of this program and documentation can # be found at http://www.aquilo.net

foreach (keys %times) { # check active user names $taken=$_ if (m/^$user$/i); }; if (length($taken)) { # is name already active ### # one method of verifying users is to check the previous $user value # saved in a hidden field in the HTML form. If they don't match # this person is trying to use someone else's name if (lc($user) ne $cur->param("save")) { ### # another way to verify users is to check the remote users ip address. # if it is not the same as before assume this is a different person # and prompt for a different user name # if (!($remote_host =~ m/$hosts{$taken}/i)) { # $sorry ="The name $taken is already active. " .'Please choose another name.'; }; # otherwise, assume this is the same active user ### } elsif (length($user)) { # new user $times{$user} = $timestamp; $hosts{$user} = $remote_host; };