Merge branch 'master' into groups

[friendica.git] / include / datetime.php

diff --git a/include/datetime.php b/include/datetime.php
index 3033b88afc816238ea7e0e4ada4b86fa92576c5b..087e6cb20dc2f1879838be38204544dea2444eb9 100644 (file)
--- a/include/datetime.php
+++ b/include/datetime.php
@@ -393,3 +393,57 @@ function cal($y = 0,$m = 0, $links = false, $class='') {
   
   return $o;
 }}
+
+
+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` ");
+       if(count($r)) {
+               foreach($r as $rr) {
+
+                       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
+                        * to contain a sparkle link and perhaps a photo. 
+                        *
+                        */
+                        
+                       $bdtext = t('Birthday:') . ' [url=' . $rr['url'] . ']' . $rr['name'] . '[/url]' ;
+
+
+                       $r = q("INSERT INTO `event` (`uid`,`cid`,`created`,`edited`,`start`,`finish`,`desc`,`type`,`adjust`)
+                               VALUES ( %d, %d, '%s', '%s', '%s', '%s', '%s', '%s', '%d' ) ",
+                               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),
+                               dbesc('birthday'),
+                               intval(0)
+                       );
+                       
+
+                       // update bdyear
+
+                       q("UPDATE `contact` SET `bdyear` = '%s', `bd` = '%s' WHERE `uid` = %d AND `id` = %d LIMIT 1",
+                               dbesc(substr($nextbd,0,4)),
+                               dbesc($nextbd),
+                               intval($rr['uid']),
+                               intval($rr['id'])
+                       );
+
+               }
+       }
+}
\ No newline at end of file