|
1
|
<?
|
|
2
|
Header("Pragma: no-cache");
|
|
3
|
Header("Cache-Control: no-cache");
|
|
4
|
Header("Expires: ".GMDate("D, d M Y H:i:s")." GMT");
|
|
5
|
?>
|
|
6
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
|
|
7
|
|
|
8
|
<html>
|
|
9
|
<head>
|
|
10
|
<title>Update tabulky OBTEXTS</title>
|
|
11
|
</head>
|
|
12
|
|
|
13
|
<body bgcolor="Silver">
|
|
14
|
<CENTER><H2>Update tabulky OBTEXTS</H2></CENTER>
|
|
15
|
<?
|
|
16
|
|
|
17
|
function chyba()
|
|
18
|
{
|
|
19
|
global $radek;
|
|
20
|
|
|
21
|
printf("\n<BR>Pri zpracovani radku %s se vyskytla chyba!!!!!\n<BR>",$radek);
|
|
22
|
echo "</body></html>";
|
|
23
|
exit();
|
|
24
|
}
|
|
25
|
|
|
26
|
|
|
27
|
function zpracuj_heslo()
|
|
28
|
{
|
|
29
|
global $heslo;
|
|
30
|
global $vysledek;
|
|
31
|
|
|
32
|
$vysledek.=" ";
|
|
33
|
$vysledek.=$heslo;
|
|
34
|
// echo "<BR>".$vysledek;
|
|
35
|
$heslo="";
|
|
36
|
return;
|
|
37
|
}
|
|
38
|
|
|
39
|
function zpracuj_radek()
|
|
40
|
{
|
|
41
|
global $radek;
|
|
42
|
global $heslo;
|
|
43
|
|
|
44
|
$i=0;
|
|
45
|
$d=strlen($radek);
|
|
46
|
$stav=0;
|
|
47
|
echo "<BR>Cely radek".$radek;
|
|
48
|
while ($i<$d)
|
|
49
|
{
|
|
50
|
$c=$radek[$i];
|
|
51
|
$i++;
|
|
52
|
switch($stav)
|
|
53
|
{
|
|
54
|
case 0: if($c=='<') {$stav=1;break;}
|
|
55
|
if($c==' ') break;
|
|
56
|
else {$stav=9;$heslo.=$c;$j=1;break;}
|
|
57
|
|
|
58
|
case 1: if(($c=='a')||($c=='A')) {$stav=2;}
|
|
59
|
else chyba();
|
|
60
|
break;
|
|
61
|
|
|
62
|
case 2: if($c=='>') {$stav=3;}
|
|
63
|
break;
|
|
64
|
|
|
65
|
case 3: if($c=='<') {$stav=4;}
|
|
66
|
else {$heslo.=$c;}
|
|
67
|
break;
|
|
68
|
|
|
69
|
case 4: if (($c=='b')||($c=='B')) {$stav=5;break;}
|
|
70
|
if ($c=='/'){$stav=7;zpracuj_heslo();}
|
|
71
|
else chyba();
|
|
72
|
break;
|
|
73
|
|
|
74
|
case 5: if((($c=='a')||($c=='A'))&&($radek[$i-2]=='/')) $stav=6;
|
|
75
|
break;
|
|
76
|
|
|
77
|
case 6: if ($c=='>') {$stav=0;}
|
|
78
|
else chyba();
|
|
79
|
break;
|
|
80
|
|
|
81
|
case 7: if(($c=='a')||($c=='A')) $stav=8;
|
|
82
|
else chyba();
|
|
83
|
break;
|
|
84
|
|
|
85
|
case 8: if($c=='>') {$stav=0;}
|
|
86
|
else chyba();
|
|
87
|
break;
|
|
88
|
|
|
89
|
case 9: if ($c==' ') {zpracuj_heslo(); $stav=0;}
|
|
90
|
else {$heslo.=$c;}
|
|
91
|
break;
|
|
92
|
|
|
93
|
default: break;
|
|
94
|
}
|
|
95
|
}
|
|
96
|
|
|
97
|
if ($stav==9) {zpracuj_heslo();}
|
|
98
|
if (($stav==9)||($stav==0)) printf("\n<BR>Probehlo to OK!");
|
|
99
|
else chyba();
|
|
100
|
|
|
101
|
return;
|
|
102
|
}
|
|
103
|
|
|
104
|
$radek="DI�:DUMU <DI�:>ip-q�-�a <A HREF=\"http://www.klinopis.cz/utf/s.php?chain=+kuttimmum\"><B:>KU.D�M</A> ";
|
|
105
|
$vysledek="";
|
|
106
|
$heslo="";
|
|
107
|
zpracuj_radek();
|
|
108
|
echo "<BR>".$vysledek;
|
|
109
|
|
|
110
|
?>
|
|
111
|
</body>
|
|
112
|
</html>
|