[Calendar] Fix unfolding issue

ProtonMail · Jan 21, 2022 · 6f8810d · 6f8810d
1 parent 8e3e2ad
commit 6f8810d
Show file tree

Hide file tree

Showing 3 changed files with 125 additions and 2 deletions.
diff --git a/lib/Parser/MimeDir.php b/lib/Parser/MimeDir.php
@@ -9,6 +9,7 @@
 use Sabre\VObject\EofException;
 use Sabre\VObject\Node;
 use Sabre\VObject\ParseException;
+use Sabre\VObject\Reader;
 
 /**
  * MimeDir parser.
@@ -200,15 +201,33 @@ protected function parseLine($line)
             }
             $component = $this->root->createComponent(substr($line, 6), [], false);
 
+            $prevNode = null;
             while (true) {
                 // Reading until we hit END:
                 $line = $this->readLine();
                 if ('END:' === strtoupper(substr($line, 0, 4))) {
                     break;
                 }
-                $result = $this->parseLine($line);
+                try {
+                    $result = $this->parseLine($line);
+                } catch (\Exception $e) {
+                    if (isset($prevNode)
+                        && $e instanceof ParseException && str_contains($e->getMessage(), 'Invalid Mimedir file. Line starting at')
+                        && ($this->options & Reader::OPTION_FIX_UNFOLDING)
+                    ) {
+                        // Fix unfolding
+                        $copyNode = $prevNode;
+                        $component->remove($prevNode);
+                        $value = $copyNode->getValue() . ' ' . $line . PHP_EOL;
+                        $copyNode->offsetSet('VALUE', $value);
+                        $copyNode->setValue($value);
+                        $component->add($copyNode);
+                        continue;
+                    }
+                    throw $e;
+                }
                 if ($result) {
-                    $component->add($result);
+                    $prevNode = $component->add($result);
                 }
             }
 

diff --git a/lib/Reader.php b/lib/Reader.php
@@ -26,6 +26,11 @@ class Reader
      */
     const OPTION_IGNORE_INVALID_LINES = 2;
 
+    /**
+     * If this option is turned on, it will fix unfolding parse error by adding empty space.
+     */
+    const OPTION_FIX_UNFOLDING = 4;
+
     /**
      * Parses a vCard or iCalendar object, and returns the top component.
      *

diff --git a/tests/VObject/Parser/UnfoldingTest.php b/tests/VObject/Parser/UnfoldingTest.php
@@ -0,0 +1,99 @@
+<?php
+
+namespace Sabre\VObject\Parser;
+
+use PHPUnit\Framework\TestCase;
+use Sabre\VObject\ParseException;
+use Sabre\VObject\Reader;
+
+class UnfoldingTest extends TestCase
+{
+    public function testFixUnfoldingICS()
+    {
+        $vcard = <<<ICS
+BEGIN:VCALENDAR
+BEGIN:VEVENT
+DTEND;TZID=America/Edmonton:20181212T112000
+LAST-MODIFIED:20181128T171443Z
+UID:071597C2-0692-4B67-9C8C-3FC0FEABB9E6
+DTSTAMP:20181211T181642Z
+LOCATION: test
+SEQUENCE:0
+SUMMARY:test
+DTSTART;TZID=America/Edmonton:20181212T102000
+CREATED:20171107T180706Z
+X-APPLE-STRUCTURED-LOCATION;VALUE=URI;X-ADDRESS=221-501 Bethel Drive\\nSy
+ nergy Wellness Centre\\nSherwood Park AB T8H 0N2\\nCanada;X-APPLE-ABUID=
+ ab://Trent%E2%80%99s%20Work";X-APPLE-REFERENCEFRAME=1;X-TITLE=221-501 Be
+ thel Drive
+Synergy Wellness Centre
+Sherwood Park AB T8H 0N2
+Canada:geo:53.545618,-113.302303
+END:VEVENT
+END:VCALENDAR
+ICS;
+
+        $mimeDir = new MimeDir();
+        $vcard = $mimeDir->parse($vcard, Reader::OPTION_FIX_UNFOLDING);
+
+        $this->assertNotNull($vcard->children()[0]->{'X-APPLE-STRUCTURED-LOCATION'}->getValue());
+    }
+
+    public function testNotFixUnfolding()
+    {
+        $this->expectException(ParseException::class);
+
+        $vcard = <<<ICS
+BEGIN:VCALENDAR
+BEGIN:VEVENT
+DTEND;TZID=America/Edmonton:20181212T112000
+LAST-MODIFIED:20181128T171443Z
+UID:071597C2-0692-4B67-9C8C-3FC0FEABB9E6
+DTSTAMP:20181211T181642Z
+LOCATION: test
+SEQUENCE:0
+SUMMARY:test
+DTSTART;TZID=America/Edmonton:20181212T102000
+CREATED:20171107T180706Z
+X-APPLE-STRUCTURED-LOCATION;VALUE=URI;X-ADDRESS=221-501 Bethel Drive\\nSy
+ nergy Wellness Centre\\nSherwood Park AB T8H 0N2\\nCanada;X-APPLE-ABUID=
+ ab://Trent%E2%80%99s%20Work";X-APPLE-REFERENCEFRAME=1;X-TITLE=221-501 Be
+ thel Drive
+Synergy Wellness Centre
+Sherwood Park AB T8H 0N2
+Canada:geo:53.545618,-113.302303
+END:VEVENT
+END:VCALENDAR
+ICS;
+
+        (new MimeDir())->parse($vcard);
+    }
+
+    public function testNotFixUnknownProperty()
+    {
+        $vcard = <<<ICS
+BEGIN:VCALENDAR
+BEGIN:VEVENT
+DTEND;TZID=America/Edmonton:20211111T200000
+X-APPLE-STRUCTURED-LOCATION;VALUE=URI;X-ADDRESS=120 22549 Township Rd 510
+ \\nLeduc County AB T0B 3M1\\nCanada;X-APPLE-RADIUS=100;X-APPLE-REFERENCE
+ FRAME=1;X-TITLE=120 22549 Township Rd 510:geo:53.365836,-113.214518
+UID:25A069F7-5FAA-48FB-BA3E-01CAFC4A1814
+DTSTAMP:20211112T020041Z
+LOCATION:120 22549 Township Rd 510\\nLeduc County AB T0B 3M1\\nCanada
+DESCRIPTION:(780) 938-0325
+SEQUENCE:0
+CONFERENCE;VALUE=URI:tel://(780)%20938-0325
+SUMMARY:Call w/ Madeline Hubbard
+LAST-MODIFIED:20211110T132821Z
+CREATED:20211110T132805Z
+DTSTART;TZID=America/Edmonton:20211111T190000
+END:VEVENT
+END:VCALENDAR
+ICS;
+
+        $vcard = (new MimeDir())->parse($vcard);
+
+        $this->assertNotNull($vcard->children()[0]->CONFERENCE->getValue());
+    }
+}