<![CDATA[
<?php
/* administration for develooping flash chat */
/* by Juan Carlos Posé */
/* juancarlos@develooping.com */
/* version 1.6.4 */
require ('required/config.php');
?>
<style type="text/css">
body {
background-color: #EEEEEE;
font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size : 10px;
}
a:link{ color :#990000;text-decoration: none;}
a:active{ color :#FF9933;text-decoration: none;}
a:visited { color :#CC6666;text-decoration: none;}
a:hover { text-decoration: underline;
color : #990000;
}
input, select, textarea{
border : 1px solid #999999;
background-color : #DDDDDD;
color : #666666;
font-size : 10px;
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
border-width: 1px 0px 0px 1px;
text-indent : 2px;
}
input.but{
border : 1px solid #AAAAAA;
background-color : #CCCCCC;
color : #666666;
font-size : 10px;
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
border-width: 2px 3px 3px 2px;
}
</style>
<body bgcolor="#EEEEEE" text="#000000">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle"><form name="form1" method="post" action="adminusers.php">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="graphics/fondoceldas.jpg">
<tr>
<td width="5" height="5" align="left" valign="top"><img src="graphics/esq1.gif" width="5" height="5"></td>
<td height="5" colspan="5" align="right" background="graphics/la1.gif"><img src="graphics/la1.gif" width="5" height="5"></td>
<td width="5" height="5" align="right" valign="top"><img src="graphics/esq2.gif" width="5" height="5"></td>
</tr>
<tr>
<td width="5" rowspan="2" align="right" background="graphics/la2.gif"><img src="graphics/la2.gif" width="5" height="5"></td>
<td colspan="5" align="center" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#990000"><?php echo htmlentities($intro_admin_title)?></font>
<hr size="1" noshade></td>
<td width="5" rowspan="2" background="graphics/la3.gif"><img src="graphics/la3.gif" width="5" height="5"></td>
</tr>
<tr>
<td align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><font color="#666666"><?php echo htmlentities($intro_admin_name)?></font> </font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="name" size="10" maxlength="12" value="<?php echo $name?>" style="background:#CCCCCC; width:50px;" onfocus="style.backgroundColor='#EEEEEE';" onblur="style.backgroundColor='#CCCCCC';">
</font></td>
<td align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<font color="#FFFFFF"> <font color="#666666"><?php echo htmlentities($intro_admin_password)?></font> </font></font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="password" name="password" size="10" maxlength="12" value="<?php echo $password?>" style="background:#CCCCCC; width:50px;" onfocus="style.backgroundColor='#EEEEEE';" onblur="style.backgroundColor='#CCCCCC';">
</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="submit" name="Submit" value="Belépés a chatre »" class="but" id="enviar" onmouseover="style.backgroundColor='#DDDDDD'; style.color='#CC0000';" onmouseout="style.backgroundColor='#CCCCCC'; style.color='#666666'; width:75">
</font></td>
</tr>
<tr>
<td width="5" height="5" align="right" valign="bottom"><img src="graphics/esq3.gif" width="5" height="5"></td>
<td height="5" colspan="5" align="right" background="graphics/la4.gif"><img src="graphics/la4.gif" width="5" height="5"></td>
<td width="5" height="5"><img src="graphics/esq4.gif" width="5" height="5"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
<?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 <joost@extrapink.com> */
/* Original script by Nicola Delbono <key5@key5.com> */
/* Added time, users management, private messages, */
/* ip banning, bad words filter, kicking */
/* and more improvements by */
/* juancarlos@develooping.com */
/* version 1.6.4 */
?>
<?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("<b>","<b>",$msg);
$msg = str_replace("<B>","<b>",$msg);
$msg = str_replace("</b>","</b>",$msg);
$msg = str_replace("</B>","</b>",$msg);
$msg = str_replace("<i>","<i>",$msg);
$msg = str_replace("<I>","<i>",$msg);
$msg = str_replace("</i>","</i>",$msg);
$msg = str_replace("</I>","</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;
?>
<br>Partneroldalak: <br>
<a href="http://domain.domainshop.hu/domain.html" alt="tárhely domainregisztráció">Domain regisztráció tár és szerverszolgáltatások: domain domainnév tárhely e-mail, imap, pop3</a><br>
<a href="http://www.webtar.hu" alt="tárhely donainregisztráció">www.webtar.hu</a><br>
<a href="http://www.micropay.hu" alt="micropay">www.micropay.hu</a><br>
<a href="http://www.ingyenweb.hu" alt="ingyenweb">www.ingyenweb.hu</a><br>
<a href="http://www.videok.hu" alt="Videók">www.videok.hu</a><br>
<a href="http://www.xn--antikvrium-x4a.hu" alt="Antikvárium">www.antikvárium.hu</a><br>
<a href="http://www.ftpdir.hu" alt="ftpdir">www.ftpdir.hu</a><br>
<a href="http://xn--fotk-sqa.hu" alt="fotók">www.fotók.hu</a><br>
<a href="http://www.randi.hu" alt="Randi">www.randi.hu</a><br>
<a href="http://www.licit.hu" alt="Licit">www.licit.hu</a><br>
<a href="http://www.napivicc.hu" alt="vicc">www.napivicc.hu</a><br>
<a href="http://www.gyertyalang.hu" alt="gyertyagyújtás">www.gyertyalang.hu</a><br>
<a href="http://www.xn--helyesrs-fza2j.hu" alt="helyesírás.hu">www.helyesírás.hu</a><br>
<a href="http://domain.webtar.hu/domain.html" alt="Domain regiszráció és tárhely">Domain regisztráció</a><br>
]]>