LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Chat

Edituj záznam
Kategorie: PHP
Programovací jazyk: PHP
Domovská stránka:
Download:
Tvůrce:
Popis skriptu: Jednoduchy chat bez SQL
Nároky na klienta:
Nároky na server:
Kód s komentáři:
<-- index.php --> 

<? 
require "./const.php"

ClearStatCache(); // vymaz vyrovnavaciu pamet 

if(!File_Exists($subor)) // ak subor neexistuje - vytvor ho 
    
FClose(FOpen($subor,"w")); 
?> 
<html> 
<head> 
    <title>Jednoduchý "chat"</title> 
</head> 

<frameset rows="100,*,20"> 
    <frameset cols="34%,*"> 
        <frame src="head.php?oldSize=<?ClearStatCache(); echo FileSize($subor)?>" name="head"> 
        <frame src="form.php?name=&sprava=" name="form"> 
    </frameset> 
    <frame src="show.php" name="show"> 
</frameset> 

</html> 


<-- show.php --> 

<? 
Header
("Pragma: no-cache"); 
Header("Cache-control: no-cache"); 
Header("Expires: ".GMDate("D, d m Y H:i:s")." GMT"); 
?> 
<html> 
<head> 
    <title>Zobrazenie odkazov</title> 
</head> 
<body bgcolor="#cccccc"> 
<p style="font-family: 'ARIAL CE', 'HELVETICA CE','ARIAL','HELVETICA'; font-size: 12px;"> 
<? 
require "./const.php"// nacitaj "konstanty" 

$fp FOpen($subor,"r"); // otvor subor na citanie 

ClearStatCache(); // vymaz vyrovnavaciu pamet 
$velkostSuboru FileSize($subor); // zisti velkost suboru 

