8079a476b6
"Magic quotes" were removed in PHP 5.4, no need to mitigate it anymore. Avoid implode() with the join()-like order of arguments which was deprecated since PHP 7.4 and implicitly since PHP 5.3. Also avoid implode() with an implicit separator for stylistic reasons. mktime() with no arguments has been deprecated since PHP 5.1.
551 lines
15 KiB
PHP
551 lines
15 KiB
PHP
<?php
|
|
/**
|
|
* Prototype Castable Object.. for DataObject queries
|
|
*
|
|
* Storage for Data that may be cast into a variety of formats.
|
|
*
|
|
* PHP versions 4 and 5
|
|
*
|
|
* LICENSE: This source file is subject to version 3.01 of the PHP license
|
|
* that is available through the world-wide-web at the following URI:
|
|
* http://www.php.net/license/3_01.txt. If you did not receive a copy of
|
|
* the PHP License and are unable to obtain it through the web, please
|
|
* send a note to license@php.net so we can mail you a copy immediately.
|
|
*
|
|
* @category Database
|
|
* @package DB_DataObject
|
|
* @author Alan Knowles <alan@akbkhome.com>
|
|
* @copyright 1997-2008 The PHP Group
|
|
* @license http://www.php.net/license/3_01.txt PHP License 3.01
|
|
* @version CVS: $Id: Cast.php 287158 2009-08-12 13:58:31Z alan_k $
|
|
* @link http://pear.php.net/package/DB_DataObject
|
|
*/
|
|
|
|
/**
|
|
*
|
|
* Common usages:
|
|
* // blobs
|
|
* $data = DB_DataObject_Cast::blob($somefile);
|
|
* $data = DB_DataObject_Cast::string($somefile);
|
|
* $dataObject->someblobfield = $data
|
|
*
|
|
* // dates?
|
|
* $d1 = new DB_DataObject_Cast::date('12/12/2000');
|
|
* $d2 = new DB_DataObject_Cast::date(2000,12,30);
|
|
* $d3 = new DB_DataObject_Cast::date($d1->year, $d1->month+30, $d1->day+30);
|
|
*
|
|
* // time, datetime.. ?????????
|
|
*
|
|
* // raw sql????
|
|
* $data = DB_DataObject_Cast::sql('cast("123123",datetime)');
|
|
* $data = DB_DataObject_Cast::sql('NULL');
|
|
*
|
|
* // int's/string etc. are probably pretty pointless..!!!!
|
|
*
|
|
*
|
|
* inside DB_DataObject,
|
|
* if (is_a($v,'db_dataobject_class')) {
|
|
* $value .= $v->toString(DB_DATAOBJECT_INT,'mysql');
|
|
* }
|
|
*
|
|
*
|
|
*
|
|
*
|
|
|
|
*/
|
|
class DB_DataObject_Cast
|
|
{
|
|
|
|
/**
|
|
* Type of data Stored in the object..
|
|
*
|
|
* @var string (date|blob|.....?)
|
|
* @access public
|
|
*/
|
|
public $type;
|
|
|
|
/**
|
|
* Data For date representation
|
|
*
|
|
* @var int day/month/year
|
|
* @access public
|
|
*/
|
|
public $day;
|
|
public $month;
|
|
public $year;
|
|
|
|
|
|
/**
|
|
* Generic Data..
|
|
*
|
|
* @var string
|
|
* @access public
|
|
*/
|
|
|
|
public $value;
|
|
/**
|
|
* Data For time representation ** does not handle timezones!!
|
|
*
|
|
* @var int hour/minute/second
|
|
* @access public
|
|
*/
|
|
public $hour;
|
|
public $minute;
|
|
public $second;
|
|
|
|
/**
|
|
* Blob consructor
|
|
*
|
|
* create a Cast object from some raw data.. (binary)
|
|
*
|
|
*
|
|
* @param string (with binary data!)
|
|
*
|
|
* @return object DB_DataObject_Cast
|
|
* @access public
|
|
*/
|
|
|
|
public static function blob($value)
|
|
{
|
|
$r = new DB_DataObject_Cast;
|
|
$r->type = 'blob';
|
|
$r->value = $value;
|
|
return $r;
|
|
}
|
|
|
|
/**
|
|
* String consructor (actually use if for ints and everything else!!!
|
|
*
|
|
* create a Cast object from some string (not binary)
|
|
*
|
|
*
|
|
* @param string (with binary data!)
|
|
*
|
|
* @return object DB_DataObject_Cast
|
|
* @access public
|
|
*/
|
|
|
|
public static function string($value)
|
|
{
|
|
$r = new DB_DataObject_Cast;
|
|
$r->type = 'string';
|
|
$r->value = $value;
|
|
return $r;
|
|
}
|
|
|
|
/**
|
|
* SQL constructor (for raw SQL insert)
|
|
*
|
|
* create a Cast object from some sql
|
|
*
|
|
* @param string (with binary data!)
|
|
*
|
|
* @return object DB_DataObject_Cast
|
|
* @access public
|
|
*/
|
|
|
|
public static function sql($value)
|
|
{
|
|
$r = new DB_DataObject_Cast;
|
|
$r->type = 'sql';
|
|
$r->value = $value;
|
|
return $r;
|
|
}
|
|
|
|
/**
|
|
* DateTime Constructor
|
|
*
|
|
* create a Cast object from a Date/Time
|
|
* Maybe should accept a Date object.!
|
|
* NO VALIDATION DONE, although some crappy re-calcing done!
|
|
*
|
|
* @param vargs... accepts
|
|
* noargs (now)
|
|
* yyyy-mm-dd HH:MM:SS (Iso)
|
|
* array(yyyy,mm,dd,HH,MM,SS)
|
|
*
|
|
*
|
|
* @return bool|object
|
|
* @access public
|
|
* @author therion 5 at hotmail
|
|
*/
|
|
|
|
public static function dateTime()
|
|
{
|
|
$args = func_get_args();
|
|
switch (count($args)) {
|
|
case 0: // no args = now!
|
|
$datetime = date('Y-m-d G:i:s', time());
|
|
// no break
|
|
|
|
case 1:
|
|
// continue on from 0 args.
|
|
if (!isset($datetime)) {
|
|
$datetime = $args[0];
|
|
}
|
|
|
|
$parts = explode(' ', $datetime);
|
|
$bits = explode('-', $parts[0]);
|
|
$bits = array_merge($bits, explode(':', $parts[1]));
|
|
break;
|
|
|
|
default: // 2 or more..
|
|
$bits = $args;
|
|
|
|
}
|
|
|
|
if (count($bits) != 6) {
|
|
// PEAR ERROR?
|
|
return false;
|
|
}
|
|
|
|
$r = DB_DataObject_Cast::date($bits[0], $bits[1], $bits[2]);
|
|
if (!$r) {
|
|
return $r; // pass thru error (False) - doesnt happen at present!
|
|
}
|
|
// change the type!
|
|
$r->type = 'datetime';
|
|
|
|
// should we mathematically sort this out..
|
|
// (or just assume that no-one's dumb enough to enter 26:90:90 as a time!
|
|
$r->hour = $bits[3];
|
|
$r->minute = $bits[4];
|
|
$r->second = $bits[5];
|
|
return $r;
|
|
}
|
|
|
|
/**
|
|
* Date Constructor
|
|
*
|
|
* create a Cast object from some string (not binary)
|
|
* NO VALIDATION DONE, although some crappy re-calcing done!
|
|
*
|
|
* @param vargs... accepts
|
|
* dd/mm
|
|
* dd/mm/yyyy
|
|
* yyyy-mm
|
|
* yyyy-mm-dd
|
|
* array(yyyy,dd)
|
|
* array(yyyy,dd,mm)
|
|
*
|
|
*
|
|
*
|
|
* @return object DB_DataObject_Cast
|
|
* @access public
|
|
*/
|
|
|
|
public static function date()
|
|
{
|
|
$args = func_get_args();
|
|
switch (count($args)) {
|
|
case 0: // no args = today!
|
|
$bits = explode('-', date('Y-m-d'));
|
|
break;
|
|
case 1: // one arg = a string
|
|
|
|
if (strpos($args[0], '/') !== false) {
|
|
$bits = array_reverse(explode('/', $args[0]));
|
|
} else {
|
|
$bits = explode('-', $args[0]);
|
|
}
|
|
break;
|
|
default: // 2 or more..
|
|
$bits = $args;
|
|
}
|
|
if (count($bits) == 1) { // if YYYY set day = 1st..
|
|
$bits[] = 1;
|
|
}
|
|
|
|
if (count($bits) == 2) { // if YYYY-DD set day = 1st..
|
|
$bits[] = 1;
|
|
}
|
|
|
|
// if year < 1970 we cant use system tools to check it...
|
|
// so we make a few best gueses....
|
|
// basically do date calculations for the year 2000!!!
|
|
// fix me if anyone has more time...
|
|
if (($bits[0] < 1975) || ($bits[0] > 2030)) {
|
|
$oldyear = $bits[0];
|
|
$bits = explode('-', date('Y-m-d', mktime(1, 1, 1, $bits[1], $bits[2], 2000)));
|
|
$bits[0] = ($bits[0] - 2000) + $oldyear;
|
|
} else {
|
|
// now mktime
|
|
$bits = explode('-', date('Y-m-d', mktime(1, 1, 1, $bits[1], $bits[2], $bits[0])));
|
|
}
|
|
$r = new DB_DataObject_Cast;
|
|
$r->type = 'date';
|
|
list($r->year, $r->month, $r->day) = $bits;
|
|
return $r;
|
|
}
|
|
|
|
/**
|
|
* time Constructor
|
|
*
|
|
* create a Cast object from a Date/Time
|
|
* Maybe should accept a Date object.!
|
|
* NO VALIDATION DONE, and no-recalcing done!
|
|
*
|
|
* @param vargs... accepts
|
|
* noargs (now)
|
|
* HH:MM:SS (Iso)
|
|
* array(HH,MM,SS)
|
|
*
|
|
*
|
|
* @return bool|object
|
|
* @access public
|
|
* @author therion 5 at hotmail
|
|
*/
|
|
public static function time()
|
|
{
|
|
$args = func_get_args();
|
|
switch (count($args)) {
|
|
case 0: // no args = now!
|
|
$time = date('G:i:s', time());
|
|
// no break
|
|
|
|
case 1:
|
|
// continue on from 0 args.
|
|
if (!isset($time)) {
|
|
$time = $args[0];
|
|
}
|
|
$bits = explode(':', $time);
|
|
break;
|
|
|
|
default: // 2 or more..
|
|
$bits = $args;
|
|
|
|
}
|
|
|
|
if (count($bits) != 3) {
|
|
return false;
|
|
}
|
|
|
|
// now take data from bits into object fields
|
|
$r = new DB_DataObject_Cast;
|
|
$r->type = 'time';
|
|
$r->hour = $bits[0];
|
|
$r->minute = $bits[1];
|
|
$r->second = $bits[2];
|
|
return $r;
|
|
}
|
|
|
|
|
|
/**
|
|
* get the string to use in the SQL statement for this...
|
|
*
|
|
*
|
|
* @param bool $to Type (DB_DATAOBJECT_*
|
|
* @param object $db DB Connection Object
|
|
*
|
|
*
|
|
* @return string
|
|
* @access public
|
|
*/
|
|
|
|
public function toString($to = false, $db)
|
|
{
|
|
// if $this->type is not set, we are in serious trouble!!!!
|
|
// values for to:
|
|
$method = 'toStringFrom' . $this->type;
|
|
return $this->$method($to, $db);
|
|
}
|
|
|
|
/**
|
|
* get the string to use in the SQL statement from a blob of binary data
|
|
* ** Suppots only blob->postgres::bytea
|
|
*
|
|
* @param int $to Type (DB_DATAOBJECT_*
|
|
* @param object $db DB Connection Object
|
|
*
|
|
*
|
|
* @return string
|
|
* @access public
|
|
*/
|
|
public function toStringFromBlob($to, $db)
|
|
{
|
|
// first weed out invalid casts..
|
|
// in blobs can only be cast to blobs.!
|
|
|
|
// perhaps we should support TEXT fields???
|
|
|
|
if (!($to & DB_DATAOBJECT_BLOB)) {
|
|
return (new PEAR)->raiseError('Invalid Cast from a DB_DataObject_Cast::blob to something other than a blob!');
|
|
}
|
|
|
|
switch ($db->dsn["phptype"]) {
|
|
case 'pgsql':
|
|
return "'" . pg_escape_bytea($this->value) . "'::bytea";
|
|
|
|
case 'mysql':
|
|
return "'" . mysql_real_escape_string($this->value, $db->connection) . "'";
|
|
|
|
case 'mysqli':
|
|
// this is funny - the parameter order is reversed ;)
|
|
return "'" . mysqli_real_escape_string($db->connection, $this->value) . "'";
|
|
|
|
case 'sqlite':
|
|
// this is funny - the parameter order is reversed ;)
|
|
return "'" . sqlite_escape_string($this->value) . "'";
|
|
|
|
case 'mssql':
|
|
|
|
if (is_numeric($this->value)) {
|
|
return $this->value;
|
|
}
|
|
$unpacked = unpack('H*hex', $this->value);
|
|
return '0x' . $unpacked['hex'];
|
|
|
|
|
|
default:
|
|
return (new PEAR)->raiseError("DB_DataObject_Cast cant handle blobs for Database:{$db->dsn['phptype']} Yet");
|
|
}
|
|
}
|
|
|
|
/**
|
|
* get the string to use in the SQL statement for a blob from a string!
|
|
* ** Suppots only string->postgres::bytea
|
|
*
|
|
*
|
|
* @param int $to Type (DB_DATAOBJECT_*
|
|
* @param object $db DB Connection Object
|
|
*
|
|
*
|
|
* @return string
|
|
* @access public
|
|
*/
|
|
public function toStringFromString($to, $db)
|
|
{
|
|
// first weed out invalid casts..
|
|
// in blobs can only be cast to blobs.!
|
|
|
|
// perhaps we should support TEXT fields???
|
|
//
|
|
|
|
// $to == a string field which is the default type (0)
|
|
// so we do not test it here. - we assume that number fields
|
|
// will accept a string?? - which is stretching it a bit ...
|
|
// should probaly add that test as some point.
|
|
|
|
switch ($db->dsn['phptype']) {
|
|
case 'pgsql':
|
|
return "'" . pg_escape_string($this->value) . "'::bytea";
|
|
|
|
case 'mysql':
|
|
return "'" . mysql_real_escape_string($this->value, $db->connection) . "'";
|
|
|
|
|
|
case 'mysqli':
|
|
return "'" . mysqli_real_escape_string($db->connection, $this->value) . "'";
|
|
|
|
case 'mssql':
|
|
// copied from the old DB mssql code...?? not sure how safe this is.
|
|
return "'" . str_replace(
|
|
array("'", "\\\r\n", "\\\n"),
|
|
array("''", "\\\\\r\n\r\n", "\\\\\n\n"),
|
|
$this->value
|
|
) . "'";
|
|
|
|
|
|
default:
|
|
return (new PEAR)->raiseError("DB_DataObject_Cast cant handle blobs for Database:{$db->dsn['phptype']} Yet");
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* get the string to use in the SQL statement for a date
|
|
*
|
|
*
|
|
*
|
|
* @param int $to Type (DB_DATAOBJECT_*
|
|
* @param object $db DB Connection Object
|
|
*
|
|
*
|
|
* @return string
|
|
* @access public
|
|
*/
|
|
public function toStringFromDate($to, $db)
|
|
{
|
|
// first weed out invalid casts..
|
|
// in blobs can only be cast to blobs.!
|
|
// perhaps we should support TEXT fields???
|
|
//
|
|
|
|
if (($to !== false) && !($to & DB_DATAOBJECT_DATE)) {
|
|
return (new PEAR)->raiseError('Invalid Cast from a DB_DataObject_Cast::string to something other than a date!' .
|
|
' (why not just use native features)');
|
|
}
|
|
return "'{$this->year}-{$this->month}-{$this->day}'";
|
|
}
|
|
|
|
/**
|
|
* get the string to use in the SQL statement for a datetime
|
|
*
|
|
*
|
|
*
|
|
* @param int $to Type (DB_DATAOBJECT_*
|
|
* @param object $db DB Connection Object
|
|
*
|
|
*
|
|
* @return string
|
|
* @access public
|
|
* @author therion 5 at hotmail
|
|
*/
|
|
|
|
public function toStringFromDateTime($to, $db)
|
|
{
|
|
// first weed out invalid casts..
|
|
// in blobs can only be cast to blobs.!
|
|
// perhaps we should support TEXT fields???
|
|
if (($to !== false) &&
|
|
!($to & (DB_DATAOBJECT_DATE + DB_DATAOBJECT_TIME))) {
|
|
return (new PEAR)->raiseError('Invalid Cast from a ' .
|
|
' DB_DataObject_Cast::dateTime to something other than a datetime!' .
|
|
' (try using native features)');
|
|
}
|
|
return "'{$this->year}-{$this->month}-{$this->day} {$this->hour}:{$this->minute}:{$this->second}'";
|
|
}
|
|
|
|
/**
|
|
* get the string to use in the SQL statement for a time
|
|
*
|
|
*
|
|
*
|
|
* @param int $to Type (DB_DATAOBJECT_*
|
|
* @param object $db DB Connection Object
|
|
*
|
|
*
|
|
* @return string
|
|
* @access public
|
|
* @author therion 5 at hotmail
|
|
*/
|
|
|
|
public function toStringFromTime($to, $db)
|
|
{
|
|
// first weed out invalid casts..
|
|
// in blobs can only be cast to blobs.!
|
|
// perhaps we should support TEXT fields???
|
|
if (($to !== false) && !($to & DB_DATAOBJECT_TIME)) {
|
|
return (new PEAR)->raiseError('Invalid Cast from a' .
|
|
' DB_DataObject_Cast::time to something other than a time!' .
|
|
' (try using native features)');
|
|
}
|
|
return "'{$this->hour}:{$this->minute}:{$this->second}'";
|
|
}
|
|
|
|
/**
|
|
* get the string to use in the SQL statement for a raw sql statement.
|
|
*
|
|
* @param int $to Type (DB_DATAOBJECT_*
|
|
* @param object $db DB Connection Object
|
|
*
|
|
*
|
|
* @return string
|
|
* @access public
|
|
*/
|
|
public function toStringFromSql($to, $db)
|
|
{
|
|
return $this->value;
|
|
}
|
|
}
|