File size: 4.62Kb
<?
header("Cache-Control: no-cache");
header("Content-type:text/vnd.wap.wml");
$ref=rand(10000,1000000);
require("inc.php");
$link = @mysql_pconnect ($MySQL_Hostname, $MySQL_Username, $MySQL_Password)
or die ("<wml>
<card id=\"error\" title=\"error\">
<do type=\"prev\" label=\"Back\"><prev/></do><p align=\"center\">Can not connect to MySQL</p>
</card>
</wml>");
@mysql_select_db($MySQLDatabasename) or die ("<wml>
<card id=\"error\" title=\"error\">
<do type=\"prev\" label=\"Back\"><prev/></do><p align=\"center\">error select the database...</p>
</card>
</wml>");
$result = @mysql_query ("Select pass,friends from users where id='".$id."'");
if (mysql_affected_rows() == 0) {
echo "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
echo "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">\n";
echo "<wml>\n";
echo "<card id=\"error\" title=\"Ошибка\" ontimer=\"index.php?ref=$ref\"><timer value=\"15\"/>\n";
echo "<p align=\"center\">\n";
echo "User was not found\n";
echo "</p>\n";
echo "</card>\n";
echo "</wml>\n";
mysql_close($link);
exit;
}
$row = mysql_fetch_array ($result);
if ($ps !== $row["pass"]){
echo "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
echo "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">\n";
echo "<wml>\n";
echo "<head><meta http-equiv=\"Cache-Control\" content=\"no-cache\" forua=\"true\"/></head>\n";
echo "<card id=\"error\" title=\"Ошибка\" ontimer=\"index.php?ref=$ref\"><timer value=\"15\"/>\n";
echo "<p align=\"center\">\n";
echo "Your login failed\n";
echo "</p>\n";
echo "</card>\n";
echo "</wml>\n";
mysql_close($link);
exit;
}
$us=$row["user"];
$fr = $row["friends"];
if(isset($go)){
$fr = str_replace($unuser."|","",$fr);
mysql_query ("UPDATE users SET friends = '".$fr."' WHERE id = '".$id."'");
echo "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
echo "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">\n";
echo "<wml>\n";
echo "<head><meta http-equiv=\"Cache-Control\" content=\"no-cache\" forua=\"true\"/></head>\n";
echo "<card id=\"ok\" title=\"Ok\" ontimer=\"frlist.php?id=$id&ps=$ps&ref=$ref\"><timer value=\"10\"/>\n";
echo "<p align=\"center\">\n";
echo "$unuser удален из вашего списка друзей\n";
echo "</p>\n";
echo "</card>\n";
echo "</wml>\n";
mysql_close($link);
exit;
}
echo "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
echo "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">\n";
echo "<wml>\n";
echo "<head><meta http-equiv=\"Cache-Control\" content=\"no-cache\" forua=\"true\"/></head>\n";
echo "<card id=\"frlist\" title=\"Друзья\">\n";
echo "<p>\n";
if (strpos ($fr,"|") !== false){
echo "Нажмите на звездочку рядом с ником для удаления юзера из Вашего списка друзей:<br/>\n";
$record=split("\|", $fr);
$num=count($record)-1;
if(!IsSet($s))$s=1;
@$max=round(($num/10)+0.45);
echo "Стр. $s из $max<br/>\n";
$ot=(($s-1)*10);
$do=$s*10;
for ($i=$ot;$i<$do;$i++){
if($i>=$num)break;
$adr=$record[$i];
echo "<anchor title=\"go\">$adr<go href=\"send.php?id=$id&ps=$ps&ref=$ref\" method=\"post\">\n";
echo "<postfield name=\"tofr\" value=\"$adr\"/>\n";
echo "</go></anchor>\n";
echo "<anchor title=\"go\">*<go href=\"frlist.php?id=$id&ps=$ps&go=del&ref=$ref\" method=\"post\">\n";
echo "<postfield name=\"unuser\" value=\"$adr\"/>\n";
echo "</go></anchor><br/>\n";
}
$next=$s+1;
$prev=$s-1;
echo"*********<br/>\n";
if ($max>$s) {
echo "<a href=\"frlist.php?id=$id&ps=$ps&s=$next\">След.10</a><br/>\n";
}
if(1<$s) {
echo "<a href=\"frlist.php?id=$id&ps=$ps&s=$prev\">Пред.10</a><br/>\n";
}
} else {
echo"У вас нет друзей!<br/>\n";
}
echo "<a href =\"chatmail.php?id=$id&ps=$ps&ref=$ref\">Ваши письма</a>\n";
echo "</p>\n";
echo "</card>\n";
echo "</wml>\n";
mysql_close($link);
?>