|
PCCS MySQLDatabase Admin Tool version 1.3.4
|
/genapp/ -> mysqldb_createapp.php
1 <?
2 // Hacked by Chauncey Thorn
3 // 02-15-2000
4 //
5 //
6 // updated 10-23-2000
7 // -- moving to a single file for global include files
8
9 require('../mysqldb_app_includes.php');
10
11 common_header($_title);
12
13 $usrname = "$db_user";
14 $passwd = "$db_passwd";
15 $servname = "$db_server";
16 $filnamn ="$dbname-$tablename.php";
17
18 // $conn = mysql_connect("$servname","$usrname","$passwd") or die ("Database is Offline");
19
20 if($argv[0]== ""):
21
22 print "
23 <center>\n
24 Create the basic framework on the Database <font color=red> $dbname </font> and
25 table <font color=red> $tablename </font><br>\n";
26 print "<CENTER><FORM ACTION=$PHP_SELF?action=genform METHOD=post>";
27 print "
28
29
30 <INPUT TYPE=\"text\" NAME=\"filnamn\" VALUE=\"$dbname-$tablename.php\"
31 SIZE=\"30\">
32
33 <INPUT TYPE=\"hidden\" NAME=\"usrname\" VALUE=\"$usrname\">
34 <INPUT TYPE=\"hidden\" NAME=\"passwd\" VALUE=\"$passwd\">
35 <INPUT TYPE=\"hidden\" NAME=\"servname\" VALUE=\"$servname\">
36 <INPUT TYPE=\"hidden\" NAME=\"dbname\" VALUE=\"$dbname\">
37
38 <INPUT TYPE=\"hidden\" NAME=\"dbnamn\" VALUE=\"$dbname\">
39
40 <INPUT TYPE=\"hidden\" NAME=\"tablename\" VALUE=\"$tablename\">
41 ";
42
43 // print "</FORM>";
44
45 $primaryfound = 0;
46 // if ($action == "seldone"):
47 $res = mysql_list_fields($dbname,$tablename);
48 for ($i = 0; $i < mysql_num_fields($res); $i++):
49 if (! $primaryfound):
50 if (ereg("primary", mysql_field_flags($res, $i))):
51 ?>
52 <INPUT TYPE="HIDDEN" NAME="idname" VALUE="<? echo mysql_field_name($res, $i) ?>">
53 <?
54 $primaryfound = 1;
55 if (ereg("int", mysql_field_type($res, $i))):
56 ?>
57 <INPUT TYPE="HIDDEN" NAME="id_isnumeric" VALUE=1">
58 <?
59 endif;
60 endif;
61 endif;
62 ?>
63 <INPUT TYPE="HIDDEN" NAME="F<? echo $i+1 ?>" VALUE="<? echo mysql_field_name($res, $i) ?>">
64 <?
65 if (mysql_field_type($res, $i) != "blob"):
66 ?>
67 <INPUT TYPE="HIDDEN" NAME="SZE<? echo $i+1 ?>" VALUE="<? echo mysql_field_len($res, $i) ?>">
68 <?
69 else:
70 ?>
71 <INPUT TYPE="HIDDEN" NAME="ISBLOB<? echo $i+1 ?>" VALUE=1>
72 <?
73 endif;
74 if (ereg("int", mysql_field_type($res, $i))):
75 ?>
76 <INPUT TYPE="HIDDEN" NAME="ISNUMERIC<? echo $i+1 ?>" VALUE=1>
77 <?
78 endif;
79 if (ereg("not_null", mysql_field_flags($res, $i))):
80 ?>
81 <INPUT TYPE="HIDDEN" NAME="ISNOTNULL<? echo $i+1 ?>" VALUE=1>
82 <?
83 endif;
84 endfor;
85 ?>
86
87 <INPUT TYPE="SUBMIT" VALUE="Create Application PHP FrameWork">
88 </FORM>
89 <P>This Module will create INSERT, DELETE, UPDATE, SELECT from
90 the above database and table.<br> You will need to modify the script
91 after it it generated...
92 </CENTER>
93 </BODY>
94 </HTML>
95
96
97 <?
98 // endif;
99 ?>
100 <? endif; ?>
101
102 <? if($action == "genform"): ?>
103
104 <HTML>
105 <HEAD>
106 <TITLE>MySQLDatabase Web Admin Tool</TITLE>
107 </HEAD>
108 <BODY>
109 <H3 ALIGN=CENTER>
110 Generate PHP3 Application Framework >>>
111 </H3>
112
113 <FORM ACTION="mysqldb_genapp.php" METHOD="POST">
114 <INPUT TYPE="HIDDEN" NAME="servname" VALUE="<? echo $servname ?>">
115 <INPUT TYPE="HIDDEN" NAME="usrname" VALUE="<? echo $usrname ?>">
116 <INPUT TYPE="HIDDEN" NAME="passwd" VALUE="<? echo $passwd ?>">
117 <CENTER>
118 <TABLE>
119 <TR>
120 <TD>
121 <B>Select theme file:</B>
122 </TD>
123 <TD>
124 <SELECT NAME="themefile">
125 <?
126 $f = ir(".");
127 $fn = readdir($f);
128 while ($fn):
129 $fn = readdir($f);
130 if (ereg("^normal.pgtheme$",$fn))
131 $selected = " SELECTED";
132 else
133 $selected = "";
134 if (ereg("pgtheme$",$fn))
135 echo "\t\t\t\t\t\t\t\t<OPTION VALUE='$fn'$selected> $fn\n";
136 endwhile;
137 ?>
138 </SELECT>
139 </TD>
140 </TR>
141 <TR>
142 <TD>
143 <B>Database name:</B>
144 </TD>
145 <TD>
146 <INPUT NAME="dbnamn" SIZE=25 MAXLENGTH=25
147 VALUE="<?echo $dbname ?>">
148 </TD>
149 </TR>
150 <TR>
151 <TD>
152 <B>Table name:</B>
153 </TD>
154 <TD>
155 <INPUT NAME="tabnamn" SIZE=25 MAXLENGTH=25
156 VALUE="<?echo $tablename ?>">
157 </TD>
158 </TR>
159 <TR>
160 <TD>
161 <B><FONT COLOR=red>Enter filename for your Application:</FONT></B>
162 </TD>
163 <TD>
164 <INPUT NAME="filnamn"
165 VALUE="<? echo $filnamn ?>" SIZE=25 MAXLENGTH=25>
166 (with .php extension)
167 </TD>
168 </TR>
169 <TR>
170 <TD>
171 <B>Name of unique field:</B>
172 </TD>
173 <TD>
174 <INPUT NAME="nycknamn" SIZE=25 MAXLENGTH=25
175 VALUE="<?echo $idname ?>">
176 </TD>
177 </TR>
178 <TR>
179 <TD>
180 <B>Is unique field numeric?
181 </TD>
182 <TD>
183 <INPUT TYPE=CHECKBOX NAME="Nycknum" <?
184 if ($id_isnumeric) echo " CHECKED"; ?>>
185 </TD>
186 </TR>
187 <TR>
188 <TD colspan=2 align=center>
189 (Repeat the unique field below if you want it to
190 be editable)
191 </TD>
192 </TR>
193 </TABLE>
194 <TABLE BORDER=0 CELLPADDING=6>
195 <TR>
196 <TH>#</TH>
197 <TH>Title</TH>
198 <TH>Fieldname</TH>
199 <TH>Max size</TH>
200 <TH>Inp. size</TH>
201 <TH>Sort by</TH>
202 <TH>Null?</TH>
203 <TH>Blob / text area</TH>
204 <TH>Numeric?</TH>
205 <TH>Pick list?</TH>
206 <TH>Searchable?</TH>
207 <TH>Browse?</TH>
208 </TR>
209 <?
210 mysql_select_db("$dbname") or die ("Failed to Connect to DB");
211 $qry = "SELECT * from $tablename";
212 $res = mysql_query($qry) or die ("Query Failed");
213 $numf = mysql_num_fields($res);
214 for ($i = 1; $i <= $numf; $i++):
215 ?>
216 <TR>
217 <TD ALIGN=CENTER><? echo $i ?></TD>
218 <TD>
219 <INPUT NAME="T<? echo $i
220 ?>" SIZE=15 MAXLENGTH=25 VALUE="<? $vn = "F$i"; echo $$vn ?>">
221
222
223 </TD>
224 <TD>
225 <INPUT NAME="<? $vn = "F$i"; echo $vn ?>" SIZE=15 MAXLENGTH=25 VALUE="<? echo $$vn ?>">
226 </TD>
227 <?
228
229 $columnname = $$vn;
230 $vn = "SZE$i";
231 ?>
232 <TD>
233 <INPUT NAME="M<? echo $i ?>" SIZE=4 MAXLENGTH=5 VALUE="<? echo $$vn ?>">
234 </TD>
235 <TD>
236 <INPUT NAME="I<? echo $i ?>" SIZE=4 MAXLENGTH=5 VALUE="<? if ($$vn != "") echo min((int)$$vn,80); ?>">
237 </TD>
238 <TD>
239 <INPUT TYPE="RADIO" NAME="ORDERBY" VALUE="<? echo $columnname; ?>" <?
240 if ($i == 1) echo " CHECKED"; ?>>
241 </TD>
242 <TD>
243 <INPUT TYPE="CHECKBOX" NAME="U<? echo $i ?>" <?
244 $vn = "ISNOTNULL$i";
245 if (!$$vn) echo " CHECKED" ?>>
246 </TD>
247 <TD>
248 <INPUT TYPE="CHECKBOX" NAME="B<? echo $i ?>" <?
249 $vn = "ISBLOB$i";
250 if ($$vn) echo " CHECKED" ?>>
251 </TD>
252 <TD>
253 <INPUT TYPE="CHECKBOX" NAME="N<? echo $i ?>"
254 <? $vn = "ISNUMERIC$i";
255 if ($$vn) echo " CHECKED" ?>>
256 </TD>
257 <TD>
258 <INPUT TYPE="CHECKBOX" NAME="S<? echo $i ?>">
259 </TD>
260 <TD>
261 <INPUT TYPE="CHECKBOX" NAME="SRCH<? echo $i ?>" CHECKED>
262 </TD>
263 <TD>
264 <INPUT TYPE="CHECKBOX" NAME="BRW<? echo $i ?>">
265 </TD>
266 </TR>
267 <?
268 endfor;
269 ?>
270 <TR>
271 <TD COLSPAN=9 ALIGN=CENTER>
272 <INPUT TYPE="submit" NAME="START!" VALUE="Generate PHP3 Script">
273
274
275 </TD>
276 </TR>
277 </TABLE>
278 </CENTER>
279 </FORM>
280 </BODY>
281 </HTML>
282
283
284 <? endif; ?>
285
286
287
288 <? if($action == "create"): ?>
289 <HTML><HEAD></HEAD><BODY>
290 <?
291
292 //*****************************************************************************
293 // PHP Generator v 0.5 99-05-22
294 // Copyright Mikael Ulfenborg (laplace)
295 // This code is distributed under GPL
296 //*****************************************************************************
297
298
299 //*************** Parse theme-file
300 if ($themefile == "") $themefile = "normal.pgtheme";
301 $tf = fopen($themefile,"r");
302 while (!feof($tf)):
303 $r = chop(fgets($tf,500)); //echo "<H2>$r</H2>";
304 $r = ereg_replace("^[\t ]+","",$r);
305 if ((substr($r,0,1) != "#") && ($r != "")):
306 $vstr = chop(strstr($r,"="));
307 $kstr = chop(substr($r,0,strlen($r)-strlen($vstr)));
308 $vstr = substr($vstr,1,999);
309 $vstr = ereg_replace("^[\t ]+","",$vstr);
310 $kstr = ereg_replace("^[\t ]+","",$kstr);
311 //Secho "<PRE>***",$kstr,"****",htmlspecialchars($vstr),"****</PRE><BR>";
312 if ($kstr != ""):
313 $$kstr = $vstr;
314 endif;
315 endif;
316 endwhile;
317 fclose($tf);
318
319 //*************** Now get server, username, passwd from form ******************
320 if ($servname)
321 $db_server = $servname;
322 if ($usrname)
323 $db_user = $usrname;
324 if ($passwd)
325 $db_passwd = $passwd;
326
327 //*************** Check for neccesary defaults
328 if ($body_tag == "") $body_tag="<BODY>";
329 if ($list_color1 == "") $list_color1="#FFFFFF";
330 if ($list_color2 == "") $list_color2="#EEFFFF";
331 if ($menu_bg_color == "") $menu_bg_color="#EEFFFF";
332 if ($list_table_tag == "") $list_table_tag="<TABLE>";
333 if ($form_table_tag == "") $form_table_tag="<TABLE>";
334 if ($language == "") $language="English";
335 if ($limit == "") $limit=50;
336
337 //*************** Parse language-file
338 $tf = fopen($language . ".NLS","r");
339 while (!feof($tf)):
340 $r = chop(fgets($tf,500)); //echo "<H2>$r</H2>";
341 $r = ereg_replace("^[\t ]+","",$r);
342 if ((substr($r,0,1) != "#") && ($r != "")):
343 $vstr = chop(strstr($r,"="));
344 $kstr = chop(substr($r,0,strlen($r)-strlen($vstr)));
345 $vstr = substr($vstr,1,999);
346 $vstr = ereg_replace("^[\t ]+","",$vstr);
347 $kstr = ereg_replace("^[\t ]+","",$kstr);
348 //Secho "<PRE>***",$kstr,"****",htmlspecialchars($vstr),"****</PRE><BR>";
349 if ($kstr != ""):
350 $$kstr = $vstr;
351 endif;
352 endif;
353 endwhile;
354 fclose($tf);
355
356 //*************** Generate output
357 $f = fopen($filnamn,"w");
358
359 fputs($f,"<HTML>\n<HEAD>\n");
360 fputs($f,"<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$NLSCharset\">\n");
361 fputs($f,"<TITLE>$filnamn - $dbnamn / $tabnamn</TITLE>\n");
362 $today = Date("Ymd");
363 fputs($f,"<?\n//** Generated by PHPGen $today\n");
364 fputs($f,"//** $author_name $author_email\n\n");
365 fputs($f,"\$f = mysql_pconnect(\"$db_server\",\"$db_user\",\"$db_passwd\");\n");
366 fputs($f,"if (empty(\$limit)) \$limit=$limit;\n");
367 fputs($f,"\$verbose_queries=0;\n");
368 fputs($f,"\n\nfunction mysqlquery(\$dbnamn,\$query)\n");
369 fputs($f,"{\n global \$verbose_queries;\n if (\$verbose_queries!=0)\n");
370 fputs($f," echo \$query.\"<BR>\";\n");
371 fputs($f," \$result = mysql(\$dbnamn,\$query);\n");
372 fputs($f," return \$result;\n}\n?>");
373
374
375 fputs($f,"\n<? /********** Delete *****************************************************/ ?>\n");
376 fputs($f,"<? if (\$action == \"tabort\"): ?>\n");
377
378 if ($Nycknum == "on"):
379 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"DELETE FROM $tabnamn WHERE $nycknamn=\$par\");\n");
380 else:
381 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"DELETE FROM $tabnamn WHERE $nycknamn='\$par'\");\n");
382 endif;
383 fputs($f," if (!empty(\$result)) {\n");
384 fputs($f," echo \"<META CONTENT=\\\"0; URL=$filnamn?action=lista&start=0\\\" HTTP-EQUIV=\\\"REFRESH\\\">\";\n");
385 fputs($f," } else {\n");
386 fputs($f," echo mysql_error().\"<BR>\\n\";\n }\n?>\n");
387 fputs($f,"<? endif ?>\n");
388
389 fputs($f,"\n<? /********** Store New **************************************************/ ?>\n");
390 fputs($f,"<? if (\$action == \"lagrany\"): ?>\n");
391 fputs($f,"<? //*** Check data\n");
392 fputs($f," \$ok = 1;\n");
393 fputs($f," echo \"<TABLE BORDER=0>\";\n\n");
394
395 $a = 1;
396 $vf = "F1"; $vt = "T1"; $vn = "N1"; $vu = "U1";
397 while ($$vf !=""):
398 fputs($f," $" . $$vf . "=chop($" . $$vf . ");\n\n");
399
400 if ($$vu != "on") {
401 fputs($f," if ($" . $$vf . " == \"\"):\n");
402 fputs($f," echo \"<TR><TD ALIGN=RIGHT><B>");
403 fputs($f,$$vt);
404 fputs($f,": </TD><TD>");
405 fputs($f," $");
406 fputs($f,$$vf);
407 fputs($f,"</TD>\";\n");
408 fputs($f," \$ok = 0;\n");
409 fputs($f," echo \"<TD CLASS=red>" . $$vt . " $NLSMustBeSpecified !</TD>\";\n");
410 fputs($f," endif;\n\n");
411 fputs($f," if (\$fields==\"\") {\n");
412 fputs($f," \$fields=\"". $$vf ."\";\n");
413 if ($$vn == "on") {
414 fputs($f, " \$values=\"$".$$vf."\";\n");
415 } else {
416 fputs($f, " \$values=\"'$".$$vf."'\";\n");
417 }
418
419 fputs($f," } else {\n \$fields.=\",". $$vf ."\";\n");
420 if ($$vn == "on") {
421 fputs($f, " \$values.=\",$".$$vf."\";\n");
422 } else {
423 fputs($f, " \$values.=\",'$".$$vf."'\";\n");
424 }
425 fputs($f, " }\n");
426 } else {
427 fputs($f," if ($". $$vf ."!=\"\") {\n");
428 fputs($f," if (\$fields==\"\") {\n");
429 fputs($f," \$fields=\"". $$vf ."\";\n");
430 if ($$vn == "on") {
431 fputs($f, " \$values=\"$".$$vf."\";\n");
432 } else {
433 fputs($f, " \$values=\"'$".$$vf."'\";\n");
434 }
435
436 fputs($f," } else {\n \$fields.=\",". $$vf ."\";\n");
437 if ($$vn == "on") {
438 fputs($f, " \$values.=\",$".$$vf."\";\n");
439 } else {
440 fputs($f, " \$values.=\",'$".$$vf."'\";\n");
441 }
442 fputs($f, " }\n }\n");
443 }
444 fputs($f, "\n");
445 $a++;
446 $vf = "F" . $a;
447 $vt = "T" . $a;
448 $vn = "N" . $a;
449 $vu = "U" . $a;
450 endwhile;
451
452 fputs($f," echo \"</TABLE>\";\n");
453 fputs($f," if (!\$ok):\n");
454 fputs($f," echo \"$NLSError!\";\n");
455 fputs($f," echo \"<A HREF=javascript:history.back()>$NLSTryAgain</A>\";\n");
456 fputs($f," exit;\n");
457 fputs($f," endif;\n");
458 fputs($f,"?>\n\n");
459 fputs($f,"<?\n");
460
461
462 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"INSERT INTO $tabnamn (\$fields) VALUES (\$values)\");\n");
463 fputs($f," if (!empty(\$result)) {\n");
464 fputs($f," echo \"<META CONTENT=\\\"0; URL=$filnamn?action=lista&start=0\\\" HTTP-EQUIV=\\\"REFRESH\\\">\";\n");
465 fputs($f," } else {\n");
466 fputs($f," echo mysql_error().\"<BR>\\n\";\n }\n?>\n");
467 fputs($f,"<? endif ?>\n");
468
469 fputs($f,"\n<? /********** Save edited ************************************************/ ?>\n");
470 fputs($f,"<? if (\$action == \"spara\"): ?>\n");
471 fputs($f,"<? //*** Check data\n");
472 fputs($f," \$ok = 1;\n");
473 fputs($f," echo \"<TABLE BORDER=0>\";\n\n");
474
475 $a = 1;
476 $vf = "F1"; $vt = "T1"; $vn = "N1"; $vu = "U1";
477 while ($$vf !=""):
478 fputs($f," $" . $$vf . "=chop($" . $$vf . ");\n");
479 if ($$vu != "on") {
480 fputs($f," if ($" . $$vf . " == \"\"):\n");
481 fputs($f," echo \"<TR><TD ALIGN=RIGHT><B>");
482 fputs($f,$$vt);
483 fputs($f,": </TD><TD>");
484 fputs($f," $");
485 fputs($f,$$vf);
486 fputs($f,"</TD>\";\n");
487 fputs($f," \$ok = 0;\n");
488 fputs($f," echo \"<TD CLASS=red>" . $$vt . " $NLSMustBeSpecified !</TD>\";\n");
489 fputs($f," endif;\n\n");
490 fputs($f," if (!empty(\$fields)) \$fields.=',';\n");
491 fputs($f," \$fields.=\"". $$vf ."=\";\n");
492 if ($$vn == "on") {
493 fputs($f, " \$fields.=\"$".$$vf."\";\n");
494 } else {
495 fputs($f, " \$fields.=\"'$".$$vf."'\";\n");
496 }
497 } else {
498 fputs($f," if ($". $$vf ."!=\"\") {\n");
499 fputs($f," if (!empty(\$fields)) \$fields.=',';\n");
500 fputs($f," \$fields.=\"". $$vf ."=\";\n");
501 if ($$vn == "on") {
502 fputs($f, " \$fields.=\"$".$$vf."\";\n");
503 } else {
504 fputs($f, " \$fields.=\"'$".$$vf."'\";\n");
505 }
506 fputs($f, " }\n");
507 }
508 $a++;
509 $vf = "F" . $a;
510 $vt = "T" . $a;
511 $vn = "N" . $a;
512 $vu = "U" . $a;
513 endwhile;
514
515
516
517 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"UPDATE $tabnamn SET \$fields");
518 fputs($f," WHERE ");
519 fputs($f,"$nycknamn");
520 if ($Nycknum == "on"):
521 fputs($f,"=\$par");
522 else:
523 fputs($f,"='\$par'");
524 endif;
525
526 fputs($f,"\");\n");
527 fputs($f," if (!empty(\$result)) {\n");
528 fputs($f," echo \"<META CONTENT=\\\"0; URL=$filnamn?action=lista&start=0\\\" HTTP-EQUIV=\\\"REFRESH\\\">\";\n");
529 fputs($f," } else {\n");
530 fputs($f," echo mysql_error().\"<BR>\\n\";\n }\n?>\n");
531 fputs($f,"<? endif ?>\n\n");
532
533 //****************************** Insert Style sheet ?
534 if ($style_sheet != ""):
535 $ssf = fopen($style_sheet,"r");
536
537 while (!feof($ssf)):
538 $r = fgets($ssf,500);
539 fputs($f,$r);
540 endwhile;
541 fclose($ssf);
542 endif;
543
544 fputs($f,"</HEAD>\n\n");
545
546 fputs($f,"$body_tag\n");
547 fputs($f,"$menu_table_tag<TR>\n");
548 fputs($f,"<? if (empty(\$found)) {\n");
549 fputs($f," if (\$action == \"sok\") {\n \$result = mysqlquery(\"$dbnamn\",\"SELECT COUNT(*) FROM $tabnamn WHERE (\$whichfield LIKE '%\" . \$searchvalue . \"%') ORDER BY \$whichfield\");\n");
550 fputs($f," } else {\n");
551 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"SELECT COUNT(*) FROM $tabnamn\");\n }\n");
552 fputs($f," \$found = mysql_result(\$result,0,0);\n }\n");
553 fputs($f," if (\$limit == 0) \$limit = \$found; ?>\n");
554 fputs($f,"<? if (!empty(\$start) && \$start>0) { ?>\n<TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=<? echo \$action; if (\$action == \"sok\") echo \"&whichfield=\$whichfield&searchvalue=\$searchvalue\"; ?>&found=<? echo \$found; ?>&start=<? echo max(\$start-\$limit,0); ?>><<<$NLSPrevious <? echo \$limit; ?></A></TD>\n<? } ?>\n");
555 fputs($f," <TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=lista&found=<? echo \$found; ?>&start=0>$NLSListAll</A></TD>\n");
556 fputs($f,"<? if (!empty(\$start) && \$start+\$limit<\$found) { ?>\n<TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=<? echo \$action; if (\$action == \"sok\") echo \"&whichfield=\$whichfield&searchvalue=\$searchvalue\"; ?>&found=<? echo \$found; ?>&start=<? echo \$start+\$limit?>>>>>$NLSNext <? echo min(\$found-\$start+\$limit,\$limit); ?></A></TD>\n<? } ?>\n");
557 fputs($f," <TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=searchform>$NLSSearch</A></TD>\n");
558 fputs($f,"<TD BGCOLOR=$menu_bg_color><A HREF=$filnamn?action=ny>$NLSNew</A></TD>\n");
559 fputs($f,"</TR></TABLE>\n");
560 fputs($f,"<? if (empty(\$start)) \$start=0; ?>\n");
561
562 fputs($f,"\n<? /********** Warn Delete ************************************************/ ?>\n");
563 fputs($f,"<? if (\$action == \"varnatabort\"): ?>\n");
564 fputs($f,"<H1>$NLSAreYouSure</H1>\n");
565 fputs($f,"<A HREF=$filnamn?action=tabort&par=<? echo \$par?>>$NLSYes</A> ");
566 fputs($f,"<A HREF=javascript:history.back()>$NLSNo</A>\n");
567 fputs($f,"<? endif ?>\n");
568
569 fputs($f,"\n<?/********** Search *****************************************************/?>\n");
570 fputs($f,"<? if (\$action == \"sok\"): ?>\n");
571 //fputs($f," <FORM ACTION=$filnamn><INPUT TYPE=HIDDEN NAME=action VALUE=sok><INPUT NAME=sokvad><INPUT TYPE=SUBMIT VALUE=$NLSSearchForm></FORM>\n");
572 fputs($f," <? if ((\$par == \"$F1\") || (\$par == \"\")): ?> \n");
573 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE (\$whichfield LIKE '%\" . \$searchvalue . \"%') ORDER BY \$whichfield LIMIT \$start,\$limit\"); ?>\n");
574 fputs($f," <H3>$NLSSearchFor '<? echo \$searchvalue ?>' $NLSSearchIn '<? echo \$whichfield ?>' $NLSSearchReturned <? echo \$found ?> $NLSSearchHits</H3>\n");
575 fputs($f," <? endif ?> \n");
576 fputs($f," <? \$num = mysql_numrows(\$result);\n");
577 fputs($f," \$c1 = \"$list_color1\";\n");
578 fputs($f," \$c2 = \"$list_color2\";?>\n");
579 fputs($f," $list_table_tag\n");
580 fputs($f," <TR>\n");
581 fputs($f," <TH></TH>");
582
583 $a = 1;
584 $vf = "T1";
585 $brwf = "BRW1";
586 while ($$vf !=""):
587 if ($$brwf == "on"):
588 fputs($f,"<TH>");
589 fputs($f,$$vf . "</TH>");
590 endif;
591 $a++;
592 $vf = "T" . $a;
593 $brwf = "BRW" . $a;
594 endwhile;
595
596 fputs($f,"\n");
597 fputs($f," </TR>\n");
598
599 fputs($f," <? for (\$i =0 ;\$i < \$num; \$i++):\n");
600 fputs($f," if (\$c == \$c1):\n");
601 fputs($f," \$c = \$c2;\n");
602 fputs($f," else:\n");
603 fputs($f," \$c = \$c1;\n");
604 fputs($f," endif;?>\n");
605 fputs($f," <TR BGCOLOR=<? echo \$c ?>>\n");
606 fputs($f," <TD><A HREF=$filnamn?action=detalj&par=<?echo mysql_result(\$result,\$i,\"$nycknamn\")?>><?echo mysql_result(\$result,\$i,\"$F1\")?></A></TD>\n");
607
608 $a = 1;
609 $vf = "F1";
610 $brwf = "BRW1";
611 while ($$vf !=""):
612 if ($$brwf == "on"):
613 fputs($f," <TD>\n");
614 fputs($f," <? \$val = mysql_result(\$result, \$i, \"");
615 fputs($f,$$vf);
616 fputs($f,"\");\n");
617 // fputs($f," if (trim(\$val) != \"\"):\n");
618 fputs($f," if (chop(\$val) != \"\"):\n"); //Sorry I have an old PHP ;)
619 fputs($f," echo \$val;\n");
620 fputs($f," else:\n");
621 fputs($f," echo \" \";\n");
622 fputs($f," endif ?>\n");
623 fputs($f," </TD>\n");
624 endif;
625 $a++;
626 $vf = "F" . $a;
627 $brwf = "BRW" . $a;
628 endwhile;
629
630 fputs($f," </TR>\n");
631 fputs($f," <? endfor ?>\n");
632 fputs($f," </TABLE>\n");
633 fputs($f,"<? mysql_free_result(\$result); endif /* Show all */ ?>\n");
634
635
636 fputs($f,"\n<?/********** Start screen *************************************************/?>\n");
637 fputs($f,"<? if (\$argv[0] == \"\"): ?>\n");
638 fputs($f," <P ALIGN=center>\n");
639 /* fputs($f," <B>Welcome to .........</B><BR>\n");
640 fputs($f," </P>\n");
641 fputs($f," <H2 ALIGN=center>.......system</H2>\n"); */
642 fputs($f,"<? endif ?>\n");
643
644 fputs($f,"\n<?/********** Show all *****************************************************/?>\n");
645 fputs($f,"<? if (\$action == \"lista\"): ?>\n");
646 //fputs($f," <FORM ACTION=$filnamn><INPUT TYPE=HIDDEN NAME=action VALUE=sok><INPUT NAME=sokvad><INPUT TYPE=SUBMIT VALUE=$NLSSearchForm></FORM>\n");
647 fputs($f," <? if ((\$par == \"$F1\") || (\$par == \"\")): ?> \n");
648 fputs($f," <H3 ALIGN=center>$NLSRecordsSortedBy \"$ORDERBY\"</H3>\n");
649 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn ORDER BY $ORDERBY LIMIT \$start,\$limit\");\n");
650 fputs($f," endif ?> \n");
651 fputs($f," <? \$num = mysql_numrows(\$result);\n");
652 fputs($f," \$c1 = \"$list_color1\";\n");
653 fputs($f," \$c2 = \"$list_color2\";?>\n");
654 fputs($f," $list_table_tag\n");
655 fputs($f," <TR>\n");
656 fputs($f," <TH></TH>");
657
658 $a = 1;
659 $vf = "T1";
660 $fn = "F1";
661 $brwf = "BRW1";
662 while ($$fn !=""):
663 if ($$brwf == "on"):
664 fputs($f,"<TH>");
665 fputs($f,$$vf . "</TH>");
666 endif;
667 $a++;
668 $vf = "T" . $a;
669 $fn = "F" . $a;
670 $brwf = "BRW" . $a;
671 endwhile;
672
673 fputs($f,"\n");
674 fputs($f," </TR>\n");
675
676 fputs($f," <? for (\$i =0 ;\$i < \$num; \$i++):\n");
677 fputs($f," if (\$c == \$c1):\n");
678 fputs($f," \$c = \$c2;\n");
679 fputs($f," else:\n");
680 fputs($f," \$c = \$c1;\n");
681 fputs($f," endif;?>\n");
682 fputs($f," <TR BGCOLOR=<? echo \$c ?>>\n");
683 fputs($f," <TD><A HREF=$filnamn?action=detalj&par=<?echo mysql_result(\$result,\$i,\"$nycknamn\")?>><?echo mysql_result(\$result,\$i,\"$F1\")?></A></TD>\n");
684
685 $a = 1;
686 $vf = "F1";
687 $brwf = "BRW1";
688 while ($$vf !=""):
689 if ($$brwf == "on"):
690 fputs($f," <TD>\n");
691 fputs($f," <? \$val = mysql_result(\$result, \$i, \"");
692 fputs($f,$$vf);
693 fputs($f,"\");\n");
694 // fputs($f," if (trim(\$val) != \"\"):\n");
695 fputs($f," if (chop(\$val) != \"\"):\n"); //Sorry I have an old PHP ;)
696 fputs($f," echo \$val;\n");
697 fputs($f," else:\n");
698 fputs($f," echo \" \";\n");
699 fputs($f," endif ?>\n");
700 fputs($f," </TD>\n");
701 endif;
702
703 $a++;
704 $vf = "F" . $a;
705 $brwf = "BRW" . $a;
706
707 endwhile;
708
709 fputs($f," </TR>\n");
710 fputs($f," <? endfor ?>\n");
711 fputs($f," </TABLE>\n");
712 fputs($f,"<? mysql_free_result(\$result); endif /* Show all */ ?>\n");
713
714 fputs($f,"\n<?/********** Show detail **************************************************/?>\n");
715 fputs($f,"<? if ((\$action == \"detalj\") || (\$action == \"varnatabort\")): ?>\n");
716 if ($Nycknum == "on"):
717 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE $nycknamn=\$par\")?>\n");
718 else:
719 fputs($f," <? \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE $nycknamn='\$par'\")?>\n");
720 endif;
721 fputs($f," <H2 ALIGN=center>ID: <?echo mysql_result(\$result,0,\"$nycknamn\")?></H2>\n");
722 fputs($f," $form_table_tag\n");
723
724 $a = 1;
725 $vf = "F1"; $vt = "T1"; $vb = "B1";
726 while ($$vf !=""):
727 if ($$vb != "on"): /* A blob...., no */
728 fputs($f," <TR><TD valign=top><B>");
729 fputs($f,$$vt);
730 fputs($f,": </TD><TD valign=top>");
731 fputs($f,"<?echo mysql_result(\$result,0,\"");
732 fputs($f,$$vf);
733 fputs($f,"\")?></TD></TR>\n");
734 endif;
735 if ($$vb == "on"): /* A blob! */
736 fputs($f," <TR><TD valign=top><B>");
737 fputs($f,$$vt."</B></TD>\n");
738 fputs($f," <TD valign=top>\n");
739 fputs($f," <PRE><?\n");
740 fputs($f," \$xx = mysql_result(\$result,0,\"".$$vf."\");\n");
741 fputs($f," \$xx = ereg_replace(\"<\",\"<\",\$xx);\n");
742 fputs($f," \$xx = ereg_replace(\">\",\">\",\$xx);\n");
743 fputs($f," echo \$xx ?>\n");
744 fputs($f," </PRE></TD></TR>\n");
745 endif;
746
747 $a++;
748 $vf = "F" . $a;
749 $vt = "T" . $a;
750 $vb = "B" . $a;
751 endwhile;
752
753 fputs($f," </TABLE>\n");
754 fputs($f,"<? if (\$action == \"detalj\"):?>\n");
755 fputs($f," <A HREF=$filnamn?action=redigera&par=<?echo \$par?>>$NLSEdit</A>\n");
756 fputs($f," <A HREF=$filnamn?action=varnatabort&par=<?echo \$par?>> $NLSDelete</A>\n");
757 fputs($f,"<? endif;?>\n");
758 fputs($f,"<? mysql_free_result(\$result); endif /* Show detail */ ?>\n");
759
760 fputs($f,"\n<?/********** New/Edit *****************************************************/?>\n");
761 fputs($f,"<? if ((\$action == \"ny\") || (\$action == \"redigera\")):\n");
762 fputs($f," if (\$action == \"redigera\"):\n");
763 if ($Nycknum == "on"):
764 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE $nycknamn=\$par\");\n");
765 else:
766 fputs($f," \$result = mysqlquery(\"$dbnamn\",\"SELECT * FROM $tabnamn WHERE $nycknamn='\$par'\");\n");
767 endif;
768
769 $a = 1;
770 $vf = "F1"; $vt = "T1"; $vb = "B1"; $vi = "I1"; $vm = "M1"; $vu = "U1";
771 while ($$vf !=""):
772 fputs($f," $");
773 fputs($f,$$vf);
774 fputs($f,"=htmlspecialchars(mysql_result(\$result,0,\"");
775 fputs($f,$$vf);
776 fputs($f,"\"));\n");
777 $a++;
778 $vf = "F" . $a;
779 $vt = "T" . $a;
780 $vb = "B" . $a;
781 $vi = "I" . $a;
782 $vm = "M" . $a;
783 $vm = "U" . $a;
784 endwhile;
785
786 fputs($f," echo \"<H2 ALIGN=center>$NLSEdit</H2>\";\n");
787 fputs($f," else:\n");
788 fputs($f," echo \"<H2 ALIGN=center>$NLSNew</H2>\";\n");
789
790 fputs($f," endif;\n");
791 fputs($f," ?>\n");
792
793 fputs($f,"<? if (\$action == \"ny\"):?>\n");
794 fputs($f," <FORM ACTION=$filnamn?action=lagrany METHOD=POST>\n");
795 fputs($f,"<? else: ?>\n");
796 fputs($f," <FORM ACTION=$filnamn?action=spara&par=<?echo \$par?> METHOD=POST>\n");
797 fputs($f,"<? endif; ?>\n");
798 fputs($f," <TABLE BORDER=0 CELLPADDING=6>\n");
799
800 $a = 1;
801 $vf = "F1"; $vt = "T1"; $vb = "B1"; $vi = "I1"; $vm = "M1"; $vs = "S1"; $vu = "U1";
802 while ($$vf !=""):
803 if ($$vs == "on"): /* An Selectlist */
804 fputs($f," <TR><TD ALIGN=\"RIGHT\" VALIGN=\"TOP\"><B>");
805 fputs($f,$$vt);
806 if ($$vu == "on") {
807 fputs($f,"<BR>($NLSOptional)");
808 }
809 fputs($f,": </TD><TD VALIGN=\"TOP\">");
810 fputs($f,"\n <SELECT NAME=");
811 fputs($f,$$vf);
812 fputs($f," SINGLE>\n");
813 fputs($f," <?");
814 fputs($f," \$res = mysqlquery(\"$dbnamn\",\"SELECT ".$$vf." FROM $tabnamn ORDER BY ".$$vf."\");\n");
815 fputs($f," for (\$i = 0; \$i < mysql_numrows(\$res); \$i++):\n");
816 fputs($f," echo \"<OPTION VALUE=\"");
817 fputs($f,",mysql_result(\$res,\$i,\"".$$vf."\")");
818 fputs($f,",\">\"");
819 fputs($f,",mysql_result(\$res,\$i,\"".$$vf."\");\n");
820 fputs($f," endfor;\n");
821 fputs($f," ?>\n");
822 fputs($f," </SELECT></TD></TR>\n");
823 endif;
824
825 if (($$vb != "on") && ($$vs != "on")): /* A blob...., no */
826 fputs($f," <TR><TD ALIGN=\"RIGHT\" VALIGN=\"TOP\"><B>");
827 fputs($f,$$vt);
828 if ($$vu == "on") {
829 fputs($f,"<BR>($NLSOptional)");
830 }
831 fputs($f,": </TD><TD VALIGN=\"TOP\">");
832 fputs($f,"<INPUT NAME=");
833 fputs($f,$$vf);
834 fputs($f," SIZE=");
835 fputs($f, $$vi);
836 fputs($f," MAXLENGTH=");
837 fputs($f,$$vm);
838 fputs($f," VALUE=\"<? echo $");
839 fputs($f, $$vf);
840 fputs($f, " ?>\"");
841 fputs($f,"></TD></TR>\n");
842 endif;
843
844 if (($$vb == "on") && ($$vs != "on")): /* A blob! */
845 fputs($f," <TR><TD ALIGN=\"RIGHT\" VALIGN=\"TOP\"><B>");
846 fputs($f,$$vt);
847 if ($$vu == "on") {
848 fputs($f,"<BR>($NLSOptional)");
849 }
850 fputs($f,":</TD>\n");
851 fputs($f," <TD VALIGN=\"TOP\">\n");
852 fputs($f," <TEXTAREA NAME=");
853 fputs($f,$$vf);
854 fputs($f," COLS=50 ROWS=10>");
855 fputs($f, "<? echo $" . $$vf . " ?>");
856 fputs($f, "</TEXTAREA></TD></TR>\n");
857 endif;
858
859 $a++;
860 $vf = "F" . $a;
861 $vt = "T" . $a;
862 $vb = "B" . $a;
863 $vi = "I" . $a;
864 $vm = "M" . $a;
865 $vs = "S" . $a;
866 $vu = "U" . $a;
867 endwhile;
868
869 fputs($f," </TABLE>\n");
870 fputs($f," <INPUT TYPE=submit NAME=\"Save\" VALUE=\"$NLSSave\"> <INPUT TYPE=reset VALUE=\"$NLSClearAll\">\n");
871 fputs($f," </FORM>\n");
872 fputs($f,"<? mysql_free_result(\$result); endif /* New/edit */ ?>\n");
873
874 fputs($f,"\n<? /********** Search form ************************************************/ ?>\n");
875 fputs($f,"<? if (\$action == \"searchform\"): ?>\n");
876 fputs($f,"<TABLE BORDER=0 CELLPADDING=6>\n");
877 for ($i = 1; ; $i++) {
878 $fn = "F$i";
879 if ($$fn == "")
880 break;
881 $ft = "T$i";
882 $fsrch = "SRCH$i";
883 if ($$fsrch == "on")
884 {
885 fputs($f,"<TR><TD ALIGN=\"RIGHT\"><B>");
886 fputs($f,$$ft);
887 fputs($f,":</B></TD>\n");
888 fputs($f,"<TD><FORM METHOD=\"POST\" ACTION=\"$filnamn\">\n");
889 fputs($f,"<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"sok\">\n");
890 fputs($f,"<INPUT TYPE=\"HIDDEN\" NAME=\"start\" VALUE=\"0\">\n");
891 fputs($f,"<INPUT NAME=\"searchvalue\">\n");
892 fputs($f,"<INPUT TYPE=\"HIDDEN\" NAME=\"whichfield\" VALUE=\"");
893 fputs($f,$$fn);
894 fputs($f,"\"></TD>\n");
895 fputs($f,"<TD><INPUT TYPE=\"SUBMIT\" VALUE=\"$NLSSearchForm\">\n");
896 fputs($f,"</FORM></TD>\n");
897 fputs($f,"</TR>\n");
898 }
899 }
900
901 fputs($f,"</TABLE>\n");
902 fputs($f,"<? endif; ?>\n");
903 fputs($f,"</BODY>\n");
904 fputs($f,"</HTML>\n");
905
906
907 fclose($f);
908
909 echo "Now, lets see, hm.......... the answer is 42 !<BR><BR>";
910 echo "By the way..... your code is saved as <A HREF=$filnamn><B>$filnamn</B></A>";
911 ?>
912
913 </BODY>
914 </HTML>
915 <? endif; ?>
916
| |