2010-07-01 19:48:07 -04:00
< ? php
2016-02-03 13:48:09 -05:00
/**
* @ file include / datetime . php
* @ brief Some functions for date and time related tasks .
*/
2010-07-01 19:48:07 -04:00
2017-01-17 14:21:46 -05:00
use \Friendica\Core\Config ;
2010-09-27 03:38:26 -04:00
2016-02-03 13:48:09 -05:00
/**
* @ brief Two - level sort for timezones .
*
* @ param string $a
* @ param string $b
* @ return int
*/
2010-07-01 19:48:07 -04:00
function timezone_cmp ( $a , $b ) {
if ( strstr ( $a , '/' ) && strstr ( $b , '/' )) {
2010-09-29 21:11:23 -04:00
if ( t ( $a ) == t ( $b )) return 0 ;
return ( t ( $a ) < t ( $b )) ? - 1 : 1 ;
2010-07-01 19:48:07 -04:00
}
if ( strstr ( $a , '/' )) return - 1 ;
if ( strstr ( $b , '/' )) return 1 ;
2010-08-16 00:49:29 -04:00
if ( t ( $a ) == t ( $b )) return 0 ;
2016-02-03 13:48:09 -05:00
2010-08-16 00:49:29 -04:00
return ( t ( $a ) < t ( $b )) ? - 1 : 1 ;
2016-02-03 13:48:09 -05:00
}
2010-07-01 19:48:07 -04:00
2016-02-03 13:48:09 -05:00
/**
* @ brief Emit a timezone selector grouped ( primarily ) by continent
*
* @ param string $current Timezone
* @ return string Parsed HTML output
*/
2010-07-01 19:48:07 -04:00
function select_timezone ( $current = 'America/Los_Angeles' ) {
$timezone_identifiers = DateTimeZone :: listIdentifiers ();
2014-03-11 18:52:32 -04:00
2010-07-01 19:48:07 -04:00
$o = '<select id="timezone_select" name="timezone">' ;
usort ( $timezone_identifiers , 'timezone_cmp' );
$continent = '' ;
foreach ( $timezone_identifiers as $value ) {
$ex = explode ( " / " , $value );
if ( count ( $ex ) > 1 ) {
if ( $ex [ 0 ] != $continent ) {
if ( $continent != '' )
$o .= '</optgroup>' ;
$continent = $ex [ 0 ];
2010-08-16 00:49:29 -04:00
$o .= '<optgroup label="' . t ( $continent ) . '">' ;
2010-07-01 19:48:07 -04:00
}
if ( count ( $ex ) > 2 )
$city = substr ( $value , strpos ( $value , '/' ) + 1 );
else
$city = $ex [ 1 ];
}
else {
$city = $ex [ 0 ];
2010-09-29 21:11:23 -04:00
if ( $continent != t ( 'Miscellaneous' )) {
2010-07-01 19:48:07 -04:00
$o .= '</optgroup>' ;
2010-09-29 21:11:23 -04:00
$continent = t ( 'Miscellaneous' );
2015-10-17 04:48:13 -04:00
$o .= '<optgroup label="' . t ( $continent ) . '">' ;
2010-07-01 19:48:07 -04:00
}
}
2010-08-16 00:49:29 -04:00
$city = str_replace ( '_' , ' ' , t ( $city ));
2010-07-01 19:48:07 -04:00
$selected = (( $value == $current ) ? " selected= \" selected \" " : " " );
$o .= " <option value= \" $value\ " $selected > $city </ option > " ;
2015-10-17 04:48:13 -04:00
}
2010-07-01 19:48:07 -04:00
$o .= '</optgroup></select>' ;
return $o ;
2016-02-03 13:48:09 -05:00
}
2010-07-01 19:48:07 -04:00
2016-02-03 13:48:09 -05:00
/**
* @ brief Generating a Timezone selector
*
* Return a select using 'field_select_raw' template , with timezones
* groupped ( primarily ) by continent
2016-02-07 19:59:05 -05:00
* arguments follow convetion as other field_ * template array :
* 'name' , 'label' , $value , 'help'
2016-02-03 13:48:09 -05:00
*
* @ param string $name Name of the selector
* @ param string $label Label for the selector
* @ param string $current Timezone
* @ param string $help Help text
*
* @ return string Parsed HTML
*/
2012-01-02 14:09:25 -05:00
function field_timezone ( $name = 'timezone' , $label = '' , $current = 'America/Los_Angeles' , $help ){
$options = select_timezone ( $current );
$options = str_replace ( '<select id="timezone_select" name="timezone">' , '' , $options );
$options = str_replace ( '</select>' , '' , $options );
2015-10-17 04:48:13 -04:00
2012-01-02 14:09:25 -05:00
$tpl = get_markup_template ( 'field_select_raw.tpl' );
return replace_macros ( $tpl , array (
'$field' => array ( $name , $label , $current , $help , $options ),
));
2015-10-17 04:48:13 -04:00
2016-02-03 13:48:09 -05:00
}
2010-07-01 19:48:07 -04:00
2016-02-03 13:48:09 -05:00
/**
* @ brief General purpose date parse / convert function .
*
* @ param string $from Source timezone
* @ param string $to Dest timezone
* @ param string $s Some parseable date / time string
* @ param string $fmt Output format recognised from php ' s DateTime class
* http :// www . php . net / manual / en / datetime . format . php
*
2016-02-05 19:08:10 -05:00
* @ return string Formatted date according to given format
2016-02-03 13:48:09 -05:00
*/
2010-07-01 19:48:07 -04:00
function datetime_convert ( $from = 'UTC' , $to = 'UTC' , $s = 'now' , $fmt = " Y-m-d H:i:s " ) {
2010-09-08 23:14:17 -04:00
2012-04-08 21:09:21 -04:00
// Defaults to UTC if nothing is set, but throws an exception if set to empty string.
// Provide some sane defaults regardless.
2012-04-08 21:01:49 -04:00
2012-04-08 21:09:21 -04:00
if ( $from === '' )
2012-04-08 21:01:49 -04:00
$from = 'UTC' ;
2012-04-08 21:09:21 -04:00
if ( $to === '' )
2012-04-08 21:01:49 -04:00
$to = 'UTC' ;
2012-06-13 14:41:53 -04:00
if ( ( $s === '' ) || ( ! is_string ( $s )) )
2012-04-08 21:09:21 -04:00
$s = 'now' ;
2012-04-08 21:01:49 -04:00
2010-09-08 23:14:17 -04:00
// Slight hackish adjustment so that 'zero' datetime actually returns what is intended
2011-06-29 06:54:29 -04:00
// otherwise we end up with -0001-11-30 ...
2015-10-17 04:48:13 -04:00
// add 32 days so that we at least get year 00, and then hack around the fact that
// months and days always start with 1.
2010-09-08 23:14:17 -04:00
if ( substr ( $s , 0 , 10 ) == '0000-00-00' ) {
$d = new DateTime ( $s . ' + 32 days' , new DateTimeZone ( 'UTC' ));
return str_replace ( '1' , '0' , $d -> format ( $fmt ));
}
2012-07-16 00:00:11 -04:00
try {
$from_obj = new DateTimeZone ( $from );
}
catch ( Exception $e ) {
$from_obj = new DateTimeZone ( 'UTC' );
}
try {
$d = new DateTime ( $s , $from_obj );
}
catch ( Exception $e ) {
logger ( 'datetime_convert: exception: ' . $e -> getMessage ());
$d = new DateTime ( 'now' , $from_obj );
}
try {
$to_obj = new DateTimeZone ( $to );
}
catch ( Exception $e ) {
$to_obj = new DateTimeZone ( 'UTC' );
}
$d -> setTimeZone ( $to_obj );
2016-02-05 19:08:10 -05:00
2010-09-08 23:14:17 -04:00
return ( $d -> format ( $fmt ));
2016-02-03 13:48:09 -05:00
}
2012-07-16 00:00:11 -04:00
2010-09-27 03:38:26 -04:00
2016-02-03 13:48:09 -05:00
/**
* @ brief Wrapper for date selector , tailored for use in birthday fields .
*
* @ param string $dob Date of Birth
2016-06-10 05:24:38 -04:00
* @ return string Formatted html
2016-02-03 13:48:09 -05:00
*/
2010-07-10 10:09:57 -04:00
function dob ( $dob ) {
list ( $year , $month , $day ) = sscanf ( $dob , '%4d-%2d-%2d' );
2016-02-03 13:48:09 -05:00
2011-07-25 23:59:25 -04:00
$f = get_config ( 'system' , 'birthday_input_format' );
if ( ! $f )
$f = 'ymd' ;
2015-05-22 12:53:18 -04:00
if ( $dob === '0000-00-00' )
$value = '' ;
else
$value = (( $year ) ? datetime_convert ( 'UTC' , 'UTC' , $dob , 'Y-m-d' ) : datetime_convert ( 'UTC' , 'UTC' , $dob , 'm-d' ));
2016-02-03 13:48:09 -05:00
2016-06-10 05:24:38 -04:00
$age = (( intval ( $value )) ? age ( $value , $a -> user [ " timezone " ], $a -> user [ " timezone " ]) : " " );
$o = replace_macros ( get_markup_template ( " field_input.tpl " ), array (
'$field' => array (
'dob' ,
t ( 'Birthday:' ),
$value ,
((( intval ( $age )) > 0 ) ? t ( 'Age: ' ) . $age : " " ),
'' ,
'placeholder="' . t ( 'YYYY-MM-DD or MM-DD' ) . '"'
)
));
2016-02-03 13:48:09 -05:00
2015-05-22 12:53:18 -04:00
// if ($dob && $dob != '0000-00-00')
// $o = datesel($f,mktime(0,0,0,0,0,1900),mktime(),mktime(0,0,0,$month,$day,$year),'dob');
// else
// $o = datesel($f,mktime(0,0,0,0,0,1900),mktime(),false,'dob');
2016-02-03 13:48:09 -05:00
2011-07-25 23:59:25 -04:00
return $o ;
}
2015-05-22 12:53:18 -04:00
/**
2016-02-03 13:48:09 -05:00
* @ brief Returns a date selector
*
* @ param string $format
* Format string , e . g . 'ymd' or 'mdy' . Not currently supported
* @ param string $min
* Unix timestamp of minimum date
* @ param string $max
* Unix timestap of maximum date
* @ param string $default
* Unix timestamp of default date
* @ param string $id
* ID and name of datetimepicker ( defaults to " datetimepicker " )
*
* @ return string Parsed HTML output .
2015-05-22 12:53:18 -04:00
*/
function datesel ( $format , $min , $max , $default , $id = 'datepicker' ) {
2016-06-13 04:19:38 -04:00
return datetimesel ( $format , $min , $max , $default , '' , $id , true , false , '' , '' );
2016-02-03 13:48:09 -05:00
}
2010-07-01 19:48:07 -04:00
2015-05-22 12:53:18 -04:00
/**
2016-02-03 13:48:09 -05:00
* @ brief Returns a time selector
*
* @ param string $format
* Format string , e . g . 'ymd' or 'mdy' . Not currently supported
2015-05-22 12:53:18 -04:00
* @ param $h
2016-02-03 13:48:09 -05:00
* Already selected hour
2015-05-22 12:53:18 -04:00
* @ param $m
2016-02-03 13:48:09 -05:00
* Already selected minute
* @ param string $id
* ID and name of datetimepicker ( defaults to " timepicker " )
*
* @ return string Parsed HTML output .
2015-05-22 12:53:18 -04:00
*/
function timesel ( $format , $h , $m , $id = 'timepicker' ) {
2016-06-13 04:19:38 -04:00
return datetimesel ( $format , new DateTime (), new DateTime (), new DateTime ( " $h : $m " ), '' , $id , false , true );
2016-02-03 13:48:09 -05:00
}
2011-06-06 22:59:20 -04:00
2015-05-22 12:53:18 -04:00
/**
* @ brief Returns a datetime selector .
*
2016-02-03 13:48:09 -05:00
* @ param string $format
2015-05-22 12:53:18 -04:00
* format string , e . g . 'ymd' or 'mdy' . Not currently supported
2016-02-03 13:48:09 -05:00
* @ param string $min
2015-05-22 12:53:18 -04:00
* unix timestamp of minimum date
2016-02-03 13:48:09 -05:00
* @ param string $max
2015-05-22 12:53:18 -04:00
* unix timestap of maximum date
2016-02-03 13:48:09 -05:00
* @ param string $default
2015-05-22 12:53:18 -04:00
* unix timestamp of default date
* @ param string $id
* id and name of datetimepicker ( defaults to " datetimepicker " )
2016-02-03 13:48:09 -05:00
* @ param bool $pickdate
2015-05-22 12:53:18 -04:00
* true to show date picker ( default )
* @ param boolean $picktime
* true to show time picker ( default )
* @ param $minfrom
* set minimum date from picker with id $minfrom ( none by default )
* @ param $maxfrom
* set maximum date from picker with id $maxfrom ( none by default )
2016-02-03 13:48:09 -05:00
* @ param bool $required default false
*
2015-05-22 12:53:18 -04:00
* @ return string Parsed HTML output .
2015-10-17 04:48:13 -04:00
*
2015-05-22 12:53:18 -04:00
* @ todo Once browser support is better this could probably be replaced with
* native HTML5 date picker .
*/
2016-06-13 04:19:38 -04:00
function datetimesel ( $format , $min , $max , $default , $label , $id = 'datetimepicker' , $pickdate = true , $picktime = true , $minfrom = '' , $maxfrom = '' , $required = false ) {
2011-06-06 22:59:20 -04:00
2015-10-17 04:48:13 -04:00
// First day of the week (0 = Sunday)
$firstDay = get_pconfig ( local_user (), 'system' , 'first_day_of_week' );
if ( $firstDay === false ) $firstDay = 0 ;
$lang = substr ( get_browser_language (), 0 , 2 );
// Check if the detected language is supported by the picker
2017-01-17 14:21:46 -05:00
if ( ! in_array ( $lang , array ( " ar " , " ro " , " id " , " bg " , " fa " , " ru " , " uk " , " en " , " el " , " de " , " nl " , " tr " , " fr " , " es " , " th " , " pl " , " pt " , " ch " , " se " , " kr " , " it " , " da " , " no " , " ja " , " vi " , " sl " , " cs " , " hu " ))) {
$lang = Config :: get ( 'system' , 'language' , 'en' );
}
2015-10-17 04:48:13 -04:00
2015-05-22 12:53:18 -04:00
$o = '' ;
$dateformat = '' ;
2016-02-03 13:48:09 -05:00
2015-05-22 12:53:18 -04:00
if ( $pickdate ) $dateformat .= 'Y-m-d' ;
if ( $pickdate && $picktime ) $dateformat .= ' ' ;
if ( $picktime ) $dateformat .= 'H:i' ;
2016-02-03 13:48:09 -05:00
2015-05-22 12:53:18 -04:00
$minjs = $min ? " ,minDate: new Date( { $min -> getTimestamp () } *1000), yearStart: " . $min -> format ( 'Y' ) : '' ;
$maxjs = $max ? " ,maxDate: new Date( { $max -> getTimestamp () } *1000), yearEnd: " . $max -> format ( 'Y' ) : '' ;
2015-10-17 04:48:13 -04:00
2016-06-16 14:16:16 -04:00
$input_text = $default ? date ( $dateformat , $default -> getTimestamp ()) : '' ;
2015-05-22 12:53:18 -04:00
$defaultdatejs = $default ? " ,defaultDate: new Date( { $default -> getTimestamp () } *1000) " : '' ;
2016-02-03 13:48:09 -05:00
2015-05-22 12:53:18 -04:00
$pickers = '' ;
if ( ! $pickdate ) $pickers .= ',datepicker: false' ;
if ( ! $picktime ) $pickers .= ',timepicker: false' ;
2016-02-03 13:48:09 -05:00
2015-05-22 12:53:18 -04:00
$extra_js = '' ;
2015-10-17 04:48:13 -04:00
$pickers .= " ,dayOfWeekStart: " . $firstDay . " ,lang:' " . $lang . " ' " ;
if ( $minfrom != '' )
2016-06-16 14:16:16 -04:00
$extra_js .= " \$ ('#id_ $minfrom ').data('xdsoft_datetimepicker').setOptions( { onChangeDateTime: function (currentDateTime) { \$ ('#id_ $id ').data('xdsoft_datetimepicker').setOptions( { minDate: currentDateTime})}}) " ;
2015-10-17 04:48:13 -04:00
if ( $maxfrom != '' )
2016-06-13 04:19:38 -04:00
$extra_js .= " \$ ('#id_ $maxfrom ').data('xdsoft_datetimepicker').setOptions( { onChangeDateTime: function (currentDateTime) { \$ ('#id_ $id ').data('xdsoft_datetimepicker').setOptions( { maxDate: currentDateTime})}}) " ;
2016-02-03 13:48:09 -05:00
2015-05-22 12:53:18 -04:00
$readable_format = $dateformat ;
$readable_format = str_replace ( 'Y' , 'yyyy' , $readable_format );
$readable_format = str_replace ( 'm' , 'mm' , $readable_format );
$readable_format = str_replace ( 'd' , 'dd' , $readable_format );
$readable_format = str_replace ( 'H' , 'HH' , $readable_format );
$readable_format = str_replace ( 'i' , 'MM' , $readable_format );
2016-02-03 13:48:09 -05:00
2016-06-13 04:19:38 -04:00
$tpl = get_markup_template ( 'field_input.tpl' );
$o .= replace_macros ( $tpl , array (
2016-06-16 14:16:16 -04:00
'$field' => array ( $id , $label , $input_text , '' , (( $required ) ? '*' : '' ), 'placeholder="' . $readable_format . '"' ),
2016-06-13 04:19:38 -04:00
));
2016-06-17 08:27:33 -04:00
2015-10-17 04:48:13 -04:00
$o .= " <script type='text/javascript'> " ;
2016-06-13 04:19:38 -04:00
$o .= " \$ (function () { var picker = \$ ('#id_ $id ').datetimepicker( { step:5,format:' $dateformat ' $minjs $maxjs $pickers $defaultdatejs }); $extra_js }) " ;
2015-10-17 04:48:13 -04:00
$o .= " </script> " ;
2011-06-06 22:59:20 -04:00
2016-02-03 13:48:09 -05:00
return $o ;
}
2010-07-01 19:48:07 -04:00
2016-02-03 13:48:09 -05:00
/**
* @ brief Returns a relative date string .
*
* Implements " 3 seconds ago " etc .
* Based on $posted_date , ( UTC ) .
* Results relative to current timezone .
* Limited to range of timestamps .
*
2016-11-01 02:04:59 -04:00
* @ param string $posted_date MySQL - formatted date string ( YYYY - MM - DD HH : MM : SS )
2016-02-03 13:48:09 -05:00
* @ param string $format ( optional ) Parsed with sprintf ()
* < tt >% 1 $d % 2 $s ago </ tt > , e . g . 22 hours ago , 1 minute ago
2016-10-28 05:54:26 -04:00
*
2016-02-03 13:48:09 -05:00
* @ return string with relative date
*/
2016-10-28 05:54:26 -04:00
function relative_date ( $posted_date , $format = null ) {
2010-07-01 19:48:07 -04:00
2016-10-28 05:54:26 -04:00
$localtime = $posted_date . ' UTC' ;
2010-07-01 19:48:07 -04:00
2010-08-16 00:49:29 -04:00
$abs = strtotime ( $localtime );
2015-10-17 04:48:13 -04:00
if ( is_null ( $posted_date ) || $posted_date === '0000-00-00 00:00:00' || $abs === False ) {
2011-06-29 06:05:09 -04:00
return t ( 'never' );
}
2011-06-29 06:54:29 -04:00
$etime = time () - $abs ;
2015-10-17 04:48:13 -04:00
2010-08-16 00:49:29 -04:00
if ( $etime < 1 ) {
return t ( 'less than a second ago' );
}
2015-10-17 04:48:13 -04:00
2010-08-16 00:49:29 -04:00
$a = array ( 12 * 30 * 24 * 60 * 60 => array ( t ( 'year' ), t ( 'years' )),
2011-06-29 06:54:29 -04:00
30 * 24 * 60 * 60 => array ( t ( 'month' ), t ( 'months' )),
7 * 24 * 60 * 60 => array ( t ( 'week' ), t ( 'weeks' )),
24 * 60 * 60 => array ( t ( 'day' ), t ( 'days' )),
60 * 60 => array ( t ( 'hour' ), t ( 'hours' )),
60 => array ( t ( 'minute' ), t ( 'minutes' )),
1 => array ( t ( 'second' ), t ( 'seconds' ))
2010-08-16 00:49:29 -04:00
);
2015-10-17 04:48:13 -04:00
2010-08-16 00:49:29 -04:00
foreach ( $a as $secs => $str ) {
2012-02-12 20:15:09 -05:00
$d = $etime / $secs ;
if ( $d >= 1 ) {
$r = round ( $d );
// translators - e.g. 22 hours ago, 1 minute ago
2016-11-01 02:04:59 -04:00
if ( ! $format ) {
2012-06-02 05:30:26 -04:00
$format = t ( '%1$d %2$s ago' );
2016-10-28 05:54:26 -04:00
}
2010-07-10 01:47:32 -04:00
2016-11-01 02:04:59 -04:00
return sprintf ( $format , $r , (( $r == 1 ) ? $str [ 0 ] : $str [ 1 ]));
2016-02-03 13:48:09 -05:00
}
}
}
2010-09-27 03:38:26 -04:00
2016-02-03 13:48:09 -05:00
/**
* @ brief Returns timezone correct age in years .
*
* Returns the age in years , given a date of birth , the timezone of the person
* whose date of birth is provided , and the timezone of the person viewing the
* result .
*
* Why ? Bear with me . Let ' s say I live in Mittagong , Australia , and my birthday
* is on New Year ' s . You live in San Bruno , California .
* When exactly are you going to see my age increase ?
*
* A : 5 : 00 AM Dec 31 San Bruno time . That ' s precisely when I start celebrating
* and become a year older . If you wish me happy birthday on January 1
* ( San Bruno time ), you ' ll be a day late .
*
* @ param string $dob Date of Birth
* @ param string $owner_tz ( optional ) Timezone of the person of interest
* @ param string $viewer_tz ( optional ) Timezone of the person viewing
*
2016-02-05 19:08:10 -05:00
* @ return int Age in years
2016-02-03 13:48:09 -05:00
*/
2010-07-10 01:47:32 -04:00
function age ( $dob , $owner_tz = '' , $viewer_tz = '' ) {
2010-07-11 07:54:39 -04:00
if ( ! intval ( $dob ))
2010-07-10 01:47:32 -04:00
return 0 ;
if ( ! $owner_tz )
$owner_tz = date_default_timezone_get ();
if ( ! $viewer_tz )
$viewer_tz = date_default_timezone_get ();
$birthdate = datetime_convert ( 'UTC' , $owner_tz , $dob . ' 00:00:00+00:00' , 'Y-m-d' );
list ( $year , $month , $day ) = explode ( " - " , $birthdate );
$year_diff = datetime_convert ( 'UTC' , $viewer_tz , 'now' , 'Y' ) - $year ;
$curr_month = datetime_convert ( 'UTC' , $viewer_tz , 'now' , 'm' );
$curr_day = datetime_convert ( 'UTC' , $viewer_tz , 'now' , 'd' );
if (( $curr_month < $month ) || (( $curr_month == $month ) && ( $curr_day < $day )))
$year_diff -- ;
2016-02-03 13:48:09 -05:00
2010-07-10 01:47:32 -04:00
return $year_diff ;
}
2011-02-22 23:08:15 -05:00
2016-02-03 13:48:09 -05:00
/**
* @ brief Get days of a month in a given year .
*
* Returns number of days in the month of the given year .
* $m = 1 is 'January' to match human usage .
*
* @ param int $y Year
* @ param int $m Month ( 1 = January , 12 = December )
*
* @ return int Number of days in the given month
*/
2011-02-22 23:08:15 -05:00
function get_dim ( $y , $m ) {
2016-02-03 13:48:09 -05:00
$dim = array ( 0 ,
31 , 28 , 31 , 30 , 31 , 30 ,
31 , 31 , 30 , 31 , 30 , 31 );
2011-02-22 23:08:15 -05:00
2016-02-03 13:48:09 -05:00
if ( $m != 2 )
return $dim [ $m ];
2011-02-22 23:08:15 -05:00
2016-02-03 13:48:09 -05:00
if (((( $y % 4 ) == 0 ) && (( $y % 100 ) != 0 )) || (( $y % 400 ) == 0 ))
return 29 ;
2011-02-22 23:08:15 -05:00
2016-02-03 13:48:09 -05:00
return $dim [ 2 ];
}
2011-02-22 23:08:15 -05:00
2016-02-03 13:48:09 -05:00
/**
* @ brief Returns the first day in month for a given month , year .
*
* Months start at 1.
*
* @ param int $y Year
* @ param int $m Month ( 1 = January , 12 = December )
*
* @ return string day 0 = Sunday through 6 = Saturday
*/
function get_first_dim ( $y , $m ) {
$d = sprintf ( '%04d-%02d-01 00:00' , intval ( $y ), intval ( $m ));
2011-02-22 23:08:15 -05:00
2016-02-03 13:48:09 -05:00
return datetime_convert ( 'UTC' , 'UTC' , $d , 'w' );
}
2011-02-22 23:08:15 -05:00
2016-02-03 13:48:09 -05:00
/**
* @ brief Output a calendar for the given month , year .
*
* If $links are provided ( array ), e . g . $links [ 12 ] => 'http://mylink' ,
* date 12 will be linked appropriately . Today ' s date is also noted by
* altering td class .
* Months count from 1.
*
* @ param int $y Year
* @ param int $m Month
* @ param bool $links ( default false )
* @ param string $class
*
* @ return string
*
* @ todo Provide ( prev , next ) links , define class variations for different size calendars
*/
2011-06-06 23:17:36 -04:00
function cal ( $y = 0 , $m = 0 , $links = false , $class = '' ) {
2011-02-22 23:08:15 -05:00
// month table - start at 1 to match human usage.
$mtab = array ( ' ' ,
2016-02-03 13:48:09 -05:00
'January' , 'February' , 'March' ,
'April' , 'May' , 'June' ,
'July' , 'August' , 'September' ,
'October' , 'November' , 'December'
2015-10-17 04:48:13 -04:00
);
2011-02-22 23:08:15 -05:00
$thisyear = datetime_convert ( 'UTC' , date_default_timezone_get (), 'now' , 'Y' );
$thismonth = datetime_convert ( 'UTC' , date_default_timezone_get (), 'now' , 'm' );
if ( ! $y )
$y = $thisyear ;
if ( ! $m )
$m = intval ( $thismonth );
2016-02-03 13:48:09 -05:00
$dn = array ( 'Sunday' , 'Monday' , 'Tuesday' , 'Wednesday' , 'Thursday' , 'Friday' , 'Saturday' );
$f = get_first_dim ( $y , $m );
$l = get_dim ( $y , $m );
$d = 1 ;
$dow = 0 ;
$started = false ;
2011-02-22 23:08:15 -05:00
2016-02-03 13:48:09 -05:00
if (( $y == $thisyear ) && ( $m == $thismonth ))
$tddate = intval ( datetime_convert ( 'UTC' , date_default_timezone_get (), 'now' , 'j' ));
2011-02-22 23:08:15 -05:00
$str_month = day_translate ( $mtab [ $m ]);
2016-02-03 13:48:09 -05:00
$o = '<table class="calendar' . $class . '">' ;
$o .= " <caption> $str_month $y </caption><tr> " ;
for ( $a = 0 ; $a < 7 ; $a ++ )
$o .= '<th>' . mb_substr ( day_translate ( $dn [ $a ]), 0 , 3 , 'UTF-8' ) . '</th>' ;
$o .= '</tr><tr>' ;
while ( $d <= $l ) {
if (( $dow == $f ) && ( ! $started ))
$started = true ;
$today = ((( isset ( $tddate )) && ( $tddate == $d )) ? " class= \" today \" " : '' );
$o .= " <td $today > " ;
$day = str_replace ( ' ' , ' ' , sprintf ( '%2.2d' , $d ));
if ( $started ) {
if ( is_array ( $links ) && isset ( $links [ $d ]))
$o .= " <a href= \" { $links [ $d ] } \" > $day </a> " ;
else
$o .= $day ;
2011-10-14 03:20:37 -04:00
2016-02-03 13:48:09 -05:00
$d ++ ;
} else {
$o .= ' ' ;
}
$o .= '</td>' ;
$dow ++ ;
if (( $dow == 7 ) && ( $d <= $l )) {
$dow = 0 ;
$o .= '</tr><tr>' ;
}
}
if ( $dow )
for ( $a = $dow ; $a < 7 ; $a ++ )
$o .= '<td> </td>' ;
2011-10-14 03:20:37 -04:00
2016-02-03 13:48:09 -05:00
$o .= '</tr></table>' . " \r \n " ;
return $o ;
}
/**
* @ brief Create a birthday event .
*
* Update the year and the birthday .
*/
2011-10-14 03:20:37 -04:00
function update_contact_birthdays () {
// This only handles foreign or alien networks where a birthday has been provided.
// In-network birthdays are handled within local_delivery
$r = q ( " SELECT * FROM contact WHERE `bd` != '' AND `bd` != '0000-00-00' AND SUBSTRING(`bd`,1,4) != `bdyear` " );
2016-12-14 03:42:36 -05:00
if ( dbm :: is_result ( $r )) {
2016-12-20 15:13:50 -05:00
foreach ( $r as $rr ) {
2011-10-14 03:20:37 -04:00
logger ( 'update_contact_birthday: ' . $rr [ 'bd' ]);
$nextbd = datetime_convert ( 'UTC' , 'UTC' , 'now' , 'Y' ) . substr ( $rr [ 'bd' ], 4 );
/**
*
* Add new birthday event for this person
*
* $bdtext is just a readable placeholder in case the event is shared
* with others . We will replace it during presentation to our $importer
2015-10-17 04:48:13 -04:00
* to contain a sparkle link and perhaps a photo .
2011-10-14 03:20:37 -04:00
*
*/
2015-10-17 04:48:13 -04:00
2012-06-26 00:37:38 -04:00
$bdtext = sprintf ( t ( '%s\'s birthday' ), $rr [ 'name' ]);
2012-06-26 00:39:07 -04:00
$bdtext2 = sprintf ( t ( 'Happy Birthday %s' ), ' [url=' . $rr [ 'url' ] . ']' . $rr [ 'name' ] . '[/url]' ) ;
2011-10-14 03:20:37 -04:00
2012-06-26 00:37:38 -04:00
$r = q ( " INSERT INTO `event` (`uid`,`cid`,`created`,`edited`,`start`,`finish`,`summary`,`desc`,`type`,`adjust`)
VALUES ( % d , % d , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%d' ) " ,
2011-10-14 03:20:37 -04:00
intval ( $rr [ 'uid' ]),
intval ( $rr [ 'id' ]),
dbesc ( datetime_convert ()),
dbesc ( datetime_convert ()),
dbesc ( datetime_convert ( 'UTC' , 'UTC' , $nextbd )),
dbesc ( datetime_convert ( 'UTC' , 'UTC' , $nextbd . ' + 1 day ' )),
dbesc ( $bdtext ),
2012-06-26 00:37:38 -04:00
dbesc ( $bdtext2 ),
2011-10-14 03:20:37 -04:00
dbesc ( 'birthday' ),
intval ( 0 )
);
2014-03-11 18:52:32 -04:00
2011-10-14 03:20:37 -04:00
// update bdyear
2014-03-11 18:52:32 -04:00
q ( " UPDATE `contact` SET `bdyear` = '%s', `bd` = '%s' WHERE `uid` = %d AND `id` = %d " ,
2011-10-14 03:20:37 -04:00
dbesc ( substr ( $nextbd , 0 , 4 )),
dbesc ( $nextbd ),
intval ( $rr [ 'uid' ]),
intval ( $rr [ 'id' ])
);
}
}
2012-01-02 14:09:25 -05:00
}