Added lot of junk laying around on harvie.cz

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

diff --git a/php/stredni-php/pocitadlo.php b/php/stredni-php/pocitadlo.php
new file mode 100755 (executable)
index 0000000..a9a4c3a
--- /dev/null
+++ b/php/stredni-php/pocitadlo.php
@@ -0,0 +1,15 @@
+<?php\r
+\r
+$fp = FOpen ("pocitadlo.txt", "r");\r
+$pocet = FRead ($fp, 90);\r
+FClose ($fp);\r
+\r
+$pocet = ($pocet + 1);\r
+\r
+$fp = FOpen ("pocitadlo.txt", "w");\r
+FWrite ($fp, $pocet);\r
+FClose ($fp);\r
+\r
+echo ("Navstev: " . $pocet);\r
+\r
+?>\r