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

sub invitefriend 
{ 
	&get_form_data; 
	my($inviteid,$inviteroom,$message) = split(/ /,$formdata{'message'},3); 
 
	 
        if(($inviteid eq "")||($inviteroom eq "")) 
        { 
	    &chatshowmsg; 
            exit 0; 
        } 
        &somerror("出错了, 好像没有这个聊天室耶!") unless(-f "$chatdatadir/$inviteroom$MSG"); 
 
        MyDo $do_CheckIDIP; 
        &somerror("对不起，你不能发信息到 $inviteroom!")    if(&checkforbididip($UserData{'User'},$inviteroom) ne 0); 
 
        $lowid = $inviteid; 
        if($message eq "") 
        { 
            $inmessage = "你好呀, $inviteid,快来我们的聊天室呀! => $UserData{'Room'}!"; 
        } 
        else 
        { 
             $inmessage = $message; 
        } 
        $inmessage .= "(这条消息来自聊天室:$UserData{'Room'})"; 
        &UpdateChatData(0, $UserData{'User'},$inviteroom,$UserData{'Nick'},$inmessage,$lowid,1); 
        $message = "你发送消息$message给 $lowid 目前他在 $inviteroom"; 
        &UpdateChatData(0, $UserData{'User'},$UserData{'Room'},$UserData{'Nick'},$message,$UserData{'User'},1); 
 
        &chatshowmsg; 
} 
1; #return true