if($velkostSuboru $maxOdkazByte// uz mam v datovom subore viac sprav ako maxPocetOdkaz ? 
    
FSeek($fp,$velkostSuboru $maxOdkazByte); // zmen poziciu na poslednych maxPocetOdkaz 

FPassThru($fp); // vypis suboru od aktualnej pozicie & zatvor subor 
?> 
</p> 
</body> 
</html> 

<-- form --> 

<html> 
<!-- Ak nie je vyplnene meno - zameraj nan kurzor. Inak zameraj na spravu. --> 
<body bgcolor="#666666" onLoad="if(document.f.meno.value.length) document.f.sprava.focus(); else document.f.meno.focus();"> 
<? 
require "./const.php"

if(
$sprava != ""): // ak sprava nieco obsahuje 

    
if($meno == ""
        
$meno "anonym"// ak uzivatel nezadal meno bude "anonym" 
    
else 
        
$meno StripSlashes(StrTr($meno,"<>&","***")); // odstran lomitka spred citlivych znakov a nahradi niektore nebezpecne znaky 

    
$sprava StripSlashes(StrTr($sprava,"<>&","***")); // odstran lomitka spred citlivych znakov a nahradi niektore nebezpecne znaky 

    
$fp fopen($subor,"a"); // otvor subor pre doplnenie 
    
fputs($fp,sprintf($format,$meno,$sprava)); // naformatuj odkaz a zapis ho do suboru 
    
fclose($fp); // zatvor subor 
    
?> 
        <script language="JavaScript"> 
        parent.frames["show"].location = "show.php" // bola pridana sprava, obnov zobrazenie odkazov 
        </script> 
    <? 
    
endif; 
?> 
<form method=post name="f"> 
<table border="0" align="center"> 
    <tr align="center"> 
        <td>meno</td> 
        <td>správa</td> 
    </tr> 
    <tr align="center" valign="baseline"> 
        <td><input type="text" name="meno" size="8" maxlength="<?echo $maxDlzkaMeno?>" value="<?echo $meno?>"></td> 
        <td><input type="text" name="sprava" size="40" maxlength="<?echo $maxDlzkaSprava?>"> <input type=submit value=" Ok "></td> 
    </tr> 
</table> 
</form> 
</body> 
</html> 


<-- head.php --> 

<? 
Header
("Pragma: no-cache"); 
Header("Cache-control: no-cache"); 
Header("Expires: ".GMDate("D, d m Y H:i:s")." GMT"); 
?> 
<html> 
<head> 
    <title>Kontrola nových odkazov</title> 
    <style type="text/css"> 
        input { 
            background-color: #666666; 
            color: #000000; 
            border-left: 0px; 
            border-right: 0px; 
            border-top: 0px; 
            border-bottom: 0px; 
        } 
    </style> 
</head> 
<body bgcolor="#666666"> 
<? 
require "./const.php"

ClearStatCache(); // vymaz vyrovnavaciu pamet 
$newSize FileSize($subor); // zisti velkost suboru 

if($newSize != $oldSize): // pribudol novy odkaz ? 
?> 
    <script language="JavaScript"> 
    parent.frames["show"].location = "show.php" // obnov ramec "show" 
    </script> 
<? 
endif; 
?> 
<form name="form"> 
Kontrola nastane za <input type="text" name="timer" size="3" readonly> s 
</form> 

<script language="JavaScript"> 
var t = 10 // konstanta v sekundach znovunacitania stranky 

function Timer(){ 
    document.form.timer.value = t // vypis do formulara 
    if(!t) // uplynula doba casovaca 
        parent.frames["head"].location = "head.php?oldSize=<?echo $newSize?>
    else{ 
        t-- 
        setTimeout("Timer()",999) // spusti opat o 1 sekundu 
        } 
    } 
Timer() // spustenie odpocitavania 
</script> 

</body> 
</html> 

<-- const.php --> 

<? 
$subor 
"./data.txt"// cesta k suboru, kde sa budu ukladat spravy 

$maxDlzkaMeno 8// maximalna dlzka retazca "meno" 
$maxDlzkaSprava 80// maximalna dlzka retazca "sprava" 

$maxPocetOdkaz 15// kolko poslednych odkazov sa ma zobrazovat ? 

// format zobrazenia spravy 
$format sprintf("%s <b>%%%d.%ds: </b>%%-%d.%ds<br>",Date("d.m.Y H:i:s"),$maxDlzkaMeno,$maxDlzkaMeno,$maxDlzkaSprava,$maxDlzkaSprava); 

// kolko bajtov obsahuje maxPocetOdkaz ? 
$maxOdkazByte StrLen(sprintf($format,"","")) * $maxPocetOdkaz
?>
Zadal/a: Propernex


pridej.cz

> Vyhledávání software
> Vyhledávání článků

8.5.2016 17:19 /Redakce Linuxsoft.cz
PR: Dne 26.5.2016 proběhne v Praze konference Cloud computing v praxi. Tématy bude např. nejnovější trendy v oblasti cloudu a cloudových řešení, cloudové služby, infrastruktura cloudu, efektivní využití cloudu, možné nástrahy cloudů a jak se jim vyhnout
Přidat komentář

21.4.2016 8:01 /František Kučera
Spolek OpenAlt zve na 127. distribuovaný sraz příznivců svobodného softwaru a otevřených technologií (hardware, 3D tisk, SDR, DIY, makers…), který se bude konat ve čtvrtek 28. dubna od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

2.3.2016 22:41 /Ondřej Čečák
Letošní ročník konference InstallFest již tento víkend!
Přidat komentář

14.2.2016 16:39 /Redakce Linuxsoft.cz
O víkendu 5. a 6. března 2016 proběhne na pražském Strahově 8. ročník tradiční konference InstallFest. Celkem za dva dny uvidíte ​30 přednášek​ a ​6 workshopů.
Přidat komentář

5.2.2016 17:38 /Petr Ježek
Utilitka z XFce "xfce4-power-manager" nejen umožňuje nastavení lhůty pro uspání či hybernaci, ale i zapínání a vypínání prezentačního módu pro nerušené sledování videí. Stačí ji nastavit v každém vybavenějším panelu a v jakémkoli nontiled WM/DE.
Přidat komentář

10.1.2016 11:32 /Pavel `Goldenfish' Kysilka
LinuxMarket změnil provozovatele. Nově jej provozuje Marek Pszczolka. Více info a detaily #1 a #2.
Přidat komentář

29.12.2015 11:38 /Ondřej Čečák
Ještě posledních pár dní můžete přidávat příspěvky nebo nápady na Install Fest 2016, který se bude konat 5. a 6. března 2016.
Přidat komentář

8.12.2015 11:36 /Petr Ježek
Logické se stává realitou. LibreOffice a Thunderbird se mají dle článku na Redditu stát protiváhou MS řešení (MS Office a Outlook).
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

7.5.2016 14:58 / Teodor Komárek
Soubory

20.4.2016 0:07 / Jakub Cleing
Sázkový panel PHP FUSION

9.4.2016 9:43 / jiwopene@gmail.com
Re: problém s dpkg a nemožností instalovat

9.4.2016 9:41 / jiwopene@gmail.com
Re: změna velikosti disk.oddílu

9.4.2016 9:40 / jiwopene@gmail.com
Re: Přenesení starého OS Win7 na virtuál v Debianu

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2016) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze