This page includes several sub-pages with examples of PHP
code snippets. Note that the contents of every snippet is
shown below the main body. That is very simply done by
there being a 'CB' Center Block file in this directory, which
very simply displays the contents of every file. Note that in
this page it shows its own code, and in the subpages it
shows the example code (through acquisition).<br>

<!-- Simple Form Example -->

<?php global $PHITE_vars;?>     <!-- Get the PHITE environment array -->

<center><p><h2>Example Form Call:</h2>
This Script Shows How To Call A Form in PHITE.<p>

<?php
  $yourtext=$PHITE_vars['yourtext'];    # variables are passed within the environment array
  if (isset($yourtext))
  {
    print("<h2>You Typed: ".$yourtext."</h2><p>");
  }
?>

<!-- Note the address for 'Action =' in the next line -- this is how you embed the form in the PHITE skin -->
<form method="post" action=<?php print("'".$PHITE_vars['PHITE_callself']."'"); ?>>
      Example Text Box: <input type="text" size=25 name="yourtext">
      <input type="submit" VALUE="Call Form">
</form>
</center>



<!-- CB.inc file to display all of the code in current directory -->

<?php global $PHITE_vars;

print ("<CENTER><h3>Files in ".$PHITE_vars['PHITE_selfdir']."</h3><TABLE WIDTH='80%' border='1'><tr><td>");
$d=dir($PHITE_vars['PHITE_selfdir']);
while ($file=$d->read())
{ 
  if (strtolower(substr(strrchr($file,'.'),1))=='inc')
  {
    print("<TR><TD><center><b>".$file."</b></center><p>");
    show_source($PHITE_vars['PHITE_selfdir'].'/'.$file);
    print("</TR>");
  }
}
print("</TABLE></center>");

print ("<CENTER><TABLE WIDTH='80%' border='1'><tr><td>");
$d=dir($PHITE_vars['PHITE_selfdir']);
while ($file=$d->read())
{ 
  if (strtolower(substr(strrchr($file,'.'),1))=='txt')
  {
    print("<TR><TD><center><b>".$file."</b></center><p>");
    show_source($PHITE_vars['PHITE_selfdir'].'/'.$file);
    print("</TR>");
  }
}
print("</TABLE></center>");

?>



<!-- Directory listing right block -->

<?php global $PHITE_vars;

$d=dir($PHITE_vars['PHITE_selfdir']);
while ($file=$d->read())
{ 
  if (substr($file,0,1)!='.')print($file."<br>");
}
?>