114
<BR>
<TABLE CELLPADDING=4 CELLSPACING=".">
<TR>
<TH ALIGN="RIGHT">Show results as:</TH>
<TD>
<INPUT TYPE="Radio" NAME="VIEW" VALUE="table" CHECKED>Table
<INPUT TYPE="Radio" NAME="VIEW" VALUE="list">UL
<INPUT TYPE="Radio" NAME="VIEW" VALUE="records">Separated Records
</TD>
</TR>
<?
if (!eregi("LIMIT", $SQL)):
?>
<TR>
<TH ALIGN="RIGHT">Records per screen:</TH>
<TD><INPUT TYPE="Text" NAME="PAGESIZE" VALUE="20" SIZE=8></TD>
</TR>
<?
endif;
?>
</TABLE>
<BR>
<BR>
<?
FormEnd("Proceed with selected");
echo "</CENTER>\n";
endif;
endif;
elseif ("$cmd" == "Proceed with selected"): // We have SQL and view type here
PrintHead("Preview");
$SQL = stripslashes($SQL);
echo "<H3>SQL: 'SELECT $SQL'</H3>\n";
115
if (!mysql_select_db($DB)):
NotAvailable(__FILE__, __LINE__);
exit;
endif;
$HasLimit = eregi("LIMIT", $SQL);
if (!$HasLimit):
$LSQL = "SELECT $SQL LIMIT $PAGESIZE"; // Prevent huge results transfer
endif;
$result = mysql_query($LSQL);
if ("$VIEW" == "table"):
?>
<TABLE WIDTH="100%" BORDER=1 CELLPADDING=2 CELLSPACING=1>
<TR VALIGN="TOP">
<?
$i = 0;
while ($i < count($FIELDS)):
if ($FIELDS[$i] != "Dont" && $FIELDS[$i] != "Hidden"):
echo "<TH>";
echo $CAPTIONS[$i];
echo "</TH>";
endif;
$i++;
endwhile;
?>
</TR>
<?
$RecStart = "<TR VALIGN=\"TOP\">";
$RecEnd = "</TR>\n";
$FieldStart = "<TD>";
$FieldEnd = "</TD>";
elseif ("$VIEW" == "list"):
echo "<UL>";
116
$RecStart = "<LI>";
$RecEnd = "</LI>\n";
$FieldStart = "";
$FieldEnd = ";";
elseif ("$VIEW" == "records"):
$RecStart = "";
$RecEnd = "<HR>\n";
$FieldStart = "Caption:";
$FieldEnd = "<BR>\n";
endif;
while ($row = mysql_fetch_row($result)):
echo $RecStart;
$i = 0;
while ($i < count($row)):
$val = $row[$i];
$caption = $CAPTIONS[$i];
switch ($FIELDS[$i]):
case "Dont":
break;
case "Hidden": // Don't use any separators here
?>
<INPUT TYPE="Hidden" NAME="<?echo $caption;?>" VALUE="<?echo
$val;?>">
<?
break;
case "Picture":
if ("$FieldStart" == "Caption:"):
echo "<B>$caption:</B>";
else:
echo $FieldStart;
endif;
?>
117
<IMG SRC="<?echo $val;?>" BORDER=0 ALT="<?echo $caption;?>">
<?
echo $FieldEnd;
break;
case "URL":
if ("$FieldStart" == "Caption:"):
echo "<B>$caption:</B>";
else:
echo $FieldStart;
endif;
if ($val):
?>
<A HREF="<?echo $val;?>"><?echo $caption;?></A>
<?
else:
echo " ";
endif;
echo $FieldEnd;
break;
case "Email":
if ("$FieldStart" == "Caption:"):
echo "<B>$caption:</B>";
else:
echo $FieldStart;
endif;
if ($val):
?>
<A HREF="mailto:<?echo $val;?>"><?echo $caption;?></A>
<?
else:
echo " ";
endif;
118
echo $FieldEnd;
break;
default:
if ("$FieldStart" == "Caption:"):
echo "<B>$caption:</B>";
else:
echo $FieldStart;
endif;
echo $val;
echo $FieldEnd;
break;
endswitch;
$i++;
endwhile;
echo $RecEnd;
endwhile;
if ("$VIEW" == "table"):
echo "</TABLE>\n";
elseif ("$VIEW" == "list"):
echo "</UL>";
endif;
if (!$HasLimit):
?>
<P ALIGN="RIGHT">
<A HREF="<?echo "$PHP_SELF?offset=$PAGESIZE";?>">Next <?echo
$PAGESIZE;?>
records</A>
</P>
<?
endif;
FormStart();
FormEnd("Generate code for SQL output");
119
PrintFoot();
elseif ("$cmd" == "Generate code for SQL output"): // Code generation for given SQL
PrintHead("Code for SQL output");
?>
<TABLE BGCOLOR="WHITE" WIDTH="100%" CELLPADDING=6>
<TR>
<TD>
<?
$src = "<?\n" .
"function NotAvailable(\$what = \"application\", \$reason = \"\") {\n" .
"?>\n" .
" <HTML><HEAD><TITLE>Not available</TITLE></HEAD>" .
" <BODY><H1>Sorry,\n <?echo \$what;?>\n is not available</H1>\n" .
" <?\n if (\$reason):\n echo \"<P>Reason: <TT>\$reason</TT></P>\";\n" .
" endif;\n ?></BODY></HTML>\n" .
"<?\n" .
"}\n\n" .
"error_reporting(256); // set max level\n\n" .
"\$offset = IntVal(\$offset);\n" .
"\$DBHOST = \"$DBHOST\";\n" .
"\$DBUSER = \"nobody\";\n" .
"\$DBPASS = \"\";\n" .
"\$DB = \"$DB\";\n" .
"\$PAGESIZE = \"$PAGESIZE\";\n\n";
$SQL = stripslashes($SQL);
if (eregi("LIMIT", $SQL)):
$src .= "\$SQL = \"SELECT $SQL\";\n\n";
$PagedOutput = 0;
else:
$src .= "\$SQL = \"SELECT $SQL LIMIT \$offset,\$PAGESIZE\";\n\n";
$PagedOutput = 1;
endif;
120
$src .= "if (!mysql_pconnect(\$DBHOST, \$DBUSER, \$DBPASS)):\n" .
" NotAvailable();\n" .
" exit;\n" .
"endif;\n" .
"if (!mysql_select_db(\$DB)):\n" .
" NotAvailable(\$DB, mysql_error());\n" .
" exit;\n" .
"endif;\n" .
"\$result = mysql_query(\$SQL);\n" .
"if (!\$result):\n" .
" NotAvailable(\"Query result\", mysql_error());\n" .
" exit;\n" .
"endif;\n" .
"?>\n" .
"<HTML>\n" .
"<HEAD>\n" .
"<TITLE>Query results</TITLE>\n" .
"</HEAD>\n" .
"<BODY>\n";
if ("$VIEW" == "table"):
$src .= "<TABLE WIDTH=\"100%\" BORDER=1 CELLPADDING=2
CELLSPACING=1>\n" .
"<TR VALIGN=\"TOP\">\n";
$i = 0;
while ($i < count($FIELDS)):
if ($FIELDS[$i] != "Dont" && $FIELDS[$i] != "Hidden"):
$src .= "<TH>";
$src .= $CAPTIONS[$i];
$src .= "</TH>";
endif;
$i++;
endwhile;
121
$src .= "</TR>\n";
$RecStart = "<TR VALIGN=\\\"TOP\\\">";
$RecEnd = "</TR>";
$FieldStart = "<TD>";
$FieldEnd = "</TD>";
elseif ("$VIEW" == "list"):
$src .= "<UL>\n";
$RecStart = "<LI>";
$RecEnd = "</LI>";
$FieldStart = "";
$FieldEnd = ";";
elseif ("$VIEW" == "records"):
$RecStart = "";
$RecEnd = "<HR>";
$FieldStart = "Caption:";
$FieldEnd = "<BR>";
endif;
$src .= "<?\n" .
"while (\$row = mysql_fetch_array(\$result)):\n" .
" echo \"$RecStart\";\n";
$i = 0;
while ($i < count($FIELDS)):
$field = $FIELDS[$i];
$caption = $CAPTIONS[$i];
$fieldname = $FIELDNAMES[$i];
$src .= " \$val = \$row[\"$fieldname\"];\n";
switch ($field):
case "Dont":
break;
case "Hidden": // Don't use any separators here
$src .= "?>\n <INPUT TYPE=\"Hidden\" NAME=\"$caption\" " .
122
"VALUE=\"<?echo \$val;?>\">\n<?\n";
break;
case "Picture":
$src .= "?>\n";
if ("$FieldStart" == "Caption:"):
$src .= " <B>$caption:</B>";
else:
$src .= " $FieldStart";
endif;
$src .= "<IMG SRC=\"<?echo \$val;?>\" BORDER=0
ALT=\"$caption\">$FieldEnd\n<?\n";
break;
case "URL":
if ("$FieldStart" == "Caption:"):
$src .= " echo \"<B>$caption:</B>\";\n";
else:
$src .= " echo \"$FieldStart\";\n";
endif;
$src .= " if (\$val):\n" .
"?>\n <A HREF=\"<?echo \$val;?>\">$caption</A>\n<?\n" .
" else:\n" .
" echo \" \";\n" .
" endif;\n" .
" echo \"$FieldEnd\";\n";
break;
case "Email":
if ("$FieldStart" == "Caption:"):
$src .= " echo \"<B>$caption:</B>\";\n";
else:
$src .= " echo \"$FieldStart\";\n";
endif;
$src .= " if (\$val):\n" .
123
"?>\n" .
" <A HREF=\"<?echo \$val;?>\">$caption</A>\n" .
"<?\n" .
" else:\n" .
" echo \" \";\n" .
" endif;\n" .
" echo \"$FieldEnd\";\n";
break;
/*
*/
default:
if ("$FieldStart" == "Caption:"):
$src .= " echo \"<B>$caption:</B> ";
else:
$src .= " echo \"$FieldStart";
endif;
$src .= "\$val" .
"$FieldEnd\";\n";
break;
endswitch;
$i++;
endwhile;
$src .= " echo \"$RecEnd\\n\";\n" .
"endwhile;\n?>\n";
if ("$VIEW" == "table"):
$src .= "</TABLE>\n";
elseif ("$VIEW" == "list"):
$src .= "</UL>";
endif;
if ($PagedOutput):
$src .= "<P ALIGN=\"RIGHT\">\n" .