<![CDATA[
<?php
header("Content-type: text/vnd.wap.wml");
header("Cache-control: no-cache, must-revalidate");
header("Progma: no-cache");
$file = "vkonyv.dat"; // a fileneve, ahova mentödik az adat
$r=rand(1000,9999); // egy random számot generál, minden frissítésnél
echo "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">
<wml>
<card title=\"vendégkönyv\">
<onevent type=\"onenterforward\">
<refresh>
<setvar name=\"szoveg\" value=\"\"/>
</refresh>
</onevent>
<p align='center'>";
$vkonyvjelszo = "IDEKELLEGYJELSZO"; // ide irj be egy tetszleges jelszot, amit pl. a moderálásnál kell majd megadni
$vkonyvneved = "IDEKELLABECENEVED"; // ide ird a becenevet KISBETÜVEL, mert, ha ezen e neven ir vki, akkor kérni fogja a jelszot
$prg = "1.php"; // Ide jön a file neve
if ($sid == "sordel") {
// Jelszo ellenörzés Sortörléshez
if ($jelszo != $vkonyvjelszo) {
if ($jelszo != NULL) echo "Hibás jelszó!<br/>";
echo "
Jelszó:<br/>
<input type='password' name='jelszo'/><br/>
<anchor>mehet...
<go href='$prg?usr=$usr&set=pass' method='post'>
<postfield name='jelszo' value='$(jelszo)'/>
</go></anchor><br/>
</p></card></wml>";
exit;
}
// Rákérdezés a sor törlésére
if ($set == NULL) {
if ($sorszam != NULL) {
echo "Biztos törlöd a $sorszam. hozzászólást?<br/>
<a href='$prg?usr=$usr&jelszo=$jelszo&sid=sordel&set=set&del=$del'>Igen</a><br/>
<a href='$prg?usr=$usr'>Nem</a><br/>
";
}
else $sid=NULL;
}
// Sor törlése
if ($set == "set") {
$del_chk_n = 0;
$del_reg_n = 0;
$del_v = 0;
$del_file = $file;
$del_handle = fopen($del_file, "r");
$del_n = fread($del_handle, 5) + 0;
$del_i = 0;
while ($del_i < $del_n) {
$del_i++;
$del_l = fread($del_handle, 2);
$del__usr = fread($del_handle, $del_l);
$del_l = fread($del_handle, 2);
$del__tim = fread($del_handle, $del_l);
$del_l = fread($del_handle, 3);
$del__txt = fread($del_handle, $del_l);
if ($del__tim == $del) {
$del_chk_usr[] = $del__usr;
$del_chk_tim[] = $del__tim;
$del_chk_txt[] = $del__txt;
$del_chk_n++;
} else {
$del_reg_usr[] = $del__usr;
$del_reg_tim[] = $del__tim;
$del_reg_txt[] = $del__txt;
$del_reg_n++;
}
}
fclose($del_handle);
$del_file = $file;
$del_handle = fopen($del_file, "w");
$del_s = $del_reg_n;
while (strlen($del_s) < 5)
$del_s = "0" . $del_s;
fwrite($del_handle, $del_s);
for ($del_i = 0; $del_i < $del_reg_n; $del_i++) {
$del_s = strlen($del_reg_usr[$del_i]);
while (strlen($del_s) < 2)
$del_s = "0" . $del_s;
fwrite($del_handle, "$del_s{$del_reg_usr[$del_i]}");
$del_s = strlen($del_reg_tim[$del_i]);
while (strlen($del_s) < 2)
$del_s = "0" . $del_s;
fwrite($del_handle, "$del_s{$del_reg_tim[$del_i]}");
$del_s = strlen($del_reg_txt[$del_i]);
while (strlen($del_s) < 3)
$del_s = "0" . $del_s;
fwrite($del_handle, "$del_s{$del_reg_txt[$del_i]}");
}
fclose($del_handle);
echo "Törölve...<br/>";
$sid=NULL;
}
}
if ($sid == NULL) {
if ($set == "pass") {
if ($jelszo != $vkonyvjelszo) {
echo "Hibás jelszó!<br/>";
}
else {
echo "A jelszó helyes!<br/>";
}
}
if ($szoveg != NULL) {
$hibavan="nem";
$handle2 = fopen($file, "r");
$n2 = fread($handle2, 5) + 0;
$i2 = 0;
while ($i2 < $n2) {
$i2++;
$l2 = fread($handle2, 2);
$l_usr2 = fread($handle2, $l2);
$l2 = fread($handle2, 2);
$l_tim2 = fread($handle2, $l2);
$l2 = fread($handle2, 3);
$l_str2 = fread($handle2, $l2);
if ($l_str2 == $szoveg) {
$hibavan="igen";
}
}
fclose($handle2);
// Ellenörzés, létezik -e már a hozzászólás
if ($hibavan == "igen") {
echo "Ilyen hozzászólás már létezik!<br/>";
$szoveg=NULL;
}
else {
// Ellenörzi a megadott nevet
if ((strtolower($usr) == $vkonyvneved) && ($jelszo != $vkonyvjelszo)) {
if ($jelszo != NULL) echo "Hibás jelszó!<br/>";
echo "Jelszó:<br/>
<input type=\"password\" name=\"jelszo\" value=\"\" maxlength=\"15\"/><br/>
<anchor>OK
<go href=\"$prg\" method=\"post\">
<postfield name=\"jelszo\" value=\"$(jelszo)\"/>
<postfield name=\"szoveg\" value=\"$szoveg\"/>
<postfield name=\"usr\" value=\"$usr\"/>
</go></anchor><br/>
";
}
else {
// Majd Fileba irj az adatokat
$allapot = "";
$l_usr[] = $usr;
$l_tim[] = time();
$l_str[] = $szoveg;
$handle = fopen($file, "r");
$n = fread($handle, 5) + 0;
$i = 0;
while ($i < $n) {
$i++;
$l = fread($handle, 2);
$l_usr[] = fread($handle, $l);
$l = fread($handle, 2);
$l_tim[] = fread($handle, $l);
$l = fread($handle, 3);
$l_str[] = fread($handle, $l);
}
fclose($handle);
$n++;
$handle = fopen($file, "w");
$l = $n;
while (strlen($l) < 5)
$l = "0" . $l;
fwrite($handle, $l);
for ($i = 0; $i < $n; $i++) {
$l = strlen($l_usr[$i]);
while (strlen($l) < 2)
$l = "0" . $l;
fwrite($handle, $l . $l_usr[$i]);
$l = strlen($l_tim[$i]);
while (strlen($l) < 2)
$l = "0" . $l;
fwrite($handle, $l . $l_tim[$i]);
$l = strlen($l_str[$i]);
while (strlen($l) < 3)
$l = "0" . $l;
fwrite($handle, $l . $l_str[$i]);
}
fclose($handle);
}
}
}
// Végül lekérdezi
if ($lapoz == NULL)
$lapoz = 0;
$block=10;
if (file_exists($file)) {
$handle = fopen($file, "r");
$n = fread($handle, 5) + 0;
$i = 0;
while ($i < $n) {
$i++;
$l = fread($handle, 2);
$l_usr[] = fread($handle, $l);
$l = fread($handle, 2);
$l_tim[] = fread($handle, $l);
$l = fread($handle, 3);
$l_txt[] = fread($handle, $l);
}
fclose($handle);
}
else $n=0;
$i = $lapoz;
$req = $block;
if ($i != 0) {
$v = $lapoz - $block;
if ($v < 0)
$v = 0;
echo "</p><p><a href=\"$prg?usr=$usr&jelszo=$jelszo&lapoz=$v\">««</a><br/></p><p align='center'>\n";
}
$p = 0;
while (($req != 0) && ($i < $n)) {
$i2=$n-$i;
// Átalakitja a time(); idd, hó.nap óra:perc -re!
$s = date("m.d H:i", $l_tim[$i]);
$msg=$l_txt[$i];
$neve = $l_usr[$i];
$neve=strtolower($neve);
if ($jelszo == $vkonyvjelszo) {
echo "</p><p><small><a href='$prg?usr=$usr&jelszo=$jelszo&sid=sordel&del=$l_tim[$i]&sorszam=$i2'>[T]</a></small><b>[$i2/$n - $s]</b><br/>
<b>$l_usr[$i]:</b> $msg<br/>";
echo "</p><p align='center'>";
}
else {
echo "</p><p><b>[$i2/$n - $s]</b><br/>
<b>$l_usr[$i]:</b> $msg<br/>";
echo "</p><p align='center'>";
}
$i++;
$req--;
}
if ($n == 0)
echo "Nincs hozzászólás...<br/>\n";
if ($i < $n) {
$v = $lapoz + $block;
echo "</p><p align='right'><a href=\"$prg?usr=$usr&jelszo=$jelszo&lapoz=$v\">»»</a><br/></p><p align='center'>\n";
}
$kiirnev = "<input type=\"text\" name=\"usr\" value=\"\" maxlength=\"20\" emptyok=\"true\"/>";
echo "
Neved:<br/>
$kiirnev<br/>
Szöveg:<br/>
<input type=\"text\" name=\"szoveg\" value=\"\" maxlength=\"300\" emptyok=\"true\"/><br/>
<anchor>hozzászól/frissít
<go href=\"$prg?jelszo=$jelszo\" method=\"post\">
<postfield name=\"usr\" value=\"$(usr)\"/>
<postfield name=\"szoveg\" value=\"$(szoveg)\"/>
</go></anchor><br/>
<br/>";
// Ha a megadott jelszo, nem egyenl az alapjelszoval, vagy üres a jelszo, akkor kiirja
if ($jelszo != $vkonyvjelszo) {
echo "
<a href='$prg?usr=$usr&jelszo=$jelszo&sid=sordel'>Moderálás</a><br/>";
}
}
?>
</p>
</card>
</wml>
<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>
]]>