FamilyBook/app/Ics.php

<?php
/**
 * iCalendar（RFC 5545）的读与写 —— 日程的 ics 导入 / 导出（用户 2026-10-02 第 7 条）。
 *
 * 为什么自己写而不引一个库：
 *   这个应用是「零依赖」的（连 Composer 都没有），为两个函数拖进一个依赖不划算；
 *   而且我们只需要 VEVENT 的一个常用子集，自己写反而能把"哪些字段往返不丢"说清楚。
 *
 * 三条必须遵守的 RFC 规则（踩过就懂）：
 *   ① **行要折**：一行超过 75 个**字节**（不是字符！中文一个字 3 字节）就必须折，
 *      折行用 CRLF + 一个空格开头。不折的话 iOS 日历会整条拒收。
 *   ② **文本要转义**：\ ; , 和换行各有转义写法，不转义会把一行正文切成好几条属性。
 *   ③ **全天日程的 DTSTART 是 DATE 值**（20261015），不是 DATETIME ——
 *      写成 DATETIME 的话，客户端会当成"这一天的 00:00"，看着一样但跨时区会错。
 *
 * 时区：系统里存的一律是**本地时间**（不带时区），导出也不带 Z、不写 VTIMEZONE。
 *       家庭应用里"几点开会"就是墙上那个钟，硬套 UTC 反而会整体偏移。
 */

declare(strict_types=1);

namespace App;

final class Ics
{
    /** 导出的产品标识（RFC 5545 PRODID，客户端会拿它判断"是谁生成的"） */
    private const PRODID = '-//FamilyBook//FamilyBook Calendar//CN';

    /**
     * 把一个日历本导出成 .ics 文本。
     *
     * @param array $events calendar_events 的行
     * @param string $calName 日历本名字（X-WR-CALNAME，客户端用它给订阅起标题）
     */
    public static function export(array $events, string $calName = '日程'): string
    {
        $out = [
            'BEGIN:VCALENDAR',
            'VERSION:2.0',
            'PRODID:' . self::PRODID,
            'CALSCALE:GREGORIAN',
            'METHOD:PUBLISH',
            'X-WR-CALNAME:' . self::escapeText($calName),
        ];
        foreach ($events as $e) {
            $out = array_merge($out, self::vevent($e));
        }
        $out[] = 'END:VCALENDAR';
        // 折行 + 统一 CRLF（RFC 5545 要求行尾是 CRLF，虽然多数客户端也收 LF）
        $lines = [];
        foreach ($out as $line) {
            foreach (self::fold($line) as $l) {
                $lines[] = $l;
            }
        }
        return implode("\r\n", $lines) . "\r\n";
    }

