#!/usr/bin/php5 -q
<?php
/***************************************************************************
 *  Copyright (C) 2003-2014 Polytechnique.org                              *
 *  http://opensource.polytechnique.org/                                   *
 *                                                                         *
 *  This program is free software; you can redistribute it and/or modify   *
 *  it under the terms of the GNU General Public License as published by   *
 *  the Free Software Foundation; either version 2 of the License, or      *
 *  (at your option) any later version.                                    *
 *                                                                         *
 *  This program is distributed in the hope that it will be useful,        *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
 *  GNU General Public License for more details.                           *
 *                                                                         *
 *  You should have received a copy of the GNU General Public License      *
 *  along with this program; if not, write to the Free Software            *
 *  Foundation, Inc.,                                                      *
 *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
 ***************************************************************************/

// Updates the gapps_accounts table with Plat/al information.
// Cleans-up the job queue, and execute post-queue hooks.

require_once 'connect.db.inc.php';
require_once 'plmailer.php';
require_once 'googleapps.inc.php';
if (!$globals->mailstorage->googleapps_domain) {
  exit;
}

/* Updates the l_userid parameter for newer user accounts. */
$res = XDB::iterator(
    "SELECT  g.g_account_name, s.uid
       FROM  gapps_accounts AS g
  LEFT JOIN  email_source_account AS s ON (s.email = g.g_account_name AND s.type = 'forlife')
      WHERE  (g.l_userid IS NULL OR g.l_userid <= 0) AND s.uid IS NOT NULL");
while ($account = $res->next()) {
    XDB::execute(
        "UPDATE  gapps_accounts
            SET  l_userid = {?}
          WHERE  g_account_name = {?}",
        $account['uid'], $account['g_account_name']);
}

/* Emits a warning for GApps accounts without local uid. */
$res = XDB::iterator(
    "SELECT  g.g_account_name
       FROM  gapps_accounts AS g
  LEFT JOIN  email_source_account AS s ON (s.email = g.g_account_name AND s.type = 'forlife')
      WHERE  (g.l_userid IS NULL OR g.l_userid <= 0) AND s.uid IS NULL");
while ($account = $res->next()) {
    if (!preg_match("/^admin-/", $account['g_account_name'])) {
        printf("Warning: GApps account '%s' has no local uid.\n", $account['g_account_name']);
    }
}

/* Updates the l_userid parameter for newer nicknames. */
$res = XDB::iterator(
    "SELECT  g.g_account_name, s.uid
       FROM  gapps_nicknames AS g
  LEFT JOIN  email_source_account AS s ON (s.email = g.g_account_name AND s.type = 'forlife')
      WHERE  (g.l_userid IS NULL or g.l_userid <= 0) AND s.uid IS NOT NULL
   GROUP BY  g_account_name");
while ($nickname = $res->next()) {
    XDB::execute(
        "UPDATE  gapps_nicknames
            SET  l_userid = {?}
          WHERE  g_account_name = {?}",
        $nickname['uid'], $nickname['g_account_name']);
}

/* Emits a warning for nicknames without local uid. */
$res = XDB::iterator(
    "SELECT  g.g_account_name
       FROM  gapps_nicknames AS g
  LEFT JOIN  email_source_account AS s ON (s.email = g.g_account_name AND s.type = 'forlife')
      WHERE  (g.l_userid IS NULL OR g.l_userid <= 0) AND s.uid IS NULL");
while ($nickname = $res->next()) {
    if (!preg_match("/^admin-/", $nickname['g_account_name'])) {
        printf("Warning: Nickname '%s' has no local uid.\n", $nickname['g_account_name']);
    }
}

/* Checks that all nicknames have been synchronized to GoogleApps. Creates the
   missing ones. */
$res = XDB::iterator(
    "SELECT  g.l_userid AS id, s1.email AS username, s2.email AS nickname
       FROM  gapps_accounts AS g
 INNER JOIN  email_source_account AS s1 ON (s1.uid = g.l_userid AND s1.type = 'forlife')
 INNER JOIN  email_source_account AS s2 ON (s2.uid = g.l_userid AND s2.type = 'alias')
  LEFT JOIN  gapps_nicknames AS n ON (n.l_userid = g.l_userid AND n.g_nickname = s2.email)
      WHERE  g.g_status = 'active' AND n.g_nickname IS NULL AND g.l_userid IS NOT NULL");
while ($nickname = $res->next()) {
    // Checks that the requested nickname doesn't look like a regular forlife;
    // we might run in troubler later if we don't keep the two repos. If we need
    // to add a forlife-looking nickname at some point, we'll do it manually.
    if (!preg_match('/^[-a-z]+\.[-a-z]+\.\d{4}$/', $nickname['nickname'])) {
        $pending_tasks = XDB::fetchOneCell(
            "SELECT  COUNT(*)
               FROM  gapps_queue
              WHERE  q_recipient_id = {?} AND p_status = 'idle' AND j_type = 'n_create' AND j_parameters = {?}",
            $nickname['id'], json_encode($nickname));
        if ($pending_tasks == 0) {
            XDB::execute(
                "INSERT  INTO gapps_queue
                    SET  q_recipient_id = {?}, p_entry_date = NOW(), p_notbefore_date = NOW(),
                         p_priority = 'offline', j_type = 'n_create', j_parameters = {?}",
                $nickname['id'], json_encode($nickname));
        }
    }
}

/* Checks that all nicknames in GoogleApps are also aliases on plat/al side.
   Deletes the invalid ones. */
$res = XDB::iterator(
    "SELECT  g.l_userid AS id, g.g_nickname AS nickname
       FROM  gapps_nicknames AS g
  LEFT JOIN  email_source_account AS s ON (s.uid = g.l_userid AND s.type = 'alias' AND s.email = g.g_nickname)
      WHERE  g.l_userid IS NOT NULL AND s.email IS NULL");
while ($nickname = $res->next()) {
    $pending_tasks = XDB::fetchOneCell(
        "SELECT  COUNT(*)
           FROM  gapps_queue
          WHERE  q_recipient_id = {?} AND p_status = 'idle' AND j_type = 'n_delete' AND j_parameters = {?}",
        $nickname['id'], json_encode($nickname));
    if ($pending_tasks == 0) {
        XDB::execute(
            "INSERT  INTO gapps_queue
                SET  q_recipient_id = {?}, p_entry_date = NOW(), p_notbefore_date = NOW(),
                     p_priority = 'offline', j_type = 'n_delete', j_parameters = {?}",
            $nickname['id'], json_encode($nickname));
    }
}

/* Retrieves successful job queues for post-queue processing. */
$res = XDB::iterator(
    "SELECT  q_id, q_recipient_id, j_type, j_parameters
       FROM  gapps_queue
      WHERE  p_status = 'success' AND q_recipient_id IS NOT NULL");
while ($job = $res->next()) {
    if ($job['j_type'] == 'u_create') {
        post_queue_u_create($job);
    } else if ($job['j_type'] == 'u_update') {
        post_queue_u_update($job);
    }
}

/* Removes successful jobs, and old failed jobs. */
XDB::execute(
    "DELETE  FROM gapps_queue
      WHERE  p_status = 'success' OR
             (p_status = 'hardfail' AND p_end_date < DATE_SUB(NOW(), INTERVAL 15 DAY))");

// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
?>