<?php
/**
 * @brief Dotclear post record helpers
 *
 * This class adds new methods to database post results.
 * You can call them on every record comming from dcBlog::getPosts and similar
 * methods.
 *
 * @warning You should not give the first argument (usualy $rs) of every described function.
 *
 * @package Dotclear
 * @subpackage Core
 *
 * @copyright Olivier Meunier & Association Dotclear
 * @copyright GPL-2.0-only
 */

if (!defined('DC_RC_PATH')) {return;}

class rsExtPost
{
    /**
    Returns whether post is editable.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function isEditable($rs)
    {
        # If user is admin or contentadmin, true
        if ($rs->core->auth->check('contentadmin', $rs->core->blog->id)) {
            return true;
        }

        # No user id in result ? false
        if (!$rs->exists('user_id')) {
            return false;
        }

        # If user is usage and owner of the entrie
        if ($rs->core->auth->check('usage', $rs->core->blog->id)
            && $rs->user_id == $rs->core->auth->userID()) {
            return true;
        }

        return false;
    }

    /**
    Returns whether post is deletable

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function isDeletable($rs)
    {
        # If user is admin, or contentadmin, true
        if ($rs->core->auth->check('contentadmin', $rs->core->blog->id)) {
            return true;
        }

        # No user id in result ? false
        if (!$rs->exists('user_id')) {
            return false;
        }

        # If user has delete rights and is owner of the entrie
        if ($rs->core->auth->check('delete', $rs->core->blog->id)
            && $rs->user_id == $rs->core->auth->userID()) {
            return true;
        }

        return false;
    }

    /**
    Returns whether post is the first one of its day.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function firstPostOfDay($rs)
    {
        if ($rs->isStart()) {
            return true;
        }

        $cdate = date('Ymd', strtotime($rs->post_dt));
        $rs->movePrev();
        $ndate = date('Ymd', strtotime($rs->post_dt));
        $rs->moveNext();
        return $ndate != $cdate;
    }

    /**
    Returns whether post is the last one of its day.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function lastPostOfDay($rs)
    {
        if ($rs->isEnd()) {
            return true;
        }

        $cdate = date('Ymd', strtotime($rs->post_dt));
        $rs->moveNext();
        $ndate = date('Ymd', strtotime($rs->post_dt));
        $rs->movePrev();
        return $ndate != $cdate;
    }

    /**
    Returns whether comments are enabled on post.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function commentsActive($rs)
    {
        return
        $rs->core->blog->settings->system->allow_comments
        && $rs->post_open_comment
            && ($rs->core->blog->settings->system->comments_ttl == 0 ||
            time() - ($rs->core->blog->settings->system->comments_ttl * 86400) < $rs->getTS());
    }

    /**
    Returns whether trackbacks are enabled on post.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function trackbacksActive($rs)
    {
        return
        $rs->core->blog->settings->system->allow_trackbacks
        && $rs->post_open_tb
            && ($rs->core->blog->settings->system->trackbacks_ttl == 0 ||
            time() - ($rs->core->blog->settings->system->trackbacks_ttl * 86400) < $rs->getTS());
    }

    /**
    Returns whether post has at least one comment.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function hasComments($rs)
    {
        return $rs->nb_comment > 0;
    }

    /**
    Returns whether post has at least one trackbacks.

    @return    <b>boolean</b>
     */
    public static function hasTrackbacks($rs)
    {
        return $rs->nb_trackback > 0;
    }

    /**
    Returns whether post has been updated since publication.

    @return <b>boolean</b>
     */
    public static function isRepublished($rs)
    {
        return ($rs->getTS('upddt') + dt::getTimeOffset($rs->post_tz)) > $rs->getTS();
    }

    /**
    Returns full post URL.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getURL($rs)
    {
        return $rs->core->blog->url . $rs->core->getPostPublicURL(
            $rs->post_type, html::sanitizeURL($rs->post_url)
        );
    }

    /**
    Returns full post category URL.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getCategoryURL($rs)
    {
        return $rs->core->blog->url . $rs->core->url->getURLFor('category', html::sanitizeURL($rs->cat_url));
    }

    /**
    Returns whether post has an excerpt.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function isExtended($rs)
    {
        return $rs->post_excerpt_xhtml != '';
    }

    /**
    Returns post timestamp.

    @param    rs    Invisible parameter
    @param    type    <b>string</b>        (dt|upddt|creadt) defaults to post_dt
    @return    <b>integer</b>
     */
    public static function getTS($rs, $type = '')
    {
        if ($type == 'upddt') {
            return strtotime($rs->post_upddt);
        } elseif ($type == 'creadt') {
            return strtotime($rs->post_creadt);
        } else {
            return strtotime($rs->post_dt);
        }
    }