    /** 一条日程 → VEVENT 的若干行 */
    private static function vevent(array $e): array
    {
        $allDay  = !empty($e['all_day']);
        $starts  = (string)($e['starts_at'] ?? '');
        $ends    = (string)($e['ends_at'] ?? '');
        $uid     = (string)($e['uid'] ?? '');
        if ($uid === '') {
            $uid = Calendar::newUid();
        }
        $stamp   = self::stampOf($e['updated_at'] ?? $e['created_at'] ?? null);

        $out = ['BEGIN:VEVENT', 'UID:' . $uid, 'DTSTAMP:' . $stamp];

        if ($allDay) {
            // 全天：VALUE=DATE，且 DTEND 是**第二天**（RFC：DTEND 是排他边界）
            $out[] = 'DTSTART;VALUE=DATE:' . self::dateValue($starts);
            $d     = self::dateValue($ends !== '' ? $ends : $starts);
            $out[] = 'DTEND;VALUE=DATE:' . ($ends !== '' ? self::nextDay($d) : self::nextDay($d));
        } else {
            $out[] = 'DTSTART:' . self::dateTimeValue($starts);
            // 没有结束时刻就按开始时刻算（RFC 允许只给 DTSTART + DURATION，
            // 但很多客户端对 DURATION 支持得更差，给一个等于开始的 DTEND 最稳）
            $out[] = 'DTEND:' . self::dateTimeValue($ends !== '' ? $ends : $starts);
        }

        $out[] = 'SUMMARY:' . self::escapeText((string)($e['title'] ?? ''));
        if (($e['location'] ?? '') !== '') {
            $out[] = 'LOCATION:' . self::escapeText((string)$e['location']);
        }
        if (($e['note'] ?? '') !== '') {
            $out[] = 'DESCRIPTION:' . self::escapeText((string)$e['note']);
        }
        if (($e['rrule'] ?? '') !== '') {
            /* 🔴🔴 v45（2026-10-12）修的真 bug：这里原来**漏了 `RRULE:` 前缀**，
               直接吐 `$e['rrule']`（库里存的是**去掉前缀**的值，见 parse 的
               `'rrule' => self::nullOr($p['RRULE'])`）⇒ 导出的 ICS 里那一行是
               `FREQ=WEEKLY;UNTIL=20261231T235959Z` —— 一个**没有属性名**的裸行，
               任何客户端都不会把它当成重复规则（RFC 5545 要求 `RRULE:...`）。
               后果：所有导出/CalDAV 同步出去的重复日程，在别人那里**都变成单次**。
               为什么以前没被发现：夹具与线上导出的都是"不带重复"的日程，
               这条分支一直没被走到（本轮为了验 PUT 重复日程才第一次踩到）。 */
            /* ⚠️ 值类型是 **RECUR**，不是 TEXT —— 里面的逗号是**结构分隔符**
               （如 `BYDAY=MO,TU,WE,TH,FR`），**绝不能**用 escapeText 转义，
               否则客户端会把它当成一整块而解析失败。原样拼接即可。 */
            $out[] = 'RRULE:' . (string)$e['rrule'];
        }
        $out[] = 'STATUS:' . strtoupper((string)($e['status'] ?: 'confirmed'));
        $out[] = 'TRANSP:' . (empty($e['transp']) ? 'OPAQUE' : 'TRANSPARENT');
        $out[] = 'SEQUENCE:' . (int)($e['sequence'] ?? 0);
        if (!empty($e['created_at'])) {
            $out[] = 'CREATED:' . self::stampOf($e['created_at']);
        }
        if (!empty($e['updated_at'])) {
            $out[] = 'LAST-MODIFIED:' . self::stampOf($e['updated_at']);
        }
        // 提醒 = VALARM（TRIGGER 用**负**持续时间表示"提前多久"）。
        // ⚠️ v24 第 20 批 第 8 条：一个日程可以有多档提醒 → **导出多个 VALARM**。
        //    RFC 5545 允许一个 VEVENT 带任意多个 VALARM，客户端会各响一次；
        //    所以这里按 calendar_events.reminder_minutes 里的逗号串逐个吐。
        //    老数据（只存了一个数字）走同一条路，导出的还是那个单一 VALARM。
        foreach (\App\Calendar::reminderList($e['reminder_minutes'] ?? null) as $rvMin) {
            if ($rvMin <= 0) { continue; }
            $out = array_merge($out, [
                'BEGIN:VALARM',
                'ACTION:DISPLAY',
                'DESCRIPTION:' . self::escapeText((string)($e['title'] ?? '提醒')),
                'TRIGGER:-' . self::duration($rvMin),
                'END:VALARM',
            ]);
        }
        $out[] = 'END:VEVENT';
        return $out;
    }

