PX : code

Tnsnames parser by Richard Sumption
Download this code


<FORM NAME="Databases" TARGET="<?PHP_SELF?>">

/*
    Written by Richard Sumption - itrs_1@hotmail.com
    This script will interrogate the tnsnames.ora file and load the file
        into an array. It will then do the following:
    1.    If the line begins with a '#' remove it from the array.
    2.    Whatever the extension after the entry (either .WORLD
                or .<DOMAIN_NAME>) only accept lines with the extension and
                remove everything after the '.'
    If your site/system uses a domain name instead of ".WORLD" as below,
        just change this to your requirement. I have purposely left the path
        to your tnsnames.ora file absent, so add your own.
*/

<?php
echo "<SELECT NAME=\"Databases\">\n";
$array_lines file("tnsnames.ora");
$num_lines count($array_lines);
for(
$i $i $num_lines ; ++$i 
{
   if (
substr($array_lines[$i],0,1) == "#") unset($array_lines[$i]);
   if (
$position strtoupper(strpos($array_lines[$i], ".WORLD")))
      {
         
$array_lines[$i] = strtoupper(substr($array_lines[$i],0,$position));
         echo 
"<OPTION VALUE=\"$array_lines[$i]\">$array_lines[$i]</option>\n";
      }
}
echo 
"</SELECT>";
?>
</FORM>

Comments or questions?
PX is running PHP 5.2.17
Thanks to Miranda Productions for hosting and bandwidth.
Use of any code from PX is at your own risk.