]> git.mxchange.org Git - quix0rs-gnu-social.git/blobdiff - xmppdaemon.php
make init of lang environment happen earlier, or when user language may have changed
[quix0rs-gnu-social.git] / xmppdaemon.php
index e5c5c20afb5af87a1e2021cf7cd4d26e7df08783..37b349f5889464bc2a13428f5fd06d79577e6943 100755 (executable)
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  */
 
+function xmppdaemon_error_handler($errno, $errstr, $errfile, $errline, $errcontext) {
+    switch ($errno) {
+     case E_USER_ERROR:
+       echo "ERROR: [$errno] $errstr ($errfile:$errline)\n";
+       echo "  Fatal error on line $errline in file $errfile";
+       echo ", PHP " . PHP_VERSION . " (" . PHP_OS . ")\n";
+       echo "Aborting...\n";
+       exit(1);
+       break;
+
+    case E_USER_WARNING:
+       echo "WARNING [$errno] $errstr ($errfile:$errline)\n";
+       break;
+
+     case E_USER_NOTICE:
+       echo "My NOTICE [$errno] $errstr ($errfile:$errline)\n";
+       break;
+
+     default:
+       echo "Unknown error type: [$errno] $errstr ($errfile:$errline)\n";
+       break;
+    }
+
+    /* Don't execute PHP internal error handler */
+    return true;
+}
+
+set_error_handler('xmppdaemon_error_handler');
+
 # Abort if called from a web server
 if (isset($_SERVER) && array_key_exists('REQUEST_METHOD', $_SERVER)) {
        print "This script must be run from the command line\n";
@@ -64,7 +93,7 @@ class XMPPDaemon {
                if (!$this->conn) {
                        return false;
                }
-           
+
                return !$this->conn->isDisconnected();
        }
 
@@ -99,6 +128,11 @@ class XMPPDaemon {
                }
        }
 
+       function handle_session($pl) {
+               # XXX what to do here?
+               return true;
+       }
+
        function get_user($from) {
                $user = User::staticGet('jabber', jabber_normalize_jid($from));
                return $user;
@@ -135,11 +169,33 @@ class XMPPDaemon {
                }
                if ($this->handle_command($user, $pl['body'])) {
                        return;
+               } else if ($this->is_autoreply($pl['body'])) {
+                       $this->log(LOG_INFO, 'Ignoring auto reply from ' . $from);
+                       return;
+               } else if ($this->is_otr($pl['body'])) {
+                       $this->log(LOG_INFO, 'Ignoring OTR from ' . $from);
+                       return;
                } else {
                        $this->add_notice($user, $pl);
                }
        }
 