    /**
    Returns post date formating according to the ISO 8601 standard.

    @param    rs    Invisible parameter
    @param    type    <b>string</b>        (dt|upddt|creadt) defaults to post_dt
    @return    <b>string</b>
     */
    public static function getISO8601Date($rs, $type = '')
    {
        if ($type == 'upddt' || $type == 'creadt') {
            return dt::iso8601($rs->getTS($type) + dt::getTimeOffset($rs->post_tz), $rs->post_tz);
        } else {
            return dt::iso8601($rs->getTS(), $rs->post_tz);
        }
    }

    /**
    Returns post date formating according to RFC 822.

    @param    rs    Invisible parameter
    @param    type    <b>string</b>        (dt|upddt|creadt) defaults to post_dt
    @return    <b>string</b>
     */
    public static function getRFC822Date($rs, $type = '')
    {
        if ($type == 'upddt' || $type == 'creadt') {
            return dt::rfc822($rs->getTS($type) + dt::getTimeOffset($rs->post_tz), $rs->post_tz);
        } else {
            return dt::rfc822($rs->getTS($type), $rs->post_tz);
        }
    }

    /**
    Returns post date with <var>$format</var> as formatting pattern. If format
    is empty, uses <var>date_format</var> blog setting.

    @param    rs    Invisible parameter
    @param    format    <b>string</b>        Date format pattern
    @param    type    <b>string</b>        (dt|upddt|creadt) defaults to post_dt
    @return    <b>string</b>
     */
    public static function getDate($rs, $format, $type = '')
    {
        if (!$format) {
            $format = $rs->core->blog->settings->system->date_format;
        }

        if ($type == 'upddt') {
            return dt::dt2str($format, $rs->post_upddt, $rs->post_tz);
        } elseif ($type == 'creadt') {
            return dt::dt2str($format, $rs->post_creadt, $rs->post_tz);
        } else {
            return dt::dt2str($format, $rs->post_dt);
        }
    }

    /**
    Returns post time with <var>$format</var> as formatting pattern. If format
    is empty, uses <var>time_format</var> blog setting.

    @param    rs    Invisible parameter
    @param    format    <b>string</b>        Time format pattern
    @param    type    <b>string</b>        (dt|upddt|creadt) defaults to post_dt
    @return    <b>string</b>
     */
    public static function getTime($rs, $format, $type = '')
    {
        if (!$format) {
            $format = $rs->core->blog->settings->system->time_format;
        }

        if ($type == 'upddt') {
            return dt::dt2str($format, $rs->post_upddt, $rs->post_tz);
        } elseif ($type == 'creadt') {
            return dt::dt2str($format, $rs->post_creadt, $rs->post_tz);
        } else {
            return dt::dt2str($format, $rs->post_dt);
        }
    }

    /**
    Returns author common name using user_id, user_name, user_firstname and
    user_displayname fields.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getAuthorCN($rs)
    {
        return dcUtils::getUserCN($rs->user_id, $rs->user_name,
            $rs->user_firstname, $rs->user_displayname);
    }

    /**
    Returns author common name with a link if he specified one in its
    preferences.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getAuthorLink($rs)
    {
        $res = '%1$s';
        $url = $rs->user_url;
        if ($url) {
            $res = '<a href="%2$s">%1$s</a>';
        }

        return sprintf($res, html::escapeHTML($rs->getAuthorCN()), html::escapeHTML($url));
    }

    /**
    Returns author e-mail address. If <var>$encoded</var> is true, "@" sign is
    replaced by "%40" and "." by "%2e".

    @param    rs    Invisible parameter
    @param    encoded    <b>boolean</b>        Encode address.
    @return    <b>string</b>
     */
    public static function getAuthorEmail($rs, $encoded = true)
    {
        if ($encoded) {
            return strtr($rs->user_email, array('@' => '%40', '.' => '%2e'));
        }
        return $rs->user_email;
    }

