|
1
|
<HTML>
|
|
2
|
<HEAD>
|
|
3
|
<META content=text/html; http-equiv=Content-Type>
|
|
4
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
|
|
5
|
<TITLE></TITLE>
|
|
6
|
</HEAD>
|
|
7
|
|
|
8
|
<BODY>
|
|
9
|
|
|
10
|
<h1><center> Vkladani dat do databaze</center></h1>
|
|
11
|
<br>
|
|
12
|
<FONT FACE='Arial Unicode MS' SIZE=4>
|
|
13
|
<?
|
|
14
|
if ( ($file1 == ""))
|
|
15
|
{
|
|
16
|
|
|
17
|
echo ("Nebylo zadano jmeno souboru!<br>\n");
|
|
18
|
echo ("<br><br><a href=\"./vlozeni1gr.php3\"> Zpet</a>");
|
|
19
|
echo ("</BODY>");
|
|
20
|
echo ("</HTML>");
|
|
21
|
exit;
|
|
22
|
}
|
|
23
|
if ( ($typdat != 1) && ($typdat != 2))
|
|
24
|
{
|
|
25
|
|
|
26
|
echo ("Nebyl zadan typ vkladanych dat!<br>\n");
|
|
27
|
echo ("<br><br><a href=\"./vlozeni1gr.php3\"> Zpet</a>");
|
|
28
|
echo ("</BODY>");
|
|
29
|
echo ("</HTML>");
|
|
30
|
exit;
|
|
31
|
}
|
|
32
|
$file1="/home/webowner/data-in/".$file1;
|
|
33
|
if ( ($fr1 = FOpen ($file1, "r")) == false )
|
|
34
|
{
|
|
35
|
echo ("Nepodarilo se otevrit soubor!<br> Jmeno ".$file1."\n");
|
|
36
|
echo ("<br><br><a href=\"../index.php3\"> Zpet na administraci klinopis.cz</a>");
|
|
37
|
echo ("</BODY>");
|
|
38
|
echo ("</HTML>");
|
|
39
|
exit;
|
|
40
|
}
|
|
41
|
|
|
42
|
$konec = false;
|
|
43
|
$pocethesel = $heseldobre = $heselnevlozeno = $heselbezweb = $heselzdroj = $heselbezasc = 0;
|
|
44
|
|
|
45
|
$spojeni = Pg_Connect("user=vadmin dbname=klinopis");
|
|
46
|
|
|
47
|
//vlozeni FCI pro konverzi
|
|
48
|
require "./fcek2u2.php";
|
|
49
|
|
|
50
|
define ("MAXPOLOZKA", 31690);
|
|
51
|
define ("MAXREAD", 50000);
|
|
52
|
$datum = Date ("Y-m-d H:00:00");
|
|
53
|
|
|
54
|
do
|
|
55
|
{
|
|
56
|
if (($text = FGetS ($fr1, MAXREAD)) != false )
|
|
57
|
{
|
|
58
|
if ($typdat == 1) //nova hesla
|
|
59
|
$gnazev = StrTok ($text, "^");
|
|
60
|
$bcislo = StrTok ("^");
|
|
61
|
$scteni = StrTok ("^");
|
|
62
|
$lcteni = StrTok ("^");
|
|
63
|
if ( StrLen ($lcteni) > MAXPOLOZKA)
|
|
64
|
{
|
|
65
|
//docteni konce textu na radku
|
|
66
|
if (StrLen ($text) >= MAXREAD-10) $text = FGetS ($fr1, MAXREAD);
|
|
67
|
|
|
68
|
echo ("<b>heslo \"$nazev\" je moc dlouhe ve vstupnim souboru, nebude prevedeno</b><br>\n");
|
|
69
|
continue;
|
|
70
|
$heselnevlozeno++;
|
|
71
|
}
|
|
72
|
$text = "";
|
|
73
|
|
|
74
|
include "./convertk2u2.php";
|
|
75
|
// $klic = MD5 ($gnazev);
|
|
76
|
echo ($gnazev." \n");
|
|
77
|
$pocethesel++;
|
|
78
|
if (($pocethesel % 100) == 0) echo ("<hr>".$pocethesel."<br><hr>\n");
|
|
79
|
|
|
80
|
//vkladani dat do DB graf01
|
|
81
|
if (StrLen ($lcteni) >= MAXPOLOZKA)
|
|
82
|
{
|
|
83
|
//vymazani dlouheho textu
|
|
84
|
$webpopis="";
|
|
85
|
$wappopis="";
|
|
86
|
$heselbezweb++;
|
|
87
|
echo ("Heslo bez scteni");
|
|
88
|
}
|
|
89
|
else if (StrLen ($scteni) >= MAXPOLOZKA)
|
|
90
|
{
|
|
91
|
//vymazani dlouheho textu
|
|
92
|
$wappopis="";
|
|
93
|
}
|
|
94
|
|
|
95
|
if (StrLen ($lcteni) <= MAXPOLOZKA)
|
|
96
|
{
|
|
97
|
if ($typdat == 1)
|
|
98
|
{ //nova hesla
|
|
99
|
if (@Pg_Exec ($spojeni, "INSERT INTO graf01 (gnazev, bcislo01, scteni, lcteni) VALUES ('$webgnazev', '$bcislo', '$webscteni', '$weblcteni')") )
|
|
100
|
$heseldobre++;
|
|
101
|
else
|
|
102
|
{
|
|
103
|
echo ("<b>Heslo nevlozeno jednim SQL prikazem.</b>");
|
|
104
|
$heselnevlozeno++;
|
|
105
|
}
|
|
106
|
}
|
|
107
|
else
|
|
108
|
{ //update hesel
|
|
109
|
if (Pg_Exec ($spojeni, "UPDATE graf01 SET klic='$klic', pcislo='$pcislo', gnazev='$gnazev', bcislo01='$bcislo', scteni='$scteni', lcteni='$lcteni' WHERE (klic=$idfile)") )
|
|
110
|
$heseldobre++;
|
|
111
|
else
|
|
112
|
{
|
|
113
|
echo ("<b>Heslo neopraveno jednim SQL prikazem.</b>");
|
|
114
|
$heselnevlozeno++;
|
|
115
|
}
|
|
116
|
}
|
|
117
|
}
|
|
118
|
else
|
|
119
|
{
|
|
120
|
echo ("<b>Zadane heslo se po konverzi zvetsilo, Nevlozeno!</b><br>\n");
|
|
121
|
$heselnevlozeno++;
|
|
122
|
}
|
|
123
|
}
|
|
124
|
else $konec = true;
|
|
125
|
|
|
126
|
echo (" ");
|
|
127
|
} while (! $konec);
|
|
128
|
|
|
129
|
FClose ($fr1);
|
|
130
|
|
|
131
|
Pg_Close ($spojeni);
|
|
132
|
|
|
133
|
echo ("<hr>Celkovy pocet nactenych hesel: $pocethesel<br>\n");
|
|
134
|
echo ("Pocet hesel, ktere byly vlozeny: $heseldobre<br>\n");
|
|
135
|
echo ("Pocet hesel, ktere byly moc dlouhe (nevlozeny): $heselnevlozeno<br>\n");
|
|
136
|
echo ("Pocet hesel, ktere nemaji WEB cast: $heselbezweb<br>\n");
|
|
137
|
?>
|
|
138
|
<form action="../index.php3">
|
|
139
|
<input type=submit value="Zpet na administraci klinopis.cz">
|
|
140
|
</form>
|
|
141
|
</FONT>
|
|
142
|
</BODY>
|
|
143
|
</HTML>
|