<?php

// (c) Copyright by authors of the Tiki Wiki CMS Groupware Project
//
// All Rights Reserved. See copyright.txt for details and a complete list of authors.
// Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
// $Id$
require_once('tiki-setup.php');
$access->check_feature('feature_invite');
$access->check_permission('tiki_p_invite');

require_once('lib/webmail/tikimaillib.php');

@ini_set('max_execution_time', 0);
$prefs['feature_wiki_protect_email'] = 'n'; //not to alter the email

/* csv format: lastname,firstname,mail */
/**
 * @param $bloc
 * @return array
 */
function parsemails_csv($bloc)
{
    $results = [];
    $lines = preg_split('/[\n\r]+/', $bloc);
    foreach ($lines as $line) {
        $l = explode(',', $line);
        $r = [];
        $r['lastname'] = trim($l[0]);
        $r['firstname'] = trim($l[1]);
        $r['email'] = trim($l[2]);
        if (strpos($r['email'], '@') !== false) {
            $results[] = $r;
        }
    }
    return $results;
}

/* everything format */
/**
 * @param $bloc
 * @return array
 */
function parsemails_all($bloc)
{
    $bloc = str_replace("\r\n", "\n", $bloc);
    $bloc = str_replace("\n\r", "\n", $bloc);
    $bloc = str_replace("\r", "\n", $bloc);
    $mails = preg_split('/[^a-zA-Z0-9@._-]/', $bloc);

    $results = [];
    foreach ($mails as $m) {
        $m = trim($m);
        if (strpos($m, '@') === false) {
            continue;
        }
        if (strpos($m, '.') === false) {
            continue;
        }
        $r = [];
        $r['lastname'] = '';
        $r['firstname'] = '';
        $r['email'] = $m;
        $results[] = $r;
    }
    return $results;
}

$previous = [];
$res = $tikilib->query("SELECT * FROM `tiki_invite` ORDER BY `ts` DESC");
while (is_array($row = $res->fetchRow())) {
    $row['datetime'] = strftime('%c', $row['ts']);
    $previous[$row['id']] = $row;
}
$smarty->assign('previous', $previous);

if (isset($_REQUEST['loadprevious']) && ! empty($_REQUEST['loadprevious']) && isset($previous[(int)$_REQUEST['loadprevious']])) {
    $prev = $previous[(int)$_REQUEST['loadprevious']];
    $res = $tikilib->query("SELECT * FROM `tiki_invited` WHERE id_invite=?", [(int)$_REQUEST['loadprevious']]);
    $prev_invited = "";
    while (is_array($row = $res->fetchRow())) {
        $prev_invited .= $row['lastname'] . ',' . $row['firstname'] . ',' . $row['email'] . "\n";
    }

    $_REQUEST['emailslist'] = $prev_invited;
    $_REQUEST['emailslist_format'] = 'csv';
    $_REQUEST['emailsubject'] = $prev['emailsubject'];
    $_REQUEST['emailcontent'] = $prev['emailcontent'];
    $_REQUEST['wikicontent'] = $prev['wikicontent'];
    $_REQUEST['wikipageafter'] = $prev['wikipageafter'];
    $_REQUEST['invitegroups'] = explode(',', $prev['groups']);
}

$user_details = $userlib->get_user_details($user);
$allgroups = $userlib->get_groups(0, -1, 'groupName_desc', '', '', 'n');
$invitegroups = [];
foreach ($allgroups['data'] as $agroup) {
    $invitegroups[$agroup['groupName']] = $agroup['groupDesc'];
}
$smarty->assign("invitegroups", $invitegroups);
$smarty->assign("usergroups", $user_details['groups']);


if (isset($_REQUEST['send'])) {
    $_text = $_REQUEST["emailcontent"];
    $_text = str_replace("\r\n", "\n", $_text);
    $_text = str_replace("\n\r", "\n", $_text);
    $_text = str_replace("\r", "\n", $_text);

    $mails = $_REQUEST["emailslist"];

    switch ($_REQUEST['emailslist_format']) {
        case 'all':
            $emails = parsemails_all($mails);
            break;
        case 'csv':
            $emails = parsemails_csv($mails);
            break;
        default:
            $emails = [];
    }

    $igroups = $_REQUEST['invitegroups'];

    if (! empty($_REQUEST['confirm'])) {
        $tikilib->query(
            "INSERT INTO `tiki_invite` (inviter, `groups`, ts, emailsubject,emailcontent,wikicontent,wikipageafter) VALUES (?,?,?,?,?,?,?)",
            [
                $user,
                count($igroups) ? implode(',', $igroups) : null,
                $tikilib->now,
                $_REQUEST['emailsubject'],
                $_REQUEST['emailcontent'],
                $_REQUEST['wikicontent'],
                empty($_REQUEST['wikipageafter']) ? null : $_REQUEST['wikipageafter'],
            ]
        );
        $res = $tikilib->query(
            "SELECT MAX(id) AS `id` FROM `tiki_invite` WHERE `inviter`=? AND `ts`=?",
            [$user, $tikilib->now]
        );
        $row = $res->fetchRow();
        $id = $row['id'];

        foreach ($emails as $m) {
            $tikilib->query(
                "INSERT INTO `tiki_invited` (id_invite, email, firstname, lastname, used) VALUES (?,?,?,?,?)",
                [$id, $m['email'], $m['firstname'], $m['lastname'], "no"]
            );
        }

        $_SERVER['SCRIPT_URI'] = empty($_SERVER['SCRIPT_URI']) ? 'http://' . $_SERVER['HTTP_HOST'] . $_SERVER['REQUEST_URI'] : $_SERVER['SCRIPT_URI'];
        foreach ($emails as $m) {
            $mail = new TikiMail();
            $mail->setFrom($prefs['sender_email']);
            $mail->setSubject($_REQUEST["emailsubject"]);
            $url = str_replace('tiki-invite.php', 'tiki-invited.php', $_SERVER['SCRIPT_URI'])
                . '?invite=' . $id . '&email=' . urlencode($m['email']);
            $text = $_text;
            $text = str_replace('{link}', $url, $text);
            $text = str_replace('{email}', $m['email'], $text);
            $text = str_replace('{firstname}', $m['firstname'], $text);
            $text = str_replace('{lastname}', $m['lastname'], $text);
            $mail->setText($text);
            $mail->send([$m['email']]);
        }

        $smarty->assign('sentresult', true);
    }
    $smarty->assign('emails', $emails);
}


$smarty->assign('mid', 'tiki-invite.tpl');
$smarty->display("tiki.tpl");