Add AbstractHtmlInputNodeProcessorListener

diff --git a/wcfsetup/install/files/lib/system/event/listener/AbstractHtmlInputNodeProcessorListener.class.php b/wcfsetup/install/files/lib/system/event/listener/AbstractHtmlInputNodeProcessorListener.class.php
new file mode 100644 (file)
index 0000000..3a302b4
--- /dev/null
+++ b/wcfsetup/install/files/lib/system/event/listener/AbstractHtmlInputNodeProcessorListener.class.php
@@ -0,0 +1,108 @@
+<?php
+namespace wcf\system\event\listener;
+use wcf\data\ITitledObject;
+use wcf\system\exception\ImplementationException;
+use wcf\system\html\input\node\HtmlInputNodeProcessor;
+use wcf\system\Regex;
+use wcf\util\DOMUtil;
+use wcf\util\JSON;
+
+/**
+ * Provides useful methods for event listeners replacing simple text links in texts
+ * with links with the name of the linked object or with bbcodes.
+ * 
+ * @author     Matthias Schmidt, Marcel Werk
+ * @copyright  2001-2016 WoltLab GmbH
+ * @license    GNU Lesser General Public License <http://opensource.org/licenses/lgpl-license.php>
+ * @package    WoltLabSuite\Core\System\Event\Listener
+ * @since      3.0
+ */
+abstract class AbstractHtmlInputNodeProcessorListener implements IParameterizedEventListener {
+       /**
+        * Returns the ids of the objects linked in the text proccessed by the given
+        * processor matching the given regular expression.
+        * 
+        * @param       HtmlInputNodeProcessor          $processor
+        * @param       Regex                           $regex
+        * @return      integer[]
+        */
+       protected function getObjectIDs(HtmlInputNodeProcessor $processor, Regex $regex) {
+               $objectIDs = [];
+               foreach ($processor->getDocument()->getElementsByTagName('a') as $element) {
+                       /** @var \DOMElement $element */
+                       if ($element->getAttribute('href') === $element->textContent) {
+                               if ($regex->match($element->getAttribute('href'), true)) {
+                                       $objectIDs[] = $regex->getMatches()[2][0];
+                               }
+                       }
+               }
+               
+               return array_unique($objectIDs);
+       }
+       
+       /**
+        * Returns a `Regex` object for matching links based on the given string
+        * followed by an object id.
+        * 
+        * @param       string          $link
+        * @return      Regex
+        */
+       protected function getRegexFromLink($link) {
+               return new Regex('^(' . preg_replace('~^https?~', 'https?', preg_quote($link)) . '(\d+)-.*?)$');
+       }
+       
+       /**
+        * Replaces relevant object links with bbcodes.
+        * 
+        * @param       HtmlInputNodeProcessor          $processor
+        * @param       Regex                           $regex
+        * @param       ITitledObject[]                 $objects
+        * @param       string                          $bbcodeName
+        */
+       protected function replaceLinksWithBBCode(HtmlInputNodeProcessor $processor, Regex $regex, array $objects, $bbcodeName) {
+               foreach ($processor->getDocument()->getElementsByTagName('a') as $element) {
+                       /** @var \DOMElement $element */
+                       if ($element->getAttribute('href') === $element->textContent) {
+                               if ($regex->match($element->getAttribute('href'), true)) {
+                                       $objectID = $regex->getMatches()[2][0];
+                                       
+                                       if (isset($objects[$objectID])) {
+                                               $metacodeElement = $processor->getDocument()->createElement('woltlab-metacode');
+                                               $metacodeElement->setAttribute('data-name', $bbcodeName);
+                                               $metacodeElement->setAttribute('data-attributes', base64_encode(JSON::encode([$objectID])));
+                                               
+                                               DOMUtil::replaceElement($element, $metacodeElement, false);
+                                       }
+                               }
+                       }
+               }
+       }
+       
+       /**
+        * Replaces the text content of relevant object links with the titles of
+        * the objects.
+        * 
+        * @param       HtmlInputNodeProcessor          $processor
+        * @param       Regex                           $regex
+        * @param       ITitledObject[]                 $objects
+        */
+       protected function setObjectTitles(HtmlInputNodeProcessor $processor, Regex $regex, array $objects) {
+               foreach ($processor->getDocument()->getElementsByTagName('a') as $element) {
+                       /** @var \DOMElement $element */
+                       if ($element->getAttribute('href') === $element->textContent) {
+                               if ($regex->match($element->getAttribute('href'), true)) {
+                                       $objectID = $regex->getMatches()[2][0];
+                                       
+                                       if (isset($objects[$objectID])) {
+                                               $object = $objects[$objectID];
+                                               if (!($object instanceof ITitledObject)) {
+                                                       throw new ImplementationException(get_class($object), ITitledObject::class);
+                                               }
+                                               
+                                               $element->textContent = $object->getTitle();
+                                       }
+                               }
+                       }
+               }
+       }
+}