|
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 OBDICT</title>
|
|
11
|
</head>
|
|
12
|
|
|
13
|
<body bgcolor="Silver">
|
|
14
|
<CENTER><H2>Update tabulky OBDICT</H2></CENTER>
|
|
15
|
<?
|
|
16
|
|
|
17
|
function vrat_slovo()
|
|
18
|
{
|
|
19
|
|
|
20
|
global $radek;
|
|
21
|
global $radek2;
|
|
22
|
global $slovo;
|
|
23
|
global $ii;
|
|
24
|
|
|
25
|
|
|
26
|
while(true)
|
|
27
|
{
|
|
28
|
$slovo="";
|
|
29
|
while(($ii<strlen($radek))&&($radek[$ii]==' '))
|
|
30
|
{
|
|
31
|
$ii++;
|
|
32
|
$radek2.=" ";
|
|
33
|
|
|
34
|
|
|
35
|
}
|
|
36
|
|
|
37
|
if ($ii>=strlen($radek)) return(0);
|
|
38
|
|
|
39
|
while(($ii<strlen($radek))&&($radek[$ii]!=' '))
|
|
40
|
{
|
|
41
|
$slovo.=$radek[$ii];
|
|
42
|
$ii++;
|
|
43
|
|
|
44
|
}
|
|
45
|
|
|
46
|
if ($slovo[0]=="(") return(1);
|
|
47
|
$radek2.=$slovo;
|
|
48
|
|
|
49
|
}
|
|
50
|
}
|
|
51
|
|
|
52
|
static $slovo="";
|
|
53
|
static $radek ="";
|
|
54
|
static $radek2 ="";
|
|
55
|
static $pocet_hesel=0;
|
|
56
|
static $pocet_zmen=0;
|
|
57
|
static $pocc=0;
|
|
58
|
|
|
59
|
|
|
60
|
define("odkaz1","<A HREF=\"http://www.klinopis.cz/utf/utf/t.php?s=");
|
|
61
|
define("odkaz2","\">");
|
|
62
|
define("odkaz3","</A>");
|
|
63
|
|
|
64
|
@$spojeni = Pg_Connect("user=dbowner dbname=klinopis");
|
|
65
|
if (!$spojeni):
|
|
66
|
echo "Nepodarilo se pripojit k PostgreSQL.<BR>\n";
|
|
67
|
die ("</body></html>");
|
|
68
|
endif;
|
|
69
|
|
|
70
|
|
|
71
|
@$vysledek = Pg_Exec($spojeni, "SELECT item,text1 FROM obdict order by item,text1");
|
|
72
|
if (!$vysledek):
|
|
73
|
echo "Doslo k chybe pri zpracovani dotazu v databazi slovicek.<BR>\n";
|
|
74
|
die ("</body></html>");
|
|
75
|
endif;
|
|
76
|
echo "V tabulce obdict je <FONT color=\"Green\"><b>".Pg_NumRows($vysledek)."</b> </FONT>slovicek.<BR>\n";
|
|
77
|
|
|
78
|
for ($m=0; $m < Pg_NumRows($vysledek); $m++)
|
|
79
|
{
|
|
80
|
$pocc++;
|
|
81
|
$zaznam = Pg_Fetch_Array($vysledek, $m);
|
|
82
|
echo "<HR><br>Zaznam c.".$pocc." ".$zaznam["item"]."<BR>";
|
|
83
|
|
|
84
|
$ii=0;
|
|
85
|
$radek2="";
|
|
86
|
$item_pom = $zaznam["item"];
|
|
87
|
$radek=$zaznam["text1"];
|
|
88
|
|
|
89
|
echo "Ahh";
|
|
90
|
while(vrat_slovo()):
|
|
91
|
|
|
92
|
$slovo2="";
|
|
93
|
$carka=0;
|
|
94
|
for ($pomm=0;$pomm<strlen($slovo);$pomm++)
|
|
95
|
{
|
|
96
|
if ($slovo[$pomm]==',')
|
|
97
|
{
|
|
98
|
$carka+=1;
|
|
99
|
if ($carka==1) $pomm_slovo=$slovo2;
|
|
100
|
}
|
|
101
|
if ($carka==2) break;
|
|
102
|
else $slovo2.=$slovo[$pomm];
|
|
103
|
}
|
|
104
|
if ($carka==0) $radek2.=$slovo;
|
|
105
|
if ($carka==1) $slovo2=$pomm_slovo;
|
|
106
|
$slovo2 = $slovo2.",";
|
|
107
|
echo "<BR>Upravene slovo je ".$slovo2;
|
|
108
|
|
|
109
|
|
|
110
|
@$vysledek2 = Pg_Exec($spojeni, "SELECT bookandchapter FROM obtexts WHERE bookandchapter = '$slovo2'");
|
|
111
|
if (!$vysledek2)
|
|
112
|
{
|
|
113
|
echo "<br>Doslo k chybe pri zpracovani dotazu v tabulce obtexts.<BR>\n";
|
|
114
|
die ("</body></html>");
|
|
115
|
}
|
|
116
|
elseif (Pg_NumRows($vysledek2)==0)
|
|
117
|
{
|
|
118
|
//slovicko nenalezeno v OBTEXTS
|
|
119
|
echo "<BR>Slovicko ".$slovo2." v tabulce obtexts nenalezeno!";
|
|
120
|
$radek2.=$slovo;
|
|
121
|
|
|
122
|
}
|
|
123
|
else
|
|
124
|
|
|
125
|
{
|
|
126
|
//slovicko nalezeno v OBTEXTS
|
|
127
|
echo "<BR>Slovicko ".$slovo2." v tabulce obtexts nalezeno!";
|
|
128
|
$radek2.=odkaz1;
|
|
129
|
$radek2.=$slovo2;
|
|
130
|
$radek2.=odkaz2;
|
|
131
|
$radek2.=$slovo;
|
|
132
|
$radek2.=odkaz3;
|
|
133
|
}
|
|
134
|
|
|
135
|
|
|
136
|
endwhile;
|
|
137
|
|
|
138
|
echo "<br>Delka radek je".strlen($radek);
|
|
139
|
echo "<br>Delka radek2 je".strlen($radek2);
|
|
140
|
echo "<br>Radek je=".$radek."=";
|
|
141
|
echo "<br>Radek2 je=".$radek2."=";
|
|
142
|
|
|
143
|
for($o=0;$o<strlen($radek);$o++)
|
|
144
|
{
|
|
145
|
if ($radek[$o]!=$radek2[$o]) echo "<BR>cud";
|
|
146
|
// if ($radek[$o]!=$radek2[$o]) echo "<BR>Zmeneno na pozici".$o." znaky ".$radek[$o]."==".$radek2[$o];
|
|
147
|
}
|
|
148
|
|
|
149
|
|
|
150
|
if(strcmp($radek,$radek2)==0)
|
|
151
|
{
|
|
152
|
echo "<HR><BR>Radek s oznacenim : ".$zaznam["item"]." nezmenen!";
|
|
153
|
}
|
|
154
|
else
|
|
155
|
{
|
|
156
|
$pocet_zmen++;
|
|
157
|
echo "<HR><BR>Radek s oznacenim : ".$zaznam["item"]." zmenen!";
|
|
158
|
echo "<BR>Opraveny radek: <BR><FONT FACE=\"Arial Unicode MS, TITUS Cyberbit Basic, Code2000\" color=#2288ff>".$radek2."</FONT>";
|
|
159
|
|
|
160
|
$vysledek3 = Pg_Exec($spojeni,"UPDATE obdict SET text1 = '$radek2' WHERE item='$item_pom'");
|
|
161
|
if (!$vysledek3)
|
|
162
|
{
|
|
163
|
echo "Doslo k chybe pri updatu databaze.<BR>\n";
|
|
164
|
die ("</body></html>");
|
|
165
|
}
|
|
166
|
else
|
|
167
|
{
|
|
168
|
echo "<BR>Ulozen!!!";
|
|
169
|
}
|
|
170
|
|
|
171
|
} //konec else
|
|
172
|
|
|
173
|
|
|
174
|
}
|
|
175
|
echo "<hr><br>Provedeno ".$pocet_zmen." zmen(a).";
|
|
176
|
?>
|
|
177
|
</body>
|
|
178
|
</html>
|