+       function is_autoreply($txt) {
+               if (preg_match('/[\[\(]?[Aa]uto-?[Rr]eply[\]\)]/', $txt)) {
+                       return true;
+               } else {
+                       return false;
+               }
+       }
+
+       function is_otr($txt) {
+               if (preg_match('/^\?OTR/', $txt)) {
+                       return true;
+               } else {
+                       return false;
+               }
+       }
+       
        function from_site($address, $msg) {
                $text = '['.common_config('site', 'name') . '] ' . $msg;
                jabber_send_message($address, $text);
@@ -167,7 +223,7 @@ class XMPPDaemon {
                $result = $user->update($orig);
                if (!$id) {
                        $last_error = &PEAR::getStaticProperty('DB_DataObject','lastError');
-                       $this->log(LOG_ERROR,
+                       $this->log(LOG_ERR,
                                           'Could not set notify flag to ' . $notify .
                                           ' for user ' . common_log_objstring($user) .
                                           ': ' . $last_error->message);
@@ -178,32 +234,11 @@ class XMPPDaemon {
        }
 
        function add_notice(&$user, &$pl) {
-               $notice = new Notice();
-               $notice->profile_id = $user->id;
-               $notice->content = trim(substr($pl['body'], 0, 140));
-               $notice->created = DB_DataObject_Cast::dateTime();
-               $notice->query('BEGIN');
-               $id = $notice->insert();
-               if (!$id) {
-                       $last_error = &PEAR::getStaticProperty('DB_DataObject','lastError');
-                       $this->log(LOG_ERROR,
-                                          'Could not insert ' . common_log_objstring($notice) .
-                                          ' for user ' . common_log_objstring($user) .
-                                          ': ' . $last_error->message);
-                       return;
-               }
-               $orig = clone($notice);
-               $notice->uri = common_notice_uri($notice);
-               $result = $notice->update($orig);
-               if (!$result) {
-                       $last_error = &PEAR::getStaticProperty('DB_DataObject','lastError');
-                       $this->log(LOG_ERROR,
-                                          'Could not add URI to ' . common_log_objstring($notice) .
-                                          ' for user ' . common_log_objstring($user) .
-                                          ': ' . $last_error->message);
+               $notice = Notice::saveNew($user->id, trim(substr($pl['body'], 0, 140)), 'xmpp');
+               if (is_string($notice)) {
+                       $this->log(LOG_ERR, $notice);
                        return;
                }
-               $notice->query('COMMIT');
                common_real_broadcast($notice);
                $this->log(LOG_INFO,
                                   'Added notice ' . $notice->id . ' from user ' . $user->nickname);
@@ -228,7 +263,7 @@ class XMPPDaemon {
                        if (!$pl['type']) {
                                $user = User::staticGet('jabber', $from);
                                if (!$user) {
-                                       $this->log(LOG_WARNING, 'Message from unknown user ' . $from);
+                                       $this->log(LOG_WARNING, 'Presence from unknown user ' . $from);
                                        return;
                                }
                                if ($user->updatefrompresence) {
@@ -315,6 +350,7 @@ class XMPPDaemon {
 
        function clear_old_claims() {
                $qi = new Queue_item();
+               $qi->claimed = NULL;
                $qi->whereAdd('now() - claimed > '.CLAIM_TIMEOUT);
                $qi->update(DB_DATAOBJECT_WHEREADD_ONLY);
        }
@@ -323,7 +359,7 @@ class XMPPDaemon {
                $user = User::staticGet($notice->profile_id);
                return !$user;
        }
-       
+
        function confirmation_queue() {
            # $this->clear_old_confirm_claims();
                $this->log(LOG_INFO, 'checking for queued confirmations');
@@ -340,17 +376,17 @@ class XMPPDaemon {
                                                                  $user->nickname,
                                                                  $confirm->address);
                                if (!$success) {
-                                       $this->log(LOG_ERROR, 'Confirmation failed for ' . $confirm->address);
+                                       $this->log(LOG_ERR, 'Confirmation failed for ' . $confirm->address);
                                        # Just let the claim age out; hopefully things work then
                                        continue;
                                } else {
                                        $this->log(LOG_INFO, 'Confirmation sent for ' . $confirm->address);
                                        # Mark confirmation sent
                                        $original = clone($confirm);
-                                       $confirm->sent = DB_DataObject_Cast::dateTime();
+                                       $confirm->sent = $confirm->claimed;
                                        $result = $confirm->update($original);
                                        if (!$result) {
-                                               $this->log(LOG_ERROR, 'Cannot mark sent for ' . $confirm->address);
+                                               $this->log(LOG_ERR, 'Cannot mark sent for ' . $confirm->address);
                                                # Just let the claim age out; hopefully things work then
                                                continue;
                                        }
@@ -358,21 +394,24 @@ class XMPPDaemon {
                        }
                } while ($confirm);
        }
-       
+
        function next_confirm() {
                $confirm = new Confirm_address();
                $confirm->whereAdd('claimed IS NULL');
+               $confirm->whereAdd('sent IS NULL');
                # XXX: eventually we could do other confirmations in the queue, too
                $confirm->address_type = 'jabber';
                $confirm->orderBy('modified DESC');
                $confirm->limit(1);
                if ($confirm->find(TRUE)) {
                        $this->log(LOG_INFO, 'Claiming confirmation for ' . $confirm->address);
-                       $original = clone($confirm);
+                       # working around some weird DB_DataObject behaviour
+                       $confirm->whereAdd(''); # clears where stuff
+                       $original = clone($confirm);
                        $confirm->claimed = DB_DataObject_Cast::dateTime();
                        $result = $confirm->update($original);
                        if ($result) {
-                               $this->log(LOG_INFO, 'Succeeded in claim!');
+                               $this->log(LOG_INFO, 'Succeeded in claim! '. $result);
                                return $confirm;
                        } else {
                                $this->log(LOG_INFO, 'Failed in claim!');
@@ -381,13 +420,14 @@ class XMPPDaemon {
                }
                return NULL;
        }
-       
+
        function clear_old_confirm_claims() {
                $confirm = new Confirm();
+               $confirm->claimed = NULL;
                $confirm->whereAdd('now() - claimed > '.CLAIM_TIMEOUT);
                $confirm->update(DB_DATAOBJECT_WHEREADD_ONLY);
        }
-       
+
 }
 
 $resource = ($argc > 1) ? $argv[1] : NULL;