Tekstifailiga külalisraamat
<?php
require_once 'abifunktsioonid.php'; //kutsub faili, kus on kirjeldatud funktsiooni getVar
?>
<HTML>
<HEAD>
<TITLE> Tekstifailiga külalisraamat</TITLE>
</HEAD>
<BODY>
<FORM METHOD="POST" ACTION="">
<textarea NAME="tekst" rows="5" cols="20"></textarea>
<INPUT TYPE="submit" value="Lisa">
</FORM>
<?php
$tekst = getVar('tekst',true);
$fn = 'data.txt';
if (file_exists($fn)) {
if ($tekst=='')
{
$fp = fopen($fn, 'rb'); //resurss on $fp
$size = filesize($fn);
$txt = fread($fp, $size);
echo nl2br($txt); // nl2br süst. reavahetus => <BR>
fclose($fp);
}
else
{
$fp = fopen($fn, 'ab');
fwrite($fp, 'Lisamise aeg: '.date('d.m.Y H:i:s').'<BR>'.$tekst.'<P>');
fwrite($fp, "\n"); //reavahetus failis
fclose($fp);
$fp = fopen($fn, 'rb'); //resurss on $fp
$size = filesize($fn);
$txt = fread($fp, $size);
echo nl2br($txt); // nl2br süst. reavahetus => <BR>
fclose($fp);
}
}
else {
$fp = fopen($fn, 'wb'); //luuakse tühi fail - ressurss
fwrite($fp, 'Külalisraamat loodud '.date('d.m.Y H:i:s'));
fwrite($fp, "<P>"); //reavahetus failis
fclose($fp);
}
?>
</BODY>
</HTML>
Processed: 2007/Feb/05 15:14:59