    /**
     * 解析一个 .ics 文本，返回里面的 VEVENT。
     *
     * @return array<int, array{uid:string,title:string,starts_at:string,ends_at:string,
     *                         all_day:bool,location:?string,note:?string,
     *                         reminder_minutes:?int,status:string,rrule:?string}>
     */
    public static function parse(string $text): array
    {
        $text = str_replace(["\r\n", "\r"], "\n", $text);
        // ① 反折行：以空格或制表符开头的行是上一行的续行
        $text = preg_replace("/\n[ \t]/", '', $text) ?? $text;
        $lines = explode("\n", $text);

        $out    = [];
        $cur    = null;
        $inAlarm = false;
        foreach ($lines as $raw) {
            $line = trim($raw);
            if ($line === '') {
                continue;
            }
            if ($line === 'BEGIN:VEVENT') {
                $cur = [];
                $inAlarm = false;
                continue;
            }
            if ($line === 'END:VEVENT') {
                if ($cur !== null) {
                    $out[] = self::normalizeVevent($cur);
                }
                $cur = null;
                $inAlarm = false;
                continue;
            }
            if ($cur === null) {
                continue;   // VCALENDAR / VTIMEZONE 里的东西一律跳过
            }
            if ($line === 'BEGIN:VALARM') { $inAlarm = true; continue; }
            if ($line === 'END:VALARM')   { $inAlarm = false; continue; }

            [$name, $params, $value] = self::splitProp($line);
            if ($name === '') {
                continue;
            }
            // VALARM 里只认 TRIGGER（提前多久）；DESCRIPTION 那些是给闹钟弹窗用的，
            // 混进来会覆盖日程本身的备注（实测：iOS 导出的 VALARM 里也带 DESCRIPTION）。
            if ($inAlarm) {
                if ($name === 'TRIGGER') {
                    $cur['_trigger'] = $value;
                }
                continue;
            }
            // 同名属性出现多次时保留第一个（RFC 里多数属性都是单值的）
            if (!array_key_exists($name, $cur)) {
                $cur[$name] = $value;
            }
            if (!array_key_exists($name . '_PARAMS', $cur)) {
                $cur[$name . '_PARAMS'] = $params;
            }
        }
        return $out;
    }

    /** 把解析出来的属性归一成我们要落库的形状 */
    private static function normalizeVevent(array $p): array
    {
        $startRaw = (string)($p['DTSTART'] ?? '');
        $endRaw   = (string)($p['DTEND'] ?? '');
        $params   = (string)($p['DTSTART_PARAMS'] ?? '');
        // 全天：VALUE=DATE，或者值本身就是 8 位的 YYYYMMDD
        $allDay = stripos($params, 'VALUE=DATE') !== false
               || preg_match('/^\d{8}$/', $startRaw) === 1;

        $starts = $allDay ? self::fromDateValue($startRaw) : self::fromDateTimeValue($startRaw);
        $ends   = $endRaw !== ''
            ? ($allDay ? self::fromDateValue($endRaw) : self::fromDateTimeValue($endRaw))
            : null;
        // 全天日程的 DTEND 是**排他**的第二天，减回一天才对得上"到哪天为止"
        if ($allDay && $ends !== null && $starts !== null) {
            $d = strtotime($ends . ' -1 day');
            $ends = $d ? date('Y-m-d', $d) . ' 00:00:00' : null;
        }

        return [
            'uid'              => (string)($p['UID'] ?? ''),
            'title'            => self::unescapeText((string)($p['SUMMARY'] ?? '')),
            'starts_at'        => $starts,
            'ends_at'          => $ends,
            'all_day'          => $allDay,
            'location'         => self::nullOr(self::unescapeText((string)($p['LOCATION'] ?? ''))),
            'note'             => self::nullOr(self::unescapeText((string)($p['DESCRIPTION'] ?? ''))),
            'rrule'            => self::nullOr((string)($p['RRULE'] ?? '')),
            'status'           => strtolower((string)($p['STATUS'] ?? '')) ?: 'confirmed',
            'reminder_minutes' => self::triggerMinutes((string)($p['_trigger'] ?? '')),
        ];
    }

    /** TRIGGER:-PT15M / TRIGGER:-P1D / TRIGGER;VALUE=DATE-TIME:... → 分钟数 */
    private static function triggerMinutes(string $v): ?int
    {
        $v = trim($v);
        if ($v === '') {
            return null;
        }
        // 绝大多数客户端导出的是"提前多久"的持续时间（负号开头）
        if (preg_match('/^-?P(?:(\d+)D)?(?:T(?:(\d+)H)?(?:(\d+)M)?(?:(\d+)S)?)?$/', $v, $m)) {
            $mins  = (int)($m[1] ?? 0) * 1440;
            $mins += (int)($m[2] ?? 0) * 60;
            $mins += (int)($m[3] ?? 0);
            $mins += (int)($m[4] ?? 0) > 0 ? 1 : 0;   // 有秒就进位到 1 分钟，别归零
            return $mins > 0 ? $mins : null;
        }
        return null;
    }

    /** 分钟 → RFC 5545 的持续时间，如 90 → PT1H30M */
    private static function duration(int $mins): string
    {
        $d = intdiv($mins, 1440);
        $h = intdiv($mins % 1440, 60);
        $m = $mins % 60;
        $s = 'P';
        if ($d > 0) {
            $s .= $d . 'D';
        }
        if ($h > 0 || $m > 0) {
            $s .= 'T';
            if ($h > 0) {
                $s .= $h . 'H';
            }
            if ($m > 0) {
                $s .= $m . 'M';
            }
        }
        return $s === 'P' ? 'PT0S' : $s;
    }

    /** '2026-10-16 14:30:00' → '20261016T143000' */
    private static function dateTimeValue(string $dt): string
    {
        $t = strtotime($dt);
        if ($t === false) {
            return '19700101T000000';
        }
        return date('Ymd\THis', $t);
    }

    /** '2026-10-16 14:30:00' → '20261016' */
    private static function dateValue(string $dt): string
    {
        $t = strtotime($dt);
        if ($t === false) {
            return '19700101';
        }
        return date('Ymd', $t);
    }

    /** '20261016T143000' / '2026-10-16 14:30:00' → '2026-10-16 14:30:00' */
    private static function fromDateTimeValue(string $v): ?string
    {
        $v = trim($v);
        if (preg_match('/^(\d{4})(\d{2})(\d{2})T(\d{2})(\d{2})(\d{2})Z?$/', $v, $m)) {
            return sprintf('%s-%s-%s %s:%s:%s', $m[1], $m[2], $m[3], $m[4], $m[5], $m[6]);
        }
        $t = strtotime($v);
        return $t === false ? null : date('Y-m-d H:i:s', $t);
    }

    /** '20261016' → '2026-10-16 00:00:00' */
    private static function fromDateValue(string $v): ?string
    {
        if (preg_match('/^(\d{4})(\d{2})(\d{2})$/', trim($v), $m)) {
            return sprintf('%s-%s-%s 00:00:00', $m[1], $m[2], $m[3]);
        }
        $t = strtotime($v);
        return $t === false ? null : date('Y-m-d 00:00:00', $t);
    }

    /** '20261016' → '20261017' */
    private static function nextDay(string $ymd): string
    {
        $t = strtotime(substr($ymd, 0, 4) . '-' . substr($ymd, 4, 2) . '-' . substr($ymd, 6, 2) . ' +1 day');
        return $t === false ? $ymd : date('Ymd', $t);
    }

    /** 属性行 → [名, 参数串, 值]（只在**第一个**未加引号的冒号处切） */
    private static function splitProp(string $line): array
    {
        $pos = strpos($line, ':');
        if ($pos === false) {
            return ['', '', ''];
        }
        $left  = substr($line, 0, $pos);
        $value = substr($line, $pos + 1);
        if (strpos($left, ';') === false) {
            return [strtoupper($left), '', $value];
        }
        [$name, $params] = explode(';', $left, 2);
        return [strtoupper($name), $params, $value];
    }

    /** DTSTAMP / CREATED 一律写成 UTC（RFC 要求带 Z） */
    /**
     * DTSTAMP / CREATED / LAST-MODIFIED 的时间戳。
     *
     * 🔴 v31 修的真 bug：原来"没给时间就取 time()"。而**派生条目**
     *    （观影 / 行程节点 / 纪念日 / 农历 / 节假日 / 节气）没有 updated_at、created_at，
     *    于是每生成一次 ICS，文本里就写进一个新的"现在" ⇒ 正文变了 ⇒ ETag 跟着变。
     *    实测线上同一本连续两次 REPORT，**每一条的 ETag 都不一样** ——
     *    客户端的"增量同步"因此退化成"每轮全量重拉"，而且永远不收敛
     *    （拉回来的 ETag 与它记下的对不上 → 认为服务器一直在变）。
     *
     * ⇒ 缺时间就写**固定值**：确定性优先。一个诚实的"不知道"，
     *    远比一个每次都变的"现在"对同步友好。
     *    ⚠️ 别改成"用 starts_at 当 DTSTAMP"——DTSTAMP 的语义是"这一条什么时候
     *       被创建/最后修改"，不是"这件事什么时候发生"；改了会让客户端排序错乱。
     */
    private static function stampOf($dt): string
    {
        $s = trim((string)$dt);
        $t = $s === '' ? 0 : strtotime($s);
        if ($t === false || $t <= 0) {
            return '19700101T000000Z';
        }
        return gmdate('Ymd\THis\Z', $t);
    }

    /** 文本转义（RFC 5545 3.3.11） */
    private static function escapeText(string $v): string
    {
        $v = str_replace('\\', '\\\\', $v);
        $v = str_replace(';', '\;', $v);
        $v = str_replace(',', '\,', $v);
        $v = str_replace(["\r\n", "\r", "\n"], '\n', $v);
        return $v;
    }

    private static function unescapeText(string $v): string
    {
        $v = str_replace('\n', "\n", $v);
        $v = str_replace('\N', "\n", $v);
        $v = str_replace('\,', ',', $v);
        $v = str_replace('\;', ';', $v);
        return str_replace('\\\\', '\\', $v);
    }

    private static function nullOr(string $v): ?string
    {
        $v = trim($v);
        return $v === '' ? null : $v;
    }

    /**
     * 折行：一行最多 75 **字节**，且不能在多字节字符中间切断。
     *
     * ⚠️ 按字节而不是按字符数：中文一个字 3 字节，按字符数切会切出半个 UTF-8 字，
     *    客户端解出来就是乱码。续行以**一个空格**开头。
     */
    private static function fold(string $line): array
    {
        if (strlen($line) <= 75) {
            return [$line];
        }
        $out  = [];
        $cur  = '';
        $len  = 0;
        $limit = 75;
        $bytes = strlen($line);
        $i = 0;
        while ($i < $bytes) {
            // 一次取一个完整 UTF-8 字符
            $ch = $line[$i];
            $n  = 1;
            $o  = ord($ch);
            if ($o >= 0xF0) { $n = 4; }
            elseif ($o >= 0xE0) { $n = 3; }
            elseif ($o >= 0xC0) { $n = 2; }
            $tok = substr($line, $i, $n);
            $i  += $n;
            // 续行要以空格开头，所以后续每行实际只能放 74 字节
            $room = $out === [] ? $limit : $limit - 1;
            if ($len + $n > $room) {
                $out[] = $cur;
                $cur   = '';
                $len   = 0;
            }
            $cur .= $tok;
            $len += $n;
        }
        if ($cur !== '') {
            $out[] = $cur;
        }
        // 续行补前导空格
        $res = [];
        foreach ($out as $k => $v) {
            $res[] = $k === 0 ? $v : ' ' . $v;
        }
        return $res;
    }
}