the real IP address in cgi chat

[Al3inguy]

Dear friends

i have a chat line and it's written in cgi and it contain this command (getip) it's used to get the real ip for the flooders and the trouble makers but, i want it to get the computer ip for the flooder ... to stop him from entering the chat this is the command code:

if($com[1] eq "&quot{
$err = "*** Sorry, no nick provided to get its real ip!";
}elsif(!(open(sss,"online/$com[1].txt&quot)){
close(sss);
$err = &quot;*** Sorry, nick <b>$com[1]</b> not found&quot;;
}else{
open(ddd,&quot;online/$com[1].txt&quot;
flock(ddd,2);
$leinfo = <ddd>;
close(ddd);
@reinfo = split(/\|/,$leinfo);
if ($reinfo[8] >= 30) {
$reinfo[3] = &quot;#Blocked#&quot;;
open(privater,&quot;>>private/$com[1].txt&quot;
flock(privater,2);
print privater &quot;<!-- $time --><font color=\&quot;ff0000\&quot;>*** Op $IN{'name'} ($IN{'rank'}) has checked your IP.</font>\n&quot;;
close(privater);
}

if ($reinfo[8] == 29) {
open(privater,&quot;>>private/$com[1].txt&quot;
flock(privater,2);
print privater &quot;<!-- $time --><font color=\&quot;ff0000\&quot;>*** Op $IN{'name'} ($IN{'rank'}) has checked your IP.</font>\n&quot;;
close(privater);
}

if ($reinfo[8] == 28) {
open(privater,&quot;>>private/$com[1].txt&quot;
flock(privater,2);
print privater &quot;<!-- $time --><font color=\&quot;ff0000\&quot;>*** Op $IN{'name'} ($IN{'rank'}) has checked your IP.</font>\n&quot;;
close(privater);
}

$err = &quot;*** <b>$com[1]</b>'s real ip is ($reinfo[3]).&quot;;
}






and thanks