|
PCCS MySQLDatabase Admin Tool version 1.3.4
|
/genapp/ -> mysqldb_genapp.php
1 <HTML><HEAD></HEAD><BODY BGCOLOR=#ffffff>
2 <?
3
4 //*****************************************************************************
5 // PHP Generator v 0.5 99-05-22
6 // Copyright Mikael Ulfenborg (laplace)
7 // This code is distributed under GPL
8 // Modified by Chauncey Thorn 02-15-2000
9 // Changed the way search functioned, made it a drop down
10 // Renamed file
11 //*****************************************************************************
12
13
14 //*************** Parse theme-file
15 if ($themefile == "") $themefile = "normal.pgtheme";
16 $tf = fopen($themefile,"r");
17 while (!feof($tf)):
18 $r = chop(fgets($tf,500)); //echo "<H2>$r</H2>";
19 $r = ereg_replace("^[\t ]+","",$r);
20 if ((substr($r,0,1) != "#") && ($r != "")):
21 $vstr = chop(strstr($r,"="));
22 $kstr = chop(substr($r,0,strlen($r)-strlen($vstr)));
23 $vstr = substr($vstr,1,999);
24 $vstr = ereg_replace("^[\t ]+","",$vstr);
25 $kstr = ereg_replace("^[\t ]+","",$kstr);
26 //Secho "<PRE>***",$kstr,"****",htmlspecialchars($vstr),"****</PRE><BR>";
27 if ($kstr != ""):
28 $$kstr = $vstr;
29 endif;
30 endif;
31 endwhile;
32 fclose($tf);
33
34 //*************** Now get server, username, passwd from form ******************
35 if ($servname)
36 $db_server = $servname;
37 if ($usrname)
38 $db_user = $usrname;
39 if ($passwd)
40 $db_passwd = $passwd;
41
42 //*************** Check for neccesary defaults
43 if ($body_tag == "") $body_tag="<BODY>";
44 if ($list_color1 == "") $list_color1="#FFFFFF";
45 if ($list_color2 == "") $list_color2="#EEFFFF";
46 if ($menu_bg_color == "") $menu_bg_color="#EEFFFF";
47 if ($list_table_tag == "") $list_table_tag="<TABLE>";
48 if ($form_table_tag == "") $form_table_tag="<TABLE>";
49 if ($language == "") $language="English";
50 if ($limit == "") $limit=50;
51
52 //*************** Parse language-file
53 $tf = fopen($language . ".NLS","r");
54 while (!feof($tf)):
55 $r = chop(fgets($tf,500)); //echo "<H2>$r</H2>";
56 $r = ereg_replace("^[\t ]+","",$r);
57 if ((substr($r,0,1) != "#") && ($r != "")):
58 $vstr = chop(strstr($r,"="));
59 $kstr = chop(substr($r,0,strlen($r)-strlen($vstr)));
60 $vstr = substr($vstr,1,999);
61 $vstr = ereg_replace("^[\t ]+","",$vstr);
62 $kstr = ereg_replace("^[\t ]+","",$kstr);
63 //Secho "<PRE>***",$kstr,"****",htmlspecialchars($vstr),"****</PRE><BR>";
64 if ($kstr != ""):
65 $$kstr = $vstr;
66 endif;
67 endif;
68 endwhile;
69 fclose($tf);
70
71 //*************** Generate include file
72
73 $dirprefix="php";
74
75 if(is_dir("$dirprefix$dbnamn")) {
76 //
77 } else {
78 if(@mkdir("$dirprefix$dbnamn",0777)) {
79 // print "Directory Created:" . $dirprefix . $dbnamn;
80 if(@mkdir("$dirprefix$dbnamn/include",0777)) {
81 // print "Include Directory Created";
82 } else {
83 // print "Something wierd happen. I was able to create" . $dirprefix . $dbname . " but for some reason I can create the include dir";
84 }
85 } else {
86 // print "Failed to create:" . $dirprefix . $dbnamn . " Check File Permissions, I'm unable to create a directory";
87 }
88
89 }
90
91 $user = "";
92 $passwd = "";
93 $dirpath = $dirprefix . $dbnamn ."/";
94 $inc_path = "include/";
95 $ext = "_global.vars.inc";
96 $filename = "$inc_path$dbnamn$ext";
97 $full_name = "Chauncey Thorn";
98 $url = "http://web.wt.net/~cthorn/";
99
100 $cf = fopen($dirpath . $filename, "w") or die("This app requires WRITE access");
101 fputs($cf, "<?\n\n");
102 fputs($cf, "////////////////////////////////////////////////////\n");
103 fputs($cf, "// Generated by PCCS MySQLDatabase Admin Tool\n");
104 fputs($cf, "// This file is your Global Variable Include file\n");
105 fputs($cf, "//\n");
106 fputs($cf, "// Web PHP/MySQL Account Information\n");
107 fputs($cf,"//\tName: $full_name \n//\tE-Mail Address: $email\n// \n");
108 fputs($cf,"//\tWeb Address: $url\n//\n");
109 fputs($cf, "\n\n\$mydb_server = \"$servname\";\n");
110 fputs($cf, "\$mydb_user = \"$usrname\";\n");
111 fputs($cf, "\$mydb_passwd = \"$passwd\";\n");
112 fputs($cf, "\$dbname = \"$dbnamn\";\n");
113 fputs($cf, "\n\$cur_date=date(\"l M d, Y\"); // current date\n\n");
114 fputs($cf,"\$c = mysql_connect(\"\$mydb_server\",\"\$mydb_user\",\"\$mydb_passwd\");\n");
115 fputs($cf,"\$debug_queries=0;\n");
116 fputs($cf,"\n\nfunction mysqlquery(\$dbname,\$query)\n");
117 fputs($cf,"{\n global \$debug_queries;\n if (\$debug_queries!=0)\n");
118 fputs($cf," echo \$query.\"<BR>\";\n");
119 fputs($cf," \$result = mysql(\$dbname,\$query);\n");
120 fputs($cf," return \$result;\n}\n");
121 fputs($cf,"\n\n// BODY Colors //\n\n");
122 fputs($cf, "\$col_bg=\"#FFFFFF\"; // Background color\n");
123 fputs($cf, "\$col_text=\"#000000\"; // Text color\n");
124 fputs($cf, "\$col_link=\"#FFCC33\"; // Link color\n");
125 fputs($cf, "\$col_vlink=\"#FFFF99\"; // Visited Link color\n");
126 fputs($cf, "\$col_alink=\"#000000\"; // Active Link color\n");
127 fputs($cf, "\n\n");
128 fputs($cf, "\n\n// Fonts //");
129 fputs($cf, "\n\n\$myfonts = \"arial,helvetica\";");
130 fputs($cf, "\n\$fontsize = 1;");
131 fputs($cf, "\n\n\tfunction fontColor(\$color,\$fontsize,\$txt) {");
132 fputs($cf, "\n\t\tglobal \$myfonts;");
133 fputs($cf, "\n\t\tprint '<FONT FACE=\"\$myfonts\" COLOR=\"\$color\" SIZE=\"\$fontsize\">\$txt </FONT>';");
134 fputs($cf, "\n\t}");
135 fputs($cf, "\n\n// Display Image //");
136 fputs($cf, "\n\n\tfunction displayImage(\$img_name) {");
137 fputs($cf, "\n\t\tprint '<IMG SRC=\"\$img_name\" BORDER=\"0\">';");
138 fputs($cf, "\n\t}");
139 fputs($cf, "\n\n\n");
140
141
142
143 fputs($cf, "\n\n?>");
144 fclose($cf);
145
146 // Create lang file //
147
148 $langext = "_lang.inc";
149 $langfilename = "$inc_path$dbnamn$langext";
150
151 $langf = fopen($dirpath . $langfilename, "w") or die("This app requires WRITE access");
152 fputs($langf, "<?\n\n");
153 fputs($langf, "// Generated by PCCS MySQLDatabase Admin Tool\n");
154 fputs($langf, "// This file is your lang Include file\n");
155 fputs($langf, "//\n");
156 fputs($langf,"\n\n// $dbnamn$langext (MUST BE MODIFIED) //\n");
157 $a = 1;
158 $vf = "F1"; $vt = "T1"; $vb = "B1"; $vi = "I1"; $vm = "M1"; $vu = "U1";
159 while ($$vf !=""):
160 fputs($langf," \$str_");
161 fputs($langf,$$vf);
162 fputs($langf,"=\"");
163 fputs($langf,$$vf);
164 fputs($langf,"\";\n");
165 $a++;
166 $vf = "F" . $a;
167
168 endwhile;
169
170 fputs($langf, "\n\n?>");
171 fclose($langf);
172
173
174
175 //*************** Generate output
176
177 $dirpath = $dirprefix . $dbnamn . "/";
178 $f = fopen($dirpath . $filnamn,"w");
179
180 fputs($f,"<HTML>\n<HEAD>\n");
181 fputs($f,"<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$NLSCharset\">\n");
182 fputs($f,"<TITLE>$dbnamn / $tabnamn</TITLE>\n");
183 $today = Date("Y-m-d H:i:s");
184 fputs($f,"<?\n//** Generated by PCCS-MytableGen $today\n");
185 fputs($f,"//** $author_name $author_email\n\n");
186
187 fputs($f,"require('$filename');\n?>");
188
189 fputs($f,"\n<? /********** Delete *****************************************************/ ?>\n");
190 fputs($f,"<? if (\$action == \"_delete\"): ?>\n");
191
192 if ($Nycknum == "on"):
193 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"DELETE FROM $tabnamn WHERE $F1=\$par\");\n");
194 else:
195 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"DELETE FROM $tabnamn WHERE $F1='\$par'\");\n");
196 endif;
197 fputs($f," if (!empty(\$result)) {\n");
198 fputs($f," echo \"<META CONTENT=\\\"0; URL=$filnamn?action=_listall&start=0\\\" HTTP-EQUIV=\\\"REFRESH\\\">\";\n");
199 fputs($f," } else {\n");
200 fputs($f," echo mysql_error().\"<BR>\\n\";\n }\n?>\n");
201 fputs($f,"<? endif ?>\n");
202
203 fputs($f,"\n<? /********** Store New **************************************************/ ?>\n");
204 fputs($f,"<? if (\$action == \"_insert\"): ?>\n");
205 fputs($f,"<? //*** Check data\n");
206 fputs($f," \$ok = 1;\n");
207 fputs($f," echo \"<TABLE BORDER=0>\";\n\n");
208
209 $a = 1;
210 $vf = "F1"; $vt = "T1"; $vn = "N1"; $vu = "U1";
211 while ($$vf !=""):
212 fputs($f," $" . $$vf . "=chop($" . $$vf . ");\n\n");
213
214 if ($$vu != "on") {
215 fputs($f," if ($" . $$vf . " == \"\"):\n");
216 fputs($f," echo \"<TR><TD ALIGN=RIGHT><B>");
217 fputs($f,$$vt);
218 fputs($f,": </TD><TD>");
219 fputs($f," $");
220 fputs($f,$$vf);
221 fputs($f,"</TD>\";\n");
222 fputs($f," \$ok = 0;\n");
223 fputs($f," echo \"<TD CLASS=red>" . $$vt . " $NLSMustBeSpecified !</TD>\";\n");
224 fputs($f," endif;\n\n");
225 fputs($f," if (\$fields==\"\") {\n");
226 fputs($f," \$fields=\"". $$vf ."\";\n");
227 if ($$vn == "on") {
228 fputs($f, " \$values=\"$".$$vf."\";\n");
229 } else {
230 fputs($f, " \$values=\"'$".$$vf."'\";\n");
231 }
232
233 fputs($f," } else {\n \$fields.=\",". $$vf ."\";\n");
234 if ($$vn == "on") {
235 fputs($f, " \$values.=\",$".$$vf."\";\n");
236 } else {
237 fputs($f, " \$values.=\",'$".$$vf."'\";\n");
238 }
239 fputs($f, " }\n");
240 } else {
241 fputs($f," if ($". $$vf ."!=\"\") {\n");
242 fputs($f," if (\$fields==\"\") {\n");
243 fputs($f," \$fields=\"". $$vf ."\";\n");
244 if ($$vn == "on") {
245 fputs($f, " \$values=\"$".$$vf."\";\n");
246 } else {
247 fputs($f, " \$values=\"'$".$$vf."'\";\n");
248 }
249
250 fputs($f," } else {\n \$fields.=\",". $$vf ."\";\n");
251 if ($$vn == "on") {
252 fputs($f, " \$values.=\",$".$$vf."\";\n");
253 } else {
254 fputs($f, " \$values.=\",'$".$$vf."'\";\n");
255 }
256 fputs($f, " }\n }\n");
257 }
258 fputs($f, "\n");
259 $a++;
260 $vf = "F" . $a;
261 $vt = "T" . $a;
262 $vn = "N" . $a;
263 $vu = "U" . $a;
264 endwhile;
265
266 fputs($f," echo \"</TABLE>\";\n");
267 fputs($f," if (!\$ok):\n");
268 fputs($f," echo \"$NLSError!\";\n");
269 fputs($f," echo \"<A HREF=javascript:history.back()>$NLSTryAgain</A>\";\n");
270 fputs($f," exit;\n");
271 fputs($f," endif;\n");
272 fputs($f,"?>\n\n");
273 fputs($f,"<?\n");
274
275
276 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"INSERT INTO $tabnamn (\$fields) VALUES (\$values)\");\n");
277 fputs($f," if (!empty(\$result)) {\n");
278 fputs($f," echo \"<META CONTENT=\\\"0; URL=$filnamn?action=_listall&start=0\\\" HTTP-EQUIV=\\\"REFRESH\\\">\";\n");
279 fputs($f," } else {\n");
280 fputs($f," echo mysql_error().\"<BR>\\n\";\n }\n?>\n");
281 fputs($f,"<? endif ?>\n");
282
283 fputs($f,"\n<? /********** Save edited ************************************************/ ?>\n");
284 fputs($f,"<? if (\$action == \"_update\"): ?>\n");
285 fputs($f,"<? //*** Check data\n");
286 fputs($f," \$ok = 1;\n");
287 fputs($f," echo \"<TABLE BORDER=0>\";\n\n");
288
289 $a = 1;
290 $vf = "F1"; $vt = "T1"; $vn = "N1"; $vu = "U1";
291 while ($$vf !=""):
292 fputs($f," $" . $$vf . "=chop($" . $$vf . ");\n");
293 if ($$vu != "on") {
294 fputs($f," if ($" . $$vf . " == \"\"):\n");
295 fputs($f," echo \"<TR><TD ALIGN=RIGHT><B>");
296 fputs($f,$$vt);
297 fputs($f,": </TD><TD>");
298 fputs($f," $");
299 fputs($f,$$vf);
300 fputs($f,"</TD>\";\n");
301 fputs($f," \$ok = 0;\n");
302 fputs($f," echo \"<TD CLASS=red>" . $$vt . " $NLSMustBeSpecified !</TD>\";\n");
303 fputs($f," endif;\n\n");
304 fputs($f," if (!empty(\$fields)) \$fields.=',';\n");
305 fputs($f," \$fields.=\"". $$vf ."=\";\n");
306 if ($$vn == "on") {
307 fputs($f, " \$fields.=\"$".$$vf."\";\n");
308 } else {
309 fputs($f, " \$fields.=\"'$".$$vf."'\";\n");
310 }
311 } else {
312 fputs($f," if ($". $$vf ."!=\"\") {\n");
313 fputs($f," if (!empty(\$fields)) \$fields.=',';\n");
314 fputs($f," \$fields.=\"". $$vf ."=\";\n");
315 if ($$vn == "on") {
316 fputs($f, " \$fields.=\"$".$$vf."\";\n");
317 } else {
318 fputs($f, " \$fields.=\"'$".$$vf."'\";\n");
319 }
320 fputs($f, " }\n");
321 }
322 $a++;
323 $vf = "F" . $a;
324 $vt = "T" . $a;
325 $vn = "N" . $a;
326 $vu = "U" . $a;
327 endwhile;
328
329
330
331 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"UPDATE $tabnamn SET \$fields");
332 fputs($f," WHERE ");
333 fputs($f,"$F1");
334 if ($Nycknum == "on"):
335 fputs($f,"=\$par");
336 else:
337 fputs($f,"='\$par'");
338 endif;
339
340 fputs($f,"\");\n");
341 fputs($f," if (!empty(\$result)) {\n");
342 fputs($f," echo \"<META CONTENT=\\\"0; URL=$filnamn?action=_listall&start=0\\\" HTTP-EQUIV=\\\"REFRESH\\\">\";\n");
343 fputs($f," } else {\n");
344 fputs($f," echo mysql_error().\"<BR>\\n\";\n }\n?>\n");
345 fputs($f,"<? endif ?>\n\n");
346
347 //****************************** Insert Style sheet ?
348 if ($style_sheet != ""):
349 $ssf = fopen($style_sheet,"r");
350
351 while (!feof($ssf)):
352 $r = fgets($ssf,500);
353 fputs($f,$r);
354 endwhile;
355 fclose($ssf);
356 endif;
357
358 fputs($f,"</HEAD>\n\n");
359
360 fputs($f,"$body_tag\n");
361 fputs($f,"$menu_table_tag<TR>\n");
362 fputs($f,"<? if (empty(\$found)) {\n");
363 fputs($f," if (\$action == \"_search\") {\n \$result = mysqlquery(\"$dbnamn\",\"SELECT COUNT(*) FROM $tabnamn WHERE (\$whichfield LIKE '%\" . \$searchvalue . \"%') ORDER BY \$whichfield\");\n");
364 fputs($f," } else {\n");
365 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"SELECT COUNT(*) FROM $tabnamn\");\n }\n");
366 fputs($f," \$found = mysql_result(\$result,0,0);\n }\n");
367 fputs($f," if (\$limit == 0) \$limit = \$found; ?>\n");
368 fputs($f,"<? if (!empty(\$start) && \$start>0) { ?>\n<TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=<? echo \$action; if (\$action == \"_search\") echo \"&whichfield=\$whichfield&searchvalue=\$searchvalue\"; ?>&found=<? echo \$found; ?>&start=<? echo max(\$start-\$limit,0); ?>><<<$NLSPrevious <? echo \$limit; ?></A></TD>\n<? } ?>\n");
369 fputs($f," <TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=_listall&found=<? echo \$found; ?>&start=0>$NLSListAll</A></TD>\n");
370 fputs($f,"<? if (!empty(\$start) && \$start+\$limit<\$found) { ?>\n<TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=<? echo \$action; if (\$action == \"_search\") echo \"&whichfield=\$whichfield&searchvalue=\$searchvalue\"; ?>&found=<? echo \$found; ?>&start=<? echo \$start+\$limit?>>>>>$NLSNext <? echo min(\$found-\$start+\$limit,\$limit); ?></A></TD>\n<? } ?>\n");
371 fputs($f," <TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=searchform>$NLSSearch</A></TD>\n");
372 fputs($f,"<TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=_new>$NLSNew</A></TD>\n");
373 fputs($f,"</TR></TABLE>\n");
374 fputs($f,"<? if (empty(\$start)) \$start=0; ?>\n");
375
376 fputs($f,"\n<? /********** Warn Delete ************************************************/ ?>\n");
377 fputs($f,"<? if (\$action == \"_warnb4del\"): ?>\n");
378 fputs($f,"<H1>$NLSAreYouSure</H1>\n");
379 fputs($f,"<A HREF=$filnamn?action=_delete&par=<? echo \$par?>>$NLSYes</A> ");
380 fputs($f,"<A HREF=javascript:history.back()>$NLSNo</A>\n");
381 fputs($f,"<? endif ?>\n");
382
383 fputs($f,"\n<?/********** Search *****************************************************/?>\n");
384 fputs($f,"<? if (\$action == \"_search\"): ?>\n");
385 //fputs($f," <FORM ACTION=$filnamn><INPUT TYPE=HIDDEN NAME=action VALUE=_search><INPUT NAME=_searchvad><INPUT TYPE=SUBMIT VALUE=$NLSSearchForm></FORM>\n");
386 fputs($f," <? if ((\$par == \"$F1\") || (\$par == \"\")): ?> \n");
387 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE (\$whichfield LIKE '%\" . \$searchvalue . \"%') ORDER BY \$whichfield LIMIT \$start,\$limit\"); ?>\n");
388 fputs($f," <H3>$NLSSearchFor '<? echo \$searchvalue ?>' $NLSSearchIn '<? echo \$whichfield ?>' $NLSSearchReturned <? echo \$found ?> $NLSSearchHits</H3>\n");
389 fputs($f," <? endif ?> \n");
390 fputs($f," <? \$num = mysql_numrows(\$result);\n");
391 fputs($f," \$c1 = \"$list_color1\";\n");
392 fputs($f," \$c2 = \"$list_color2\";?>\n");
393 fputs($f," $list_table_tag\n");
394 fputs($f," <TR>\n");
395 fputs($f," <TH></TH>");
396
397 $a = 1;
398 $vf = "T1";
399 $brwf = "BRW1";
400 while ($$vf !=""):
401 if ($$brwf == "on"):
402 fputs($f,"<TH>");
403 fputs($f,$$vf . "</TH>");
404 endif;
405 $a++;
406 $vf = "T" . $a;
407 $brwf = "BRW" . $a;
408 endwhile;
409
410 fputs($f,"\n");
411 fputs($f," </TR>\n");
412
413 fputs($f," <? for (\$i =0 ;\$i < \$num; \$i++):\n");
414 fputs($f," if (\$c == \$c1):\n");
415 fputs($f," \$c = \$c2;\n");
416 fputs($f," else:\n");
417 fputs($f," \$c = \$c1;\n");
418 fputs($f," endif;?>\n");
419 fputs($f," <TR BGCOLOR=<? echo \$c ?>>\n");
420 fputs($f," <TD><A HREF=$filnamn?action=detalj&par=<?echo mysql_result(\$result,\$i,\"$F1\")?>><?echo mysql_result(\$result,\$i,\"$F1\")?></A></TD>\n");
421
422 $a = 1;
423 $vf = "F1";
424 $brwf = "BRW1";
425 while ($$vf !=""):
426 if ($$brwf == "on"):
427 fputs($f," <TD>\n");
428 fputs($f," <? \$val = mysql_result(\$result, \$i, \"");
429 fputs($f,$$vf);
430 fputs($f,"\");\n");
431 // fputs($f," if (trim(\$val) != \"\"):\n");
432 fputs($f," if (chop(\$val) != \"\"):\n"); //Sorry I have an old PHP ;)
433 fputs($f," echo \$val;\n");
434 fputs($f," else:\n");
435 fputs($f," echo \" \";\n");
436 fputs($f," endif ?>\n");
437 fputs($f," </TD>\n");
438 endif;
439 $a++;
440 $vf = "F" . $a;
441 $brwf = "BRW" . $a;
442 endwhile;
443
444 fputs($f," </TR>\n");
445 fputs($f," <? endfor ?>\n");
446 fputs($f," </TABLE>\n");
447 fputs($f,"<? mysql_free_result(\$result); endif /* Show all */ ?>\n");
448
449
450 fputs($f,"\n<?/********** Start screen *************************************************/?>\n");
451 fputs($f,"<? if (\$argv[0] == \"\"): ?>\n");
452 fputs($f," <P ALIGN=center>\n");
453 /* fputs($f," <B>Welcome to .........</B><BR>\n");
454 fputs($f," </P>\n");
455 fputs($f," <H2 ALIGN=center>.......system</H2>\n"); */
456 fputs($f,"<? endif ?>\n");
457
458 fputs($f,"\n<?/********** Show all *****************************************************/?>\n");
459 fputs($f,"<? if (\$action == \"_listall\"): ?>\n");
460 //fputs($f," <FORM ACTION=$filnamn><INPUT TYPE=HIDDEN NAME=action VALUE=_search><INPUT NAME=_searchvad><INPUT TYPE=SUBMIT VALUE=$NLSSearchForm></FORM>\n");
461 fputs($f," <? if ((\$par == \"$F1\") || (\$par == \"\")): ?> \n");
462 fputs($f," <H3 ALIGN=center>$NLSRecordsSortedBy \"$ORDERBY\"</H3>\n");
463 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn ORDER BY $ORDERBY LIMIT \$start,\$limit\");\n");
464 fputs($f," endif ?> \n");
465 fputs($f," <? \$num = mysql_numrows(\$result);\n");
466 fputs($f," \$c1 = \"$list_color1\";\n");
467 fputs($f," \$c2 = \"$list_color2\";?>\n");
468 fputs($f," $list_table_tag\n");
469 fputs($f," <TR>\n");
470 fputs($f," <TH></TH>");
471
472 $a = 1;
473 $vf = "T1";
474 $fn = "F1";
475 $brwf = "BRW1";
476 while ($$fn !=""):
477 if ($$brwf == "on"):
478 fputs($f,"<TH>");
479 fputs($f,$$vf . "</TH>");
480 endif;
481 $a++;
482 $vf = "T" . $a;
483 $fn = "F" . $a;
484 $brwf = "BRW" . $a;
485 endwhile;
486
487 fputs($f,"\n");
488 fputs($f," </TR>\n");
489
490 fputs($f," <? for (\$i =0 ;\$i < \$num; \$i++):\n");
491 fputs($f," if (\$c == \$c1):\n");
492 fputs($f," \$c = \$c2;\n");
493 fputs($f," else:\n");
494 fputs($f," \$c = \$c1;\n");
495 fputs($f," endif;?>\n");
496 fputs($f," <TR BGCOLOR=<? echo \$c ?>>\n");
497 fputs($f," <TD><A HREF=$filnamn?action=detalj&par=<?echo
498 mysql_result(\$result,\$i,\"$F1\")?>><?echo mysql_result(\$result,\$i,\"$F1\")?></A></TD>\n");
499
500 $a = 1;
501 $vf = "F1";
502 $brwf = "BRW1";
503 while ($$vf !=""):
504 if ($$brwf == "on"):
505 fputs($f," <TD>\n");
506 fputs($f," <? \$val = mysql_result(\$result, \$i, \"");
507 fputs($f,$$vf);
508 fputs($f,"\");\n");
509 // fputs($f," if (trim(\$val) != \"\"):\n");
510 fputs($f," if (chop(\$val) != \"\"):\n"); //Sorry I have an old PHP ;)
511 fputs($f," echo \$val;\n");
512 fputs($f," else:\n");
513 fputs($f," echo \" \";\n");
514 fputs($f," endif ?>\n");
515 fputs($f," </TD>\n");
516 endif;
517
518 $a++;
519 $vf = "F" . $a;
520 $brwf = "BRW" . $a;
521
522 endwhile;
523
524 fputs($f," </TR>\n");
525 fputs($f," <? endfor ?>\n");
526 fputs($f," </TABLE>\n");
527 fputs($f,"<? mysql_free_result(\$result); endif /* Show all */ ?>\n");
528
529 fputs($f,"\n<?/********** Show detail **************************************************/?>\n");
530 fputs($f,"<? if ((\$action == \"detalj\") || (\$action == \"_warnb4del\")): ?>\n");
531 if ($Nycknum == "on"):
532 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE $F1=\$par\")?>\n");
533 else:
534 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE $F1='\$par'\")?>\n");
535 endif;
536 fputs($f," <H2 ALIGN=center>ID: <?echo mysql_result(\$result,0,\"$F1\")?></H2>\n");
537 fputs($f," $form_table_tag\n");
538
539 $a = 1;
540 $vf = "F1"; $vt = "T1"; $vb = "B1";
541 while ($$vf !=""):
542 if ($$vb != "on"): /* A blob...., no */
543 fputs($f," <TR><TD valign=top><B>");
544 fputs($f,$$vt);
545 fputs($f,": </TD><TD valign=top>");
546 fputs($f,"<?echo mysql_result(\$result,0,\"");
547 fputs($f,$$vf);
548 fputs($f,"\")?></TD></TR>\n");
549 endif;
550 if ($$vb == "on"): /* A blob! */
551 fputs($f," <TR><TD valign=top><B>");
552 fputs($f,$$vt."</B></TD>\n");
553 fputs($f," <TD valign=top>\n");
554 fputs($f," <PRE><?\n");
555 fputs($f," \$xx = mysql_result(\$result,0,\"".$$vf."\");\n");
556 fputs($f," \$xx = ereg_replace(\"<\",\"<\",\$xx);\n");
557 fputs($f," \$xx = ereg_replace(\">\",\">\",\$xx);\n");
558 fputs($f," echo \$xx ?>\n");
559 fputs($f," </PRE></TD></TR>\n");
560 endif;
561
562 $a++;
563 $vf = "F" . $a;
564 $vt = "T" . $a;
565 $vb = "B" . $a;
566 endwhile;
567
568 fputs($f," </TABLE>\n");
569 fputs($f,"<? if (\$action == \"detalj\"):?>\n");
570 fputs($f," <A HREF=$filnamn?action=_edit&par=<?echo \$par?>>$NLSEdit</A>\n");
571 fputs($f," <A HREF=$filnamn?action=_warnb4del&par=<?echo \$par?>> $NLSDelete</A>\n");
572 fputs($f,"<? endif;?>\n");
573 fputs($f,"<? mysql_free_result(\$result); endif /* Show detail */ ?>\n");
574
575 fputs($f,"\n<?/********** New/Edit *****************************************************/?>\n");
576 fputs($f,"<? if ((\$action == \"_new\") || (\$action == \"_edit\")):\n");
577 fputs($f," if (\$action == \"_edit\"):\n");
578 if ($Nycknum == "on"):
579 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE $F1=\$par\");\n");
580 else:
581 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE $F1='\$par'\");\n");
582 endif;
583
584 $a = 1;
585 $vf = "F1"; $vt = "T1"; $vb = "B1"; $vi = "I1"; $vm = "M1"; $vu = "U1";
586 while ($$vf !=""):
587 fputs($f," $");
588 fputs($f,$$vf);
589 fputs($f,"=htmlspecialchars(mysql_result(\$result,0,\"");
590 fputs($f,$$vf);
591 fputs($f,"\"));\n");
592 $a++;
593 $vf = "F" . $a;
594 $vt = "T" . $a;
595 $vb = "B" . $a;
596 $vi = "I" . $a;
597 $vm = "M" . $a;
598 $vm = "U" . $a;
599 endwhile;
600
601 fputs($f," echo \"<H2 ALIGN=center>$NLSEdit</H2>\";\n");
602 fputs($f," else:\n");
603 fputs($f," echo \"<H2 ALIGN=center>$NLSNew</H2>\";\n");
604
605 fputs($f," endif;\n");
606 fputs($f," ?>\n");
607
608 fputs($f,"<? if (\$action == \"_new\"):?>\n");
609 fputs($f," <FORM ACTION=$filnamn?action=_insert METHOD=POST>\n");
610 fputs($f,"<? else: ?>\n");
611 fputs($f," <FORM ACTION=$filnamn?action=_update&par=<?echo \$par?> METHOD=POST>\n");
612 fputs($f,"<? endif; ?>\n");
613 fputs($f," <TABLE BORDER=0 CELLPADDING=6>\n");
614
615 $a = 1;
616 $vf = "F1"; $vt = "T1"; $vb = "B1"; $vi = "I1"; $vm = "M1"; $vs = "S1"; $vu = "U1";
617 while ($$vf !=""):
618 if ($$vs == "on"): /* An Selectlist */
619 fputs($f," <TR><TD ALIGN=\"RIGHT\" VALIGN=\"TOP\"><B>");
620 fputs($f,$$vt);
621 if ($$vu == "on") {
622 fputs($f,"<BR>($NLSOptional)");
623 }
624 fputs($f,": </TD><TD VALIGN=\"TOP\">");
625 fputs($f,"\n <SELECT NAME=");
626 fputs($f,$$vf);
627 fputs($f," SINGLE>\n");
628 fputs($f," <?");
629 fputs($f," \$res = mysqlquery(\"$dbnamn\",\"SELECT ".$$vf." FROM $tabnamn ORDER BY ".$$vf."\");\n");
630 fputs($f," for (\$i = 0; \$i < mysql_numrows(\$res); \$i++):\n");
631 fputs($f," echo \"<OPTION VALUE=\"");
632 fputs($f,",mysql_result(\$res,\$i,\"".$$vf."\")");
633 fputs($f,",\">\"");
634 fputs($f,",mysql_result(\$res,\$i,\"".$$vf."\");\n");
635 fputs($f," endfor;\n");
636 fputs($f," ?>\n");
637 fputs($f," </SELECT></TD></TR>\n");
638 endif;
639
640 if (($$vb != "on") && ($$vs != "on")): /* A blob...., no */
641 fputs($f," <TR><TD ALIGN=\"RIGHT\" VALIGN=\"TOP\"><B>");
642 fputs($f,$$vt);
643 if ($$vu == "on") {
644 fputs($f,"<BR>($NLSOptional)");
645 }
646 fputs($f,": </TD><TD VALIGN=\"TOP\">");
647 fputs($f,"<INPUT NAME=");
648 fputs($f,$$vf);
649 fputs($f," SIZE=");
650 fputs($f, $$vi);
651 fputs($f," MAXLENGTH=");
652 fputs($f,$$vm);
653 fputs($f," VALUE=\"<? echo $");
654 fputs($f, $$vf);
655 fputs($f, " ?>\"");
656 fputs($f,"></TD></TR>\n");
657 endif;
658
659 if (($$vb == "on") && ($$vs != "on")): /* A blob! */
660 fputs($f," <TR><TD ALIGN=\"RIGHT\" VALIGN=\"TOP\"><B>");
661 fputs($f,$$vt);
662 if ($$vu == "on") {
663 fputs($f,"<BR>($NLSOptional)");
664 }
665 fputs($f,":</TD>\n");
666 fputs($f," <TD VALIGN=\"TOP\">\n");
667 fputs($f," <TEXTAREA NAME=");
668 fputs($f,$$vf);
669 fputs($f," COLS=50 ROWS=10>");
670 fputs($f, "<? echo $" . $$vf . " ?>");
671 fputs($f, "</TEXTAREA></TD></TR>\n");
672 endif;
673
674 $a++;
675 $vf = "F" . $a;
676 $vt = "T" . $a;
677 $vb = "B" . $a;
678 $vi = "I" . $a;
679 $vm = "M" . $a;
680 $vs = "S" . $a;
681 $vu = "U" . $a;
682 endwhile;
683
684 fputs($f," </TABLE>\n");
685 fputs($f," <INPUT TYPE=submit NAME=\"Save\" VALUE=\"$NLSSave\"> <INPUT TYPE=reset VALUE=\"$NLSClearAll\">\n");
686 fputs($f," </FORM>\n");
687 fputs($f,"<? mysql_free_result(\$result); endif /* New/edit */ ?>\n");
688
689 fputs($f,"\n<? /********** Search form ************************************************/ ?>\n");
690 fputs($f,"<? if (\$action == \"searchform\"): ?>\n");
691 fputs($f,"<TABLE BORDER=0 CELLPADDING=6>\n");
692
693 fputs($f,"<TD><FORM METHOD=\"POST\" ACTION=\"$filnamn?action=_search\">\n");
694 fputs($f,"<INPUT TYPE=\"HIDDEN\" NAME=\"start\" VALUE=\"0\">\n");
695
696 fputs($f,"<SELECT NAME=\"whichfield\">\n");
697
698 for ($l = 1; ; $l++) {
699 $fn1 = "F$l";
700 if ($$fn1 == "")
701 break;
702 $ft2 = "T$l";
703 $fsrch1 = "SRCH$l";
704 if ($$fsrch1 == "on")
705 {
706
707 fputs($f,"<OPTION VALUE=\"");
708 fputs($f,$$ft2);
709 fputs($f,"\">");
710 fputs($f,$$ft2);
711 fputs($f,"</OPTION>\n");
712 }
713 }
714 fputs($f,"</SELECT>\n");
715 fputs($f,"</TD><TD>\n");
716 fputs($f,"<INPUT NAME=\"searchvalue");
717 fputs($f,$$fn);
718 fputs($f,"\"></TD>\n");
719 fputs($f,"<TD><INPUT TYPE=\"SUBMIT\" VALUE=\"$NLSSearchForm\">\n");
720 fputs($f,"</FORM></TD>\n");
721 fputs($f,"</TR>\n");
722
723
724 fputs($f,"</TABLE>\n");
725 fputs($f,"<? endif; ?>\n");
726 fputs($f,"</BODY>\n");
727 fputs($f,"</HTML>\n");
728
729
730 fclose($f);
731
732 echo "<H2>A PHP Framework has been created for table !</H2>";
733 echo "<P><b>Application Script Directory:</b> " . $dirprefix . $dbnamn;
734 echo "<P><b>Script Include Directory:</b> " . $dirprefix . $dbnamn . "/include";
735 echo "<P>";
736 echo "Script code is saved as <A HREF=$dirprefix$dbnamn/$filnamn><B>$filnamn</B></A> <BR><BR>";
737 echo "Global vars code is saved as <A HREF=$dirprefix$dbnamn/$filename><B>$filename</B></A> <BR><BR>";
738 echo "Language code is saved as <A HREF=" . $dirprefix . $dbnamn ."/" . $langfilename . "><B>" . $langfilename ."</B></A>
739 <BR><BR>";
740
741 ?>
742 <<<A HREF=../mysqldb_admin.php>BACK to Admin</A>
743 </BODY>
744 </HTML>
| |