ar

[quix0rs-gnu-social.git] / lib / util.php

diff --git a/lib/util.php b/lib/util.php
index 448c049c04827ad98ab88b7aba2578da338856d7..96960430247d7b68defbba46cb2bf36d289ecbc3 100644 (file)
--- a/lib/util.php
+++ b/lib/util.php
@@ -150,6 +150,11 @@ function common_text($txt) {
        $xw->text($txt);
 }
 
+function common_raw($xml) {
+       global $xw;
+       $xw->writeRaw($xml);
+}
+
 function common_license_block() {
        global $config, $xw;
        common_element_start('p', 'license greenBg');
@@ -344,11 +349,48 @@ function common_canonical_email($email) {
        return $email;
 }
 
-function common_render_content($text) {
-       # XXX: @ messages
+define('URL_REGEX', '^|[ \t\r\n])((ftp|http|https|gopher|mailto|news|nntp|telnet|wais|file|prospero|aim|webcal):(([A-Za-z0-9$_.+!*(),;/?:@&~=-])|%[A-Fa-f0-9]{2}){2,}(#([a-zA-Z0-9][a-zA-Z0-9$_.+!*(),;/?:@&~=%-]*))?([A-Za-z0-9$_+!*();/?:~-]))');
+
+function common_render_content($text, $notice) {
+       $r = htmlspecialchars($text);
+       $id = $notice->profile_id;
+       $r = preg_replace('/(^|\b)@([\w-]+)($|\b)/e', "'\\1@'.common_at_link($id, '\\2').'\\3'", $r);
+#      $r = preg_replace('(^|\b)(https?|ftp)://[-A-Z0-9+&@#/%?=~_|!:,.;]*[-A-Z0-9+&@#/%=~_|]', '<a href="\0" class="extlink">\0</a>', $r);
        # XXX: # tags
        # XXX: machine tags
-       return htmlspecialchars($text);
+       return $r;
+}
+
+function common_at_link($sender_id, $nickname) {
+       # Try to find profiles this profile is subscribed to that have this nickname
+       $recipient = new Profile();
+       # XXX: chokety and bad
+       $recipient->whereAdd('EXISTS (SELECT subscribed from subscription where subscriber = '.$sender_id.' and subscribed = id)', 'AND');
+       $recipient->whereAdd('nickname = "' . trim($nickname) . '"', 'AND');
+       if ($recipient->find(TRUE)) {
+               return '<a href="'.htmlspecialchars($recipient->profileurl).'" class="atlink tolistenee">'.$nickname.'</a>';
+       }
+       # Try to find profiles that listen to this profile and that have this nickname
+       $recipient = new Profile();
+       # XXX: chokety and bad
+       $recipient->whereAdd('EXISTS (SELECT subscriber from subscription where subscribed = '.$sender_id.' and subscriber = id)', 'AND');
+       $recipient->whereAdd('nickname = "' . trim($nickname) . '"', 'AND');
+       if ($recipient->find(TRUE)) {
+               return '<a href="'.htmlspecialchars($recipient->profileurl).'" class="atlink tolistener">'.$nickname.'</a>';
+       }
+       # If this is a local user, try to find a local user with that nickname.
+       $sender = User::staticGet($sender_id);
+       if ($sender) {
+               $recipient_user = User::staticGet('nickname', $nickname);
+               if ($recipient_user) {
+                       $recipient = $recipient->getProfile();
+                       return '<a href="'.htmlspecialchars($recipient->profileurl).'" class="atlink usertouser">'.$nickname.'</a>';
+               }
+       }
+       # Otherwise, no links. @messages from local users to remote users,
+       # or from remote users to other remote users, are just
+       # outside our ability to make intelligent guesses about
+       return $nickname;
 }
 
 // where should the avatar go for this user?