    /**
    Returns post feed unique ID.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getFeedID($rs)
    {
        return 'urn:md5:' . md5($rs->core->blog->uid . $rs->post_id);
    }

    /**
    Returns trackback RDF information block in HTML comment.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getTrackbackData($rs, $format = 'html')
    {
        return
        ($format == 'xml' ? "<![CDATA[>\n" : '') .
        "<!--\n" .
        '<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"' . "\n" .
        '  xmlns:dc="http://purl.org/dc/elements/1.1/"' . "\n" .
        '  xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/">' . "\n" .
        "<rdf:Description\n" .
        '  rdf:about="' . $rs->getURL() . '"' . "\n" .
        '  dc:identifier="' . $rs->getURL() . '"' . "\n" .
        '  dc:title="' . htmlspecialchars($rs->post_title, ENT_COMPAT, 'UTF-8') . '"' . "\n" .
        '  trackback:ping="' . $rs->getTrackbackLink() . '" />' . "\n" .
            "</rdf:RDF>\n" .
            ($format == 'xml' ? "<!]]><!--" : '') .
            "-->\n";
    }

    /**
    Returns post trackback full URL.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getTrackbackLink($rs)
    {
        return $rs->core->blog->url . $rs->core->url->getURLFor('trackback', $rs->post_id);
    }

    /**
    Returns post content. If <var>$absolute_urls</var> is true, appends full
    blog URL to each relative post URLs.

    @param    rs    Invisible parameter
    @param    absolute_urls    <b>boolean</b>        With absolute URLs
    @return    <b>string</b>
     */
    public static function getContent($rs, $absolute_urls = false)
    {
        if ($absolute_urls) {
            return html::absoluteURLs($rs->post_content_xhtml, $rs->getURL());
        } else {
            return $rs->post_content_xhtml;
        }
    }

    /**
    Returns post excerpt. If <var>$absolute_urls</var> is true, appends full
    blog URL to each relative post URLs.

    @param    rs    Invisible parameter
    @param    absolute_urls    <b>boolean</b>        With absolute URLs
    @return    <b>string</b>
     */
    public static function getExcerpt($rs, $absolute_urls = false)
    {
        if ($absolute_urls) {
            return html::absoluteURLs($rs->post_excerpt_xhtml, $rs->getURL());
        } else {
            return $rs->post_excerpt_xhtml;
        }
    }

    /**
    Returns post media count using a subquery.

    @param    rs    Invisible parameter
    @return    <b>integer</b>
     */
    public static function countMedia($rs, $link_type = null)
    {
        if (isset($rs->_nb_media[$rs->index()])) {
            return $rs->_nb_media[$rs->index()];
        } else {
            $strReq =
            'SELECT count(media_id) ' .
            'FROM ' . $rs->core->prefix . 'post_media ' .
            'WHERE post_id = ' . (integer) $rs->post_id . ' ';
            if ($link_type != null) {
                $strReq .= "AND link_type = '" . $rs->core->con->escape($link_type) . "'";
            }

            $res                         = (integer) $rs->core->con->select($strReq)->f(0);
            $rs->_nb_media[$rs->index()] = $res;
            return $res;
        }
    }
}

/**
@ingroup DC_CORE
@brief Dotclear comment record helpers.

This class adds new methods to database comment results.
You can call them on every record comming from dcBlog::getComments and similar
methods.

@warning You should not give the first argument (usualy $rs) of every described
function.
 */
class rsExtComment
{
    /**
    Returns comment date with <var>$format</var> as formatting pattern. If
    format is empty, uses <var>date_format</var> blog setting.

    @param    rs    Invisible parameter
    @param    format    <b>string</b>        Date format pattern
    @param    type    <b>string</b>        (dt|upddt) defaults to comment_dt
    @return    <b>string</b>
     */
    public static function getDate($rs, $format, $type = '')
    {
        if (!$format) {
            $format = $rs->core->blog->settings->system->date_format;
        }

        if ($type == 'upddt') {
            return dt::dt2str($format, $rs->comment_upddt, $rs->comment_tz);
        } else {
            return dt::dt2str($format, $rs->comment_dt);
        }
    }

    /**
    Returns comment time with <var>$format</var> as formatting pattern. If
    format is empty, uses <var>time_format</var> blog setting.

    @param    rs    Invisible parameter
    @param    format    <b>string</b>        Date format pattern
    @param    type    <b>string</b>        (dt|upddt) defaults to comment_dt
    @return    <b>string</b>
     */
    public static function getTime($rs, $format, $type = '')
    {
        if (!$format) {
            $format = $rs->core->blog->settings->system->time_format;
        }

        if ($type == 'upddt') {
            return dt::dt2str($format, $rs->comment_updt, $rs->comment_tz);
        } else {
            return dt::dt2str($format, $rs->comment_dt);
        }
    }

    /**
    Returns comment timestamp.

    @param    rs    Invisible parameter
    @param    type    <b>string</b>        (dt|upddt) defaults to comment_dt
    @return    <b>integer</b>
     */
    public static function getTS($rs, $type = '')
    {
        if ($type == 'upddt') {
            return strtotime($rs->comment_upddt);
        } else {
            return strtotime($rs->comment_dt);
        }
    }

    /**
    Returns comment date formating according to the ISO 8601 standard.

    @param    rs    Invisible parameter
    @param    type    <b>string</b>        (dt|upddt) defaults to comment_dt
    @return    <b>string</b>
     */
    public static function getISO8601Date($rs, $type = '')
    {
        if ($type == 'upddt') {
            return dt::iso8601($rs->getTS($type) + dt::getTimeOffset($rs->comment_tz), $rs->comment_tz);
        } else {
            return dt::iso8601($rs->getTS(), $rs->comment_tz);
        }
    }

    /**
    Returns comment date formating according to RFC 822.

    @param    rs    Invisible parameter
    @param    type    <b>string</b>        (dt|upddt) defaults to comment_dt
    @return    <b>string</b>
     */
    public static function getRFC822Date($rs, $type = '')
    {
        if ($type == 'upddt') {
            return dt::rfc822($rs->getTS($type) + dt::getTimeOffset($rs->comment_tz), $rs->comment_tz);
        } else {
            return dt::rfc822($rs->getTS(), $rs->comment_tz);
        }
    }

    /**
    Returns comment content. If <var>$absolute_urls</var> is true, appends full
    blog URL to each relative post URLs.

    @param    rs    Invisible parameter
    @param    absolute_urls    <b>boolean</b>        With absolute URLs
    @return    <b>string</b>
     */
    public static function getContent($rs, $absolute_urls = false)
    {
        $res = $rs->comment_content;

        if ($rs->core->blog->settings->system->comments_nofollow) {
            $res = preg_replace_callback('#<a(.*?href=".*?".*?)>#ms', array('self', 'noFollowURL'), $res);
        }

        if ($absolute_urls) {
            $res = html::absoluteURLs($res, $rs->getPostURL());
        }

        return $res;
    }

    private static function noFollowURL($m)
    {
        if (preg_match('/rel="nofollow"/', $m[1])) {
            return $m[0];
        }

        return '<a' . $m[1] . ' rel="nofollow">';
    }

    /**
    Returns comment author link to his website if he specified one.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getAuthorURL($rs)
    {
        if (trim($rs->comment_site)) {
            return trim($rs->comment_site);
        }
    }

    /**
    Returns comment post full URL.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getPostURL($rs)
    {
        return $rs->core->blog->url . $rs->core->getPostPublicURL(
            $rs->post_type, html::sanitizeURL($rs->post_url)
        );
    }

    /**
    Returns comment author name in a link to his website if he specified one.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getAuthorLink($rs)
    {
        $res = '%1$s';
        $url = $rs->getAuthorURL();
        if ($url) {
            $res = '<a href="%2$s"%3$s>%1$s</a>';
        }

        $nofollow = '';
        if ($rs->core->blog->settings->system->comments_nofollow) {
            $nofollow = ' rel="nofollow"';
        }

        return sprintf($res, html::escapeHTML($rs->comment_author), html::escapeHTML($url), $nofollow);
    }

    /**
    Returns comment author e-mail address. If <var>$encoded</var> is true,
    "@" sign is replaced by "%40" and "." by "%2e".

    @param    rs    Invisible parameter
    @param    encoded    <b>boolean</b>        Encode address.
    @return    <b>string</b>
     */
    public static function getEmail($rs, $encoded = true)
    {
        if ($encoded) {
            return strtr($rs->comment_email, array('@' => '%40', '.' => '%2e'));
        }
        return $rs->comment_email;
    }

    /**
    Returns trackback site title if comment is a trackback.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getTrackbackTitle($rs)
    {
        if ($rs->comment_trackback == 1 &&
            preg_match('|<p><strong>(.*?)</strong></p>|msU', $rs->comment_content,
                $match)) {
            return html::decodeEntities($match[1]);
        }
    }

    /**
    Returns trackback content if comment is a trackback.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getTrackbackContent($rs)
    {
        if ($rs->comment_trackback == 1) {
            return preg_replace('|<p><strong>.*?</strong></p>|msU', '',
                $rs->comment_content);
        }
    }

    /**
    Returns comment feed unique ID.

    @param    rs    Invisible parameter
    @return    <b>string</b>
     */
    public static function getFeedID($rs)
    {
        return 'urn:md5:' . md5($rs->core->blog->uid . $rs->comment_id);
    }

    /**
    Returns whether comment is from the post author.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function isMe($rs)
    {
        return
        $rs->comment_email && $rs->comment_site &&
        $rs->comment_email == $rs->user_email &&
        $rs->comment_site == $rs->user_url;
    }
}

/**
@ingroup DC_CORE
@brief Dotclear dates record helpers.

This class adds new methods to database dates results.
You can call them on every record comming from dcBlog::getDates.

@warning You should not give the first argument (usualy $rs) of every described
function.
 */
class rsExtDates
{
    /**
    @param    rs    Invisible parameter
    @return    <b>integer</b>        Date timestamp
     */
    public static function ts($rs)
    {
        return strtotime($rs->dt);
    }

    /**
    @param    rs    Invisible parameter
    @return    <b>string</b>        Date year
     */
    public static function year($rs)
    {
        return date('Y', strtotime($rs->dt));
    }

    /**
    @param    rs    Invisible parameter
    @return    <b>string</b>        Date month
     */
    public static function month($rs)
    {
        return date('m', strtotime($rs->dt));
    }

    /**
    @param    rs    Invisible parameter
    @return    <b>integer</b>        Date day
     */
    public static function day($rs)
    {
        return date('d', strtotime($rs->dt));
    }

    /**
    Returns date month archive full URL.

    @param    rs    Invisible parameter
    @param    core        <b>dcCore</b>        dcCore instance
    @return    <b>integer</b>
     */
    public static function url($rs, $core)
    {
        $url = date('Y/m', strtotime($rs->dt));

        return $core->blog->url . $core->url->getURLFor('archive', $url);
    }

    /**
    Returns whether date is the first of year.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function yearHeader($rs)
    {
        if ($rs->isStart()) {
            return true;
        }

        $y = $rs->year();
        $rs->movePrev();
        $py = $rs->year();
        $rs->moveNext();

        return $y != $py;
    }

    /**
    Returns whether date is the last of year.

    @param    rs    Invisible parameter
    @return    <b>boolean</b>
     */
    public static function yearFooter($rs)
    {
        if ($rs->isEnd()) {
            return true;
        }

        $y = $rs->year();
        if ($rs->moveNext()) {
            $ny = $rs->year();
            $rs->movePrev();
            return $y != $ny;
        }
        return false;

    }
}

/**
@ingroup DC_CORE
@brief Dotclear dates record helpers.

This class adds new methods to database dates results.
You can call them on every record comming from dcAuth::checkUser and
dcCore::getUsers.

@warning You should not give the first argument (usualy $rs) of every described
function.
 */
class rsExtUser
{
    private static $sortfield;
    private static $sortsign;
    /**
    Returns a user option.

    @param    rs    Invisible parameter
    @param    name        <b>string</b>        Option name
    @return    <b>string</b>
     */
    public static function option($rs, $name)
    {
        $options = self::options($rs);

        if (isset($options[$name])) {
            return $options[$name];
        }
        return;
    }

    /**
    Returns all user options.

    @param    rs    Invisible parameter
    @return    <b>array</b>
     */
    public static function options($rs)
    {
        $options = @unserialize($rs->user_options);
        if (is_array($options)) {
            return $options;
        }
        return array();
    }

    /**
    Converts this record to a {@link extStaticRecord} instance.

    @param     rs     Invisible parameter
     */
    public static function toExtStatic($rs)
    {
        if ($rs instanceof extStaticRecord) {
            return $rs;
        }
        return new extStaticRecord($rs);
    }
}

class rsExtBlog
{
    private static $sortfield;
    private static $sortsign;
    /**
    Converts this record to a {@link extStaticRecord} instance.

    @param     rs     Invisible parameter
     */
    public static function toExtStatic($rs)
    {
        if ($rs instanceof extStaticRecord) {
            return $rs;
        }
        return new extStaticRecord($rs);
    }
}

class extStaticRecord extends staticRecord
{
    private $sortfield;
    private $sortsign;

    public function __construct($rs)
    {
        parent::__construct($rs->__data, $rs->__info);
    }

    /**
    Lexically sort.

    @param     field     <b>string<b>    sort field
    @param  order     <b>string<b>    sort order
     */
    public function lexicalSort($field, $order = 'asc')
    {
        $this->sortfield = $field;
        $this->sortsign  = strtolower($order) == 'asc' ? 1 : -1;

        usort($this->__data, array($this, 'lexicalSortCallback'));

        $this->sortfield = null;
        $this->sortsign  = null;
    }
    private function lexicalSortCallback($a, $b)
    {
        $a = $a[$this->sortfield];
        $b = $b[$this->sortfield];

        # Integer values
        if ($a == (string) (integer) $a && $b == (string) (integer) $b) {
            $a = (integer) $a;
            $b = (integer) $b;
            return ($a - $b) * $this->sortsign;
        }

        return strcoll(strtolower(dcUtils::removeDiacritics($a)), strtolower(dcUtils::removeDiacritics($b))) * $this->sortsign;
    }
}