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

sub call 
{ 
	&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; 
        
        $inmessage=" 传呼内容是[".$message."] 请你马上回复！"; 
              
        &UpdateChatData(18, $UserData{'User'},$inviteroom,$UserData{'Nick'},$inmessage,$lowid,1); 
        $message = "你发送在线传呼$message给 $lowid,请等候回应！"; 
        &UpdateChatData(0, $UserData{'User'},$UserData{'Room'},$UserData{'Nick'},$message,$UserData{'User'},1); 
 
        &chatshowmsg; 
} 
1; #return true