function qtranxf_dbg_log_if($condition, $msg, $var = 'novar', $bt = false, $exit = false)
{
if ($condition) {
qtranxf_dbg_log($msg, $var, $bt, $exit);
}
}
function qtranxf_tst_log($msg, $var = 'novar', $bt = false, $exit = false)
{
qtranxf_dbg_log($msg, $var, $bt, $exit);
}
function qtranxf_strftime($format, $date, $default = '', $before = '', $after = '')
{
// don't do anything if format is not given
if ($format == '') {
return $default;
}
// add date suffix ability (%q) to strftime
$day = intval(ltrim(strftime("%d", $date), '0'));
$search = array();
$replace = array();
// date S
$search[] = '/(([^%])%q|^%q)/';
if ($day == 1 || $day == 21 || $day == 31) {
$replace[] = '$2st';
} elseif ($day == 2 || $day == 22) {
$replace[] = '$2nd';
} elseif ($day == 3 || $day == 23) {
$replace[] = '$2rd';
} else {
$replace[] = '$2th';
}
$search[] = '/(([^%])%E|^%E)/';
$replace[] = '${2}' . $day;
// date j
$search[] = '/(([^%])%f|^%f)/';
$replace[] = '${2}' . date('w', $date);
// date w
$search[] = '/(([^%])%F|^%F)/';
$replace[] = '${2}' . date('z', $date);
// date z
$search[] = '/(([^%])%i|^%i)/';
$replace[] = '${2}' . date('n', $date);
// date i
$search[] = '/(([^%])%J|^%J)/';
$replace[] = '${2}' . date('t', $date);
// date t
$search[] = '/(([^%])%k|^%k)/';
$replace[] = '${2}' . date('L', $date);
// date L
$search[] = '/(([^%])%K|^%K)/';
$replace[] = '${2}' . date('B', $date);
// date B
$search[] = '/(([^%])%l|^%l)/';
$replace[] = '${2}' . date('g', $date);
// date g
$search[] = '/(([^%])%L|^%L)/';
$replace[] = '${2}' . date('G', $date);
// date G
$search[] = '/(([^%])%N|^%N)/';
$replace[] = '${2}' . date('u', $date);
// date u
$search[] = '/(([^%])%Q|^%Q)/';
$replace[] = '${2}' . date('e', $date);
// date e
$search[] = '/(([^%])%o|^%o)/';
$replace[] = '${2}' . date('I', $date);
// date I
$search[] = '/(([^%])%O|^%O)/';
$replace[] = '${2}' . date('O', $date);
// date O
$search[] = '/(([^%])%s|^%s)/';
$replace[] = '${2}' . date('P', $date);
// date P
$search[] = '/(([^%])%v|^%v)/';
$replace[] = '${2}' . date('T', $date);
// date T
$search[] = '/(([^%])%1|^%1)/';
$replace[] = '${2}' . date('Z', $date);
// date Z
$search[] = '/(([^%])%2|^%2)/';
$replace[] = '${2}' . date('c', $date);
// date c
$search[] = '/(([^%])%3|^%3)/';
$replace[] = '${2}' . date('r', $date);
// date r
$search[] = '/(([^%])%4|^%4)/';
$replace[] = '${2}' . $date;
// date U
$format = preg_replace($search, $replace, $format);
qtranxf_dbg_log('qtranxf_strftime: $format=' . $format . '; $date=', $date);
return $before . strftime($format, $date) . $after;
}
