www.pudn.com > coolchat.zip > chatrennickname.pl

sub renickname 
{ 
	&get_form_data; 
        my $nickname  = &RemoveSpecialChar($formdata{'message'}); 
        if((length($nickname) < 1)||(length($nickname) > 15)||($UserData{'Nick'} eq $nickname)) 
        { 
	    &chatshowmsg; 
            exit 0; 
        } 
 
        $lowid = lc($UserData{'User'}); 
        &lock("$chatdatadir/$UserData{'Room'}$DATA"); 
        if(open(USERLIST,"<$chatdatadir/$UserData{'Room'}$DATA")) 
        {#Del user from the onlinelist 
	     @userlines=; 
	     close(USERLIST); 
             if(open(USERLIST,">$chatdatadir/$UserData{'Room'}$DATA")) 
             { 
	        foreach $userline(@userlines) 
	        { 
                      ($userid,$tails)=split(/:/,$userline,2); 
                      if(lc($userid) eq $lowid) 
                      { 
                      	  ($time,$key,$ip,$nick,$tails)=split(/:/,$tails,5); 
                      	  if($ip eq $ENV{'REMOTE_ADDR'}) 
                      	  { 
                      	  	$userline = "$userid:$time:$key:$ip:$nickname:$tails"; 
                      	  } 
                      } 
                      print USERLIST $userline; 
                      if($entertime > $idnum) 
                      {#Find the oldest user in the room. 
                          	$newmaster = lc($userid); 
                          	$entertime = $idnum; 
                      } 
                } 
                close(USERLIST); 
             } 
        } 
        &unlock("$chatdatadir/$UserData{'Room'}$DATA"); 
 
        $message = "¸Ä±äÄسƣº$UserData{'Nick'}»»³É$nickname"; 
        &UpdateChatData(0, $UserData{'User'},$UserData{'Room'},$nickname,$message); 
        &UpdateChatData(40, '-Billow-',$UserData{'Room'},$nickname,"Ren nickname"); 
        print "Content-type: text/html\nPragma: no-cache\n"; 
        &SetCookies(0,'Nick',$nickname); 
	print "\n"; 
	&chatshowmsg; 
} 
1; #return true