<?php
/**
 * iCalcreator, the PHP class package managing iCal (rfc2445/rfc5445) calendar information.
 *
 * copyright (c) 2007-2019 Kjell-Inge Gustafsson, kigkonsult, All rights reserved
 * Link      https://kigkonsult.se
 * Package   iCalcreator
 * Version   2.26.8
 * License   Subject matter of licence is the software iCalcreator.
 *           The above copyright, link, package and version notices,
 *           this licence notice and the invariant [rfc5545] PRODID result use
 *           as implemented and invoked in iCalcreator shall be included in
 *           all copies or substantial portions of the iCalcreator.
 *
 *           iCalcreator is free software: you can redistribute it and/or modify
 *           it under the terms of the GNU Lesser General Public License as published
 *           by the Free Software Foundation, either version 3 of the License,
 *           or (at your option) any later version.
 *
 *           iCalcreator 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 Lesser General Public License for more details.
 *
 *           You should have received a copy of the GNU Lesser General Public License
 *           along with iCalcreator. If not, see <https://www.gnu.org/licenses/>.
 *
 * This file is a part of iCalcreator.
*/

namespace Kigkonsult\Icalcreator;

use Kigkonsult\Icalcreator\Util\Util;

use function array_reverse;
use function array_shift;
use function ctype_lower;
use function ctype_upper;
use function explode;
use function file_put_contents;
use function implode;
use function ksort;
use function is_dir;
use function is_file;
use function is_writable;
use function preg_replace;
use function sprintf;
use function str_replace;
use function strlen;
use function strpos;
use function substr;
use function ucfirst;

/**
 * iCalcreator vCard support class
 *
 * @author Kjell-Inge Gustafsson, kigkonsult <ical@kigkonsult.se>
 * @since  2.26 - 2018-11-10
 */
class IcalvCard
{
    /**
     * Convert single ATTENDEE, CONTACT or ORGANIZER (in email format) to vCard
     *
     * Returns vCard/true or if directory (if set) or file write is unvalid, false
     *
     * @author Kjell-Inge Gustafsson, kigkonsult <ical@kigkonsult.se>
     * @since  2.26 - 2018-11-10
     * @param string $email
     * @param string $version   vCard version (default 2.1)
     * @param string $directory where to save vCards (default false)
     * @param string $ext       vCard file extension (default 'vcf')
     * @return mixed  bool true (if directory set and save ok), string (if not), false on error
     * @static
     */
    public static function iCal2vCard( $email, $version = null, $directory = null, $ext = null ) {
        static $UCMAILTOCOLON = 'MAILTO:';
        static $FMTFN      = "FN:%s\r\n";
        static $FMTN       = 'N:%s';
        static $V2_1       = '2.1';
        static $AT         = '@';
        static $V4_0       = '4.0';
        static $FMTEMAIL   = "EMAIL:%s\r\n";
        static $BEGINVCARD = "BEGIN:VCARD\r\n";
        static $FMTVERSION = "VERSION:%s\r\n";
        static $FMTPRODID  = "PRODID:-//kigkonsult.se %s\r\n";
        static $FMTREV     = "REV:%s\r\n";
        static $YMDTHISZ   = 'Ymd\THis\Z';
        static $ENDVCARD   = "END:VCARD\r\n";
        static $EXPR       = '/[^a-z0-9.]/i';
        static $FMTFNAME   = '%s%s%s.%s';
        static $EXTVCF     = 'vcf';
        if( empty( $version )) {
            $version = $V2_1;
        }
        if( false === ( $pos = strpos( $email, $AT ))) {
            return false;
        }
        if( $directory ) {
            if( DIRECTORY_SEPARATOR != substr( $directory, ( 0 - strlen( DIRECTORY_SEPARATOR )))) {
                $directory .= DIRECTORY_SEPARATOR;
            }
            if( ! is_dir( $directory ) || ! is_writable( $directory )) {
                return false;
            }
        }
        /* prepare vCard */
        $email = str_replace( $UCMAILTOCOLON, null, $email );
        $name  = $person = substr( $email, 0, $pos );
        if( ctype_upper( $name ) || ctype_lower( $name )) {
            $name = [ $name ];
        }
        else {
            if( false !== ( $pos = strpos( $name, Util::$DOT ))) {
                $name = explode( Util::$DOT, $name );
                foreach( $name as $k => $part ) {
                    $name[$k] = ucfirst( $part );
                }
            }
            else { // split camelCase
                $chars = $name;
                $name  = [ $chars[0] ];
                $k     = 0;
                $len   = strlen( $chars );
                $x     = 1;
                while( $x < $len ) {
                    if( ctype_upper( $chars[$x] )) {
                        $k        += 1;
                        $name[$k] = null;
                    }
                    $name[$k] .= $chars[$x];
                    $x++;
                }
            }
        }
        $FN    = sprintf( $FMTFN, implode( utiL::$SP1, $name ));
        $name  = array_reverse( $name );
        $N     = sprintf( $FMTN, array_shift( $name ));
        $scCnt = 0;
        while( null != ( $part = array_shift( $name ))) {
            if(( $V4_0 != $version ) || ( 4 > $scCnt )) {
                $scCnt += 1;
            }
            $N .= Util::$SEMIC . $part;
        }
        while(( $V4_0 == $version ) && ( 4 > $scCnt )) {
            $N     .= Util::$SEMIC;
            $scCnt += 1;
        }
        $N     .= Util::$CRLF;
        $EMAIL  = sprintf( $FMTEMAIL, $email );
        /* create vCard */
        $vCard  = $BEGINVCARD;
        $vCard .= sprintf( $FMTVERSION, $version );
        $vCard .= sprintf( $FMTPRODID, ICALCREATOR_VERSION );
        $vCard .= $N;
        $vCard .= $FN;
        $vCard .= $EMAIL;
        $vCard .= sprintf( $FMTREV, gmdate( $YMDTHISZ ));
        $vCard .= $ENDVCARD;
        /* save each vCard as (unique) single file */
        if(  empty( $directory )) {
            return $vCard; /* return vCard */
        }
        if( empty( $ext )) {
            $ext = $EXTVCF;
        }
        $fprfx = $directory . preg_replace( $EXPR, null, $email );
        $cnt   = 1;
        $dbl   = null;
        $fName = sprintf( $FMTFNAME, $fprfx, $dbl, $ext );
        while( is_file( $fName )) {
            $cnt   += 1;
            $dbl   = $cnt;
            $fName = sprintf( $FMTFNAME, $fprfx, $dbl, $ext );
        }
        if( false === file_put_contents( $fName, $vCard )) {
            return false;
        }
        return true;
    }

    /**
     * Convert ATTENDEEs, CONTACTs and ORGANIZERs (in email format) to vCards
     *
     * @author Kjell-Inge Gustafsson, kigkonsult <ical@kigkonsult.se>
     * @since  2.23.20 - 2017-02-20
     * @param Vcalendar $calendar  iCalcreator Vcalendar instance
     * @param string    $version   vCard version (default 2.1)
     * @param string    $directory where to save vCards (default false)
     * @param string    $ext       vCard file extension (default 'vcf')
     * @return mixed    bool true (if directory set and save ok), string (if not), false on error
     * @static
     */
    public static function iCal2vCards( Vcalendar $calendar, $version = null, $directory = null, $ext = null ) {
        static $vCardP = [ 'ATTENDEE', 'CONTACT', 'ORGANIZER' ];
        static $AT     = '@';
        static $UCMAILTOCOLON = 'MAILTO:';
        $hits = [];
        foreach( $vCardP as $prop ) {
            $hits2 = $calendar->getProperty( $prop );
            foreach( $hits2 as $propValue => $occCnt ) {
                if( false === ( $pos = strpos( $propValue, $AT ))) {
                    continue;
                }
                $propValue = str_replace( $UCMAILTOCOLON, null, $propValue );
                if( isset( $hits[$propValue] )) {
                    $hits[$propValue] += $occCnt;
                }
                else {
                    $hits[$propValue] = $occCnt;
                }
            }
        }
        if( empty( $hits )) {
            return false;
        }
        ksort( $hits );
        $output = null;
        foreach( $hits as $email => $skip ) {
            $res = self::iCal2vCard( $email, $version, $directory, $ext );
            if( ! empty( $directory ) && ! $res ) {
                return false;
            }
            elseif( ! $res ) {
                return $res;
            }
            else {
                $output .= $res;
            }
        }
        if( $directory ) {
            return true;
        }
        return ( empty( $output )) ? false : $output;
    }
}