Location: PHPKode > projects > Develooping Flash Chat > develooping_flash_chat_1.6.5/chat/chat.php
<?php

header("Expires: ".gmdate("D, d M Y H:i:s")."GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");
?>

<?php 
/*	develooping flash chat   		                    */
/*	Based in a free flash engine from 	                */
/*	http://www.neo-ego.com	<hide@address.com>       */
/*	Original script by Nicola Delbono <hide@address.com>	*/
/*	Added time, users management, private messages,     */
/*	ip banning, bad words filter, kicking               */
/*  and more improvements by                            */
/*	hide@address.com	                        */
/*	version 1.6.5                                     */
?>

<?php 
error_reporting(7);
require ('required/config.php');

$chat_file_ok = "required/msg.txt";//message file

$users_file = "required/users.txt";//The file where you save users and passwords

if($show_without_time == "no"){//show time?
$substart=0;
}else{
$substart=19;
}

/*	check banning   */
/*	--------------- */

$banned_file = "required/banned_ip.txt";//the file with banned ips
$text_string = join ('', file ($banned_file));
if (ereg("(.)*$password\n",$text_string)){//this user was banned
$text_string = join ('', file ($users_file));
$new_list= str_replace ("$password", " banned", $text_string);
$fcusers = fopen($users_file, "w");
$fwcusers = fwrite($fcusers, $new_list);
fclose($fcusers);
}

$person = str_replace ("\n"," ", $person);
$person = str_replace ("<", " ", $person);
$person = str_replace (">", " ", $person);
$person = trim ($person);
$person = stripslashes ($person);
?>
&output=
<?php 
/*	check the user  */
/*	--------------- */
$text_string = join ('', file ($users_file));
$valid_user=  "valid";
if ((ereg("$person\n kicked\n", $text_string)) or (ereg("$person\n banned\n", $text_string))){
$valid_user = "kicked";
}
if ($valid_user == "kicked"){
if (ereg("$person\n kicked\n", $text_string)){echo urlencode($kicked_user)."\n";}
if (ereg("$person\n banned\n", $text_string)){echo urlencode($banned_user)."\n";}
if (ereg("$person\n $password\n", $text_string)){//is not in the user list
$user_is_not_here=0;
}
else
{
$user_is_not_here=1;
}

if ($user_is_not_here==1){
echo urlencode($banned_user)."\n";
}

}else{
			
/*	limit file size of $chat_file_ok */
/*	-------------------------------- */

$lines = file($chat_file_ok);
$a = count($lines);

if ($a >= $total_lenght){
$u = $a - $review_lenght;
$msg_old="";
for($i = $u; $i <= $a ;$i++){
		$msg_old =  $msg_old.strval($lines[$i]);
	}
$fchat = fopen($chat_file_ok, "w");
$fwchat = fwrite($fchat, $msg_old);
fclose($fchat);
}

/*	write message to $chat_file_ok */
/*	------------------------------ */
		
$msg = str_replace ("\n"," ", $message);
$msg = stripslashes ($msg);

$msg = htmlspecialchars ($msg);


//accepted tags
      $msg = str_replace("&lt;b&gt;","<b>",$msg);
      $msg = str_replace("&lt;B&gt;","<b>",$msg);
      $msg = str_replace("&lt;/b&gt;","</b>",$msg);
      $msg = str_replace("&lt;/B&gt;","</b>",$msg);
      
      $msg = str_replace("&lt;i&gt;","<i>",$msg);
      $msg = str_replace("&lt;I&gt;","<i>",$msg);
      $msg = str_replace("&lt;/i&gt;","</i>",$msg);
      $msg = str_replace("&lt;/I&gt;","</i>",$msg);

//close unclosed tags //
$countb=substr_count($msg, "<b>");
$count_b=substr_count($msg, "</b>");
$counti=substr_count($msg, "<i>");
$count_i=substr_count($msg, "</i>");
function strlastpos($haystack, $needle) {
if (strstr($haystack, $needle)){
return strlen($haystack) - strlen($needle) - strpos(strrev($haystack), strrev($needle));
}else{
return -1;
}
}
$lastb = strlastpos($msg,"<b>");
$lasti = strlastpos($msg,"<i>");

if ($lastb>$lasti){
for($addb = $count_b; $addb < $countb ;$addb++){
if($msg!=""){
$msg .="</b>";
}
}
for($addb = $count_i; $addb < $counti ;$addb++){
if($msg!=""){
$msg .="</i>";
}
}
}
if ($lasti>$lastb){
for($addb = $count_i; $addb < $counti ;$addb++){
if($msg!=""){
$msg .="</i>";
}
}
for($addb = $count_b; $addb < $countb ;$addb++){
if($msg!=""){
$msg .="</b>";
}
}

}
//insert links
function InsertLinks ( $Text )
{
//  First match things beginning with http:// (or other protocols)
   $NotAnchor = '(?<!"|href=|href\s=\s|href=\s|href\s=)';
   $Protocol = '(http|ftp|https):\/\/';
   $Domain = '[\w]+(.[\w]+)';
   $Subdir = '([\w\-\.,@?^=%&:\/~\+#]*[\w\-\@?^=%&\/~\+#])?';
   $Expr = '/' . $NotAnchor . $Protocol . $Domain . $Subdir . '/i';

   $Result = preg_replace( $Expr, "<a href=\"$0\" title=\"$0\" target=\"_blank\">$0</a>", $Text );

//  Now match things beginning with www.
   $NotAnchor = '(?<!"|href=|href\s=\s|href=\s|href\s=)';
   $NotHTTP = '(?<!:\/\/)';
   $Domain = 'www(.[\w]+)';
   $Subdir = '([\w\-\.,@?^=%&:\/~\+#]*[\w\-\@?^=%&\/~\+#])?';
   $Expr = '/' . $NotAnchor . $NotHTTP . $Domain . $Subdir . '/i';

   return preg_replace( $Expr, "<a href=\"http://$0\" title=\"http://$0\" target=\"_blank\">$0</a>", $Result );
}

$msg = InsertLinks( $msg );

//replace emoticons
$msg=str_replace (":)","<font face='Devemoticons' size='18' color='#990000'>b</font>", $msg);
$msg=str_replace (":|","<font face='Devemoticons' size='18' color='#990000'>c</font>", $msg);
$msg=str_replace (";)","<font face='Devemoticons' size='18' color='#990000'>d</font>", $msg);
$msg=str_replace (":D","<font face='Devemoticons' size='18' color='#990000'>e</font>", $msg);
$msg=str_replace (":O","<font face='Devemoticons' size='18' color='#990000'>f</font>", $msg);
$msg=str_replace (":o","<font face='Devemoticons' size='18' color='#990000'>f</font>", $msg);
$msg=str_replace (":P","<font face='Devemoticons' size='18' color='#990000'>g</font>", $msg);
$msg=str_replace (":(","<font face='Devemoticons' size='18' color='#990000'>h</font>", $msg);
$msg=str_replace (":S","<font face='Devemoticons' size='18' color='#990000'>i</font>", $msg);
$msg=str_replace ("8)","<font face='Devemoticons' size='18' color='#990000'>j</font>", $msg);
//end replace emoticons

/*	filter bad words */
/*	----------------- */

$number_of_bad_words = count($words_to_filter);
for($i = 0; $i <= $number_of_bad_words ;$i++){
if (strval($words_to_filter[$i])!=""){
$msg = eregi_replace(strval($words_to_filter[$i]),$replace_by,$msg);
}
}

if (ereg ("$private_message_expression", $msg, $regs) and ereg ("\(de $password a", $msg)){  // is a private message
$receiver = strval($regs[1])."\n";
$lines = file($users_file);
$a = count($lines);
$follow = 1;
for($i = 0; $i <= $a ;$i++){
if (strval($lines[$i]) == $receiver){
$add = rtrim(strval($lines[$i+1]));//read the password of receiver
$follow = 0;
}else{
if ($follow==1){
$add = " eztezamarchaoynoezta";// receiver is not in the room
}}
}
$msg .= $add;
}
if ($msg != ""){



$text_to_write = date ("(H:i:s)",time()+$correct_time)." ".$person." : ".$msg."\n";//compound single message
$fchat1 = fopen($chat_file_ok, "a");
$fwchat1 = fwrite($fchat1, "$text_to_write");// message is appended to the msg.txt file
fclose($fchat1);
}

/*	reads the last $chat_lenght lines of $chat_file_ok */
/*	-------------------------------------------------- */

$lines = file($chat_file_ok);
$a = count($lines);
$u = $a - $chat_lenght;

/*	check the text order */
/*	-------------------- */
if ($text_order == "up"){
for($i = $a; $i >= $u ;$i--){

$is_private = 0;
$show_message = 1;
$line_value= strval($lines[$i]);
$string_to_add="";

/*	output to the chat private and general messages */
/*	----------------------------------------------- */

if (ereg($private_message_expression, $line_value, $name) and ereg("\(de (.*) a (.*)$", $line_value, $pass)){// is a private message
	$senderpassword=strval($pass[1]);
	$receiverpassword=strval($pass[2]);
	$receivername=strval($name[1]);
	$is_private = 1;
	$show_message = 0;
	}
	if ($is_private == 1){
	if (($receivername==$person) and ereg("(.)?$password(\n)?", $receiverpassword)){//is the receiver
	$line_value = ereg_replace( "\(de (.*) a (.*)$", "\n", $line_value);
	echo substr(urlencode($line_value),$substart);//show message
	} elseif(ereg("\(..:..:..\) $person :", $line_value) and ereg("(.)?$password", $senderpassword)){//is the sender
	if (ereg("(.)?eztezamarchaoynoezta(\n)?", $receiverpassword)) {$string_to_add = $not_here_string;}
	$line_value = ereg_replace( "\(de (.*) a (.*)$", "$string_to_add\n", $line_value);
	echo substr(urlencode($line_value),$substart);//show message
	}else{
	$u--;
	$show_message = 0;
	} 
	}         
if ($show_message == 1) {// is a general message
if ((ereg($bye_user,$line_value)) or (ereg($enter_string,$line_value))){
echo urlencode ($line_value);//show time only if user enters or exits
}
else{
echo substr(urlencode($line_value),$substart);//show message
}
}
}
}
	else{
	for($i = $u; $i <= $a ;$i++){

$is_private = 0;
$show_message = 1;
$line_value= strval($lines[$i]);
$string_to_add="";

/*	output to the chat private and general messages */
/*	----------------------------------------------- */

if (ereg($private_message_expression, $line_value, $name) and ereg("\(de (.*) a (.*)$", $line_value, $pass)){// is a private message
	$senderpassword=strval($pass[1]);
	$receiverpassword=strval($pass[2]);
	$receivername=strval($name[1]);
	$is_private = 1;
	$show_message = 0;
	}
	if ($is_private == 1){
	if (($receivername==$person) and ereg("(.)?$password(\n)?", $receiverpassword)){//is the receiver
	$line_value = ereg_replace( "\(de (.*) a (.*)$", "\n", $line_value);
	echo substr(urlencode($line_value),$substart);//show message
	} elseif(ereg("\(..:..:..\) $person :", $line_value) and ereg("(.)?$password", $senderpassword)){//is the sender
	if (ereg("(.)?eztezamarchaoynoezta(\n)?", $receiverpassword)) {$string_to_add = $not_here_string;}
	$line_value = ereg_replace( "\(de (.*) a (.*)$", "$string_to_add\n", $line_value);
	echo substr(urlencode($line_value),$substart);//show message
	}else{
	$u--;
	$show_message = 0;
	} 
	}         
if ($show_message == 1) {// is a general message
if ((ereg($bye_user,$line_value)) or (ereg($enter_string,$line_value))){
echo urlencode ($line_value);//show time only if user enters or exits
}
else{
echo substr(urlencode($line_value),$substart);//show message
}
}
}
}
}
echo "&order=";
echo $text_order;
?>
Web-based Email Marketing Software for sending email newsletters
Return current item: Develooping Flash Chat