Added lot of junk laying around on harvie.cz

[mirrors/Programs.git] / php / stredni-php / pocitadlo2.php

diff --git a/php/stredni-php/pocitadlo2.php b/php/stredni-php/pocitadlo2.php
new file mode 100755 (executable)
index 0000000..f8a7299
--- /dev/null
+++ b/php/stredni-php/pocitadlo2.php
@@ -0,0 +1,20 @@
+<?php\r
+\r
+$fp = FOpen ("pocitadlo.txt", "r");\r
+$pocet = FRead ($fp, 90); //90 znaku dlouhe cislo by melo byt dost\r
+FClose ($fp);\r
+\r
+$pocet = ($pocet + 1);\r
+\r
+if (isset($HTTP_COOKIE_VARS['pricteno'])):\r
+    echo ("pricteno = " . $HTTP_COOKIE_VARS['pricteno'] . " - Ji\9e Pøièteno - Dal\9aí pøiètení mo\9eno za hodinu od poslednì.<br />");\r
+  else:\r
+    $fp = FOpen ("pocitadlo.txt", "w");\r
+    FWrite ($fp, $pocet);\r
+    FClose ($fp);\r
+    setcookie('pricteno', 'true', time()+3600); //sekundy - 3600 = 1hodina, 1000 000 = 11dni\r
+  endif;\r
+\r
+echo ("Navstev: " . $pocet);\r
+\r
+?>\r