View file quickchat/run.php

<? // WR-Quickchat v. 1.2 //  12.04.06 г. // [email protected]

#error_reporting (E_ALL);
include "config.php";

$datafile="./qchat.dat"; // имя файла данных
$msgio="1"; // направление показа сообщений 1/0

$lines=file($datafile);
$i=count($lines);
print"<table width=100% height=25>";
// выводим данные по возрастанию или убыванию
if ($msgio=="1") {$a1=0;$u=$i;} else {$a1=$i-1;$u="-1";}
do {$dt=explode("|", $lines[$a1]);
if ($msgio=="1") {$a1++;} else {$a1--;}
$dt[0]=eregi_replace("((https?|ftp)://[[:alnum:]_=/-]+(\\.[[:alnum:]_=/-]+)*(/[[:alnum:]+&._=/%]*(\\?[[:alnum:]?+&_=/%]*)?)?)", "<a href='\\1' title='\\1' target='_blank'>\\1</a>", $dt[0]);

print"<tr><td width=100% colspan=2>$dt[0]</td></tr>
<td width=50%><b><a href=mailto:$dt[2]>$dt[1]</a></b></td>
<td width=50% align=right><b>$dt[3]<BR><small>$dt[4]</b></small>
<tr><td width=100% height=2 colspan=2><hr size=-1 color=navy align=center width=90%></td></tr>";

if ($msgio=="1") {$a11=$a1; $u11=$u;} else {$a11=$u; $u11=$a1;}
} while($a11 < $u11);

print"</td></tr></table>";
?>