Some basic PHP calls for use in Delphi for PHP or pure PHP

Ξ April 1st, 2007 | → | ∇ Delphi for PHP |

I was doing some coding today and couldn’t find some routines I’ve used often in the past. Since I had to search for them, obeying my rule, they get posted here. Maybe they can be of use to others. These are examples I’ve written and once I’ve collected and customized. I’ve not put comments in most of these routines, sorry.

(THIS IS A LIVING POST AND WILL CHANGE PERIODICALY AS I DIG UP OTHER COMMON ROUTINES)

Clean an array of all vulnerabilities:

PLAIN TEXT

PHP:

function strip_and_slash_deep($value) {
return is_array($value) ?
array_map(’strip_and_slash_deep’, $value) :
strip_tags($value);
addslashes($value);
}

Use:

PLAIN TEXT

PHP:

$protected_post_vars = array();
$protected_post_vars = strip_and_slash_deep($_POST);

My print_r replacement to print an array in full depth:

PLAIN TEXT

PHP:

function print_array($array) {
if (is_array($array))
{
reset($array);
while (list($key, $val) = each($array))
{
if (is_array($val))
{
while (list($akey,$aval) = each($val))
{
$array[$key][$akey] = strip_tags($aval);
echo “Array: “.$key . “=” . htmlspecialchars($array[$key][$akey]).“<br/>”;
}
}
else
{
$array[$key] = strip_tags($val);
echo “Val: “ .$key . “=” . htmlspecialchars($array[$key]).“<br/>”;
}
}
}
else print($array);
}

Basic structure for using PHP to connect to an interbase or firebird database:

PLAIN TEXT

PHP:

function ib_execsql ($sql) {
$aresult = array();
$fulldbpath = “localhost:d:\blah.gdb”;
$username = “sysdba”;
$password = “masterkey”;
$ib = ibase_connect ($fulldbpath, $username, $password,‘NONE’, ‘100′, ‘1′);
if ($ib===false) echo “No Connection”;
$result = @ibase_query ($ib, $sql);
if ($result===false) echo “<hr/>Error ‘”.ibase_errmsg().“‘ while executing ‘”. $sql.“‘<hr/>”;
while ($row = ibase_fetch_row ($result)) $aresult[] = $row;
ibase_close ($ib);
return $aresult;
}

use:

PLAIN TEXT

PHP:

$array = ib_execsql(“select * from whatever”);
print_array($array);

Run a single query across many databases on the same MySQL server:

PLAIN TEXT

PHP:

function execdbsql ($databasename) {
$link = mysql_connect(‘SERVERNAME’, “USER”, “PASS”);
if (!$link) {
die(‘Could not connect: ‘ . mysql_error());
}
mysql_select_db ( $databasename );
$result = mysql_query(‘SELECT desiredfield FROM tablename where field="keyvalue"’);
if (!$result) {
return; // Don’t error out just skip this database.
}
echo mysql_result($result, 0).“<br/>”;
mysql_close($link);
}
echo “Values:<br/>”;
execdbsql (‘firstdb’);
execdbsql (’seconddb’);
execdbsql (‘thirddb’);

5 Responses to ' Some basic PHP calls for use in Delphi for PHP or pure PHP '

Subscribe to comments with RSS or TrackBack to ' Some basic PHP calls for use in Delphi for PHP or pure PHP '.

Stuart Kelly said,

on April 1st, 2007 at 7:48 pm

$protected_post_vars = strip_and_slash_deep($HTTP_POST_VARS);

May I suggest that the example should be $protected_post_vars = strip_and_slash_deep($_POST);

Since $HTTP_POST_VARS is depreciated in PHP 5 and will be removed in PHP 6
Brian said,

on April 1st, 2007 at 9:32 pm

Done Stu, and thanks for the Tip!
OneNerd said,

on April 1st, 2007 at 9:48 pm

Excellent! Thanks for the post -- I will cross post this article on my blog as well, as I personally find it helpful.
Firebird News » Some basic PHP calls for use in Delphi for PHP or pure PHP said,

on April 4th, 2007 at 10:25 am

[...] I’ve used often in the past. Since I had to search for them, obeying my rule, they get posted here. Maybe they can be of use to others. Permalink | Share (digg, etc): [...]
Some useful PHP Code Snippets : OneNerd’s Software Company said,

on April 21st, 2007 at 5:11 pm

[...] Some excellent PHP code snippets at the code cave blog to use in your Delphi for PHP coding: http://www.thecodecave.com/article363 [...]

The Code Cave