1007225e5Sgerardnico<?php 2007225e5Sgerardnico 3007225e5Sgerardnico 4007225e5Sgerardnicouse ComboStrap\Analytics; 5007225e5Sgerardnicouse ComboStrap\LinkUtility; 67c33ecc6Sgerardnicouse ComboStrap\StringUtility; 77c33ecc6Sgerardnico 871f916b9Sgerardnicouse ComboStrap\Page; 9007225e5Sgerardnicouse dokuwiki\ChangeLog\PageChangeLog; 10007225e5Sgerardnico 11007225e5Sgerardnicorequire_once(__DIR__ . '/../class/LowQualityPage.php'); 12007225e5Sgerardnicorequire_once(__DIR__ . '/../class/Analytics.php'); 13007225e5Sgerardnico 14007225e5Sgerardnico 15007225e5Sgerardnico/** 16007225e5Sgerardnico * A analysis Renderer that exports stats/quality/metadata in a json format 17007225e5Sgerardnico * You can export the data with 18007225e5Sgerardnico * doku.php?id=somepage&do=export_combo_analytics 19007225e5Sgerardnico */ 20007225e5Sgerardnicoclass renderer_plugin_combo_analytics extends Doku_Renderer 21007225e5Sgerardnico{ 227c33ecc6Sgerardnico 23007225e5Sgerardnico const DATE_CREATED = 'date_created'; 24007225e5Sgerardnico const PLAINTEXT = 'formatted'; 25007225e5Sgerardnico const RESULT = "result"; 26007225e5Sgerardnico const DESCRIPTION = "description"; 27007225e5Sgerardnico const PASSED = "Passed"; 28007225e5Sgerardnico const FAILED = "Failed"; 29007225e5Sgerardnico const FIXME = 'fixme'; 30007225e5Sgerardnico 31007225e5Sgerardnico /** 32007225e5Sgerardnico * Rules key 33007225e5Sgerardnico */ 34007225e5Sgerardnico const RULE_WORDS_MINIMAL = 'words_min'; 35007225e5Sgerardnico const RULE_OUTLINE_STRUCTURE = "outline_structure"; 36007225e5Sgerardnico const RULE_INTERNAL_BACKLINKS_MIN = 'internal_backlinks_min'; 37007225e5Sgerardnico const RULE_WORDS_MAXIMAL = "words_max"; 38007225e5Sgerardnico const RULE_AVERAGE_WORDS_BY_SECTION_MIN = 'words_by_section_avg_min'; 39007225e5Sgerardnico const RULE_AVERAGE_WORDS_BY_SECTION_MAX = 'words_by_section_avg_max'; 40007225e5Sgerardnico const RULE_INTERNAL_LINKS_MIN = 'internal_links_min'; 41007225e5Sgerardnico const RULE_INTERNAL_BROKEN_LINKS_MAX = 'internal_links_broken_max'; 42007225e5Sgerardnico const RULE_DESCRIPTION_PRESENT = 'description_present'; 43007225e5Sgerardnico const RULE_FIXME = "fixme_min"; 44007225e5Sgerardnico const RULE_TITLE_PRESENT = "title_present"; 45007225e5Sgerardnico const RULE_CANONICAL_PRESENT = "canonical_present"; 46aa3cb38fSgerardnico const QUALITY_RULES = [ 47aa3cb38fSgerardnico self::RULE_CANONICAL_PRESENT, 48aa3cb38fSgerardnico self::RULE_DESCRIPTION_PRESENT, 49aa3cb38fSgerardnico self::RULE_FIXME, 50aa3cb38fSgerardnico self::RULE_INTERNAL_BACKLINKS_MIN, 51aa3cb38fSgerardnico self::RULE_INTERNAL_BROKEN_LINKS_MAX, 52aa3cb38fSgerardnico self::RULE_INTERNAL_LINKS_MIN, 53aa3cb38fSgerardnico self::RULE_OUTLINE_STRUCTURE, 54aa3cb38fSgerardnico self::RULE_TITLE_PRESENT, 55aa3cb38fSgerardnico self::RULE_WORDS_MINIMAL, 56aa3cb38fSgerardnico self::RULE_WORDS_MAXIMAL, 57aa3cb38fSgerardnico self::RULE_AVERAGE_WORDS_BY_SECTION_MIN, 58aa3cb38fSgerardnico self::RULE_AVERAGE_WORDS_BY_SECTION_MAX 59aa3cb38fSgerardnico ]; 60007225e5Sgerardnico 61007225e5Sgerardnico /** 62007225e5Sgerardnico * The default man 63007225e5Sgerardnico */ 64007225e5Sgerardnico const CONF_MANDATORY_QUALITY_RULES_DEFAULT_VALUE = [ 65007225e5Sgerardnico self::RULE_WORDS_MINIMAL, 66007225e5Sgerardnico self::RULE_INTERNAL_BACKLINKS_MIN, 67007225e5Sgerardnico self::RULE_INTERNAL_LINKS_MIN 68007225e5Sgerardnico ]; 69007225e5Sgerardnico const CONF_MANDATORY_QUALITY_RULES = "mandatoryQualityRules"; 70007225e5Sgerardnico 71007225e5Sgerardnico /** 72007225e5Sgerardnico * Quality Score factors 73007225e5Sgerardnico * They are used to calculate the score 74007225e5Sgerardnico */ 75007225e5Sgerardnico const CONF_QUALITY_SCORE_INTERNAL_BACKLINK_FACTOR = 'qualityScoreInternalBacklinksFactor'; 76007225e5Sgerardnico const CONF_QUALITY_SCORE_INTERNAL_LINK_FACTOR = 'qualityScoreInternalLinksFactor'; 77007225e5Sgerardnico const CONF_QUALITY_SCORE_TITLE_PRESENT = 'qualityScoreTitlePresent'; 78007225e5Sgerardnico const CONF_QUALITY_SCORE_CORRECT_HEADER_STRUCTURE = 'qualityScoreCorrectOutline'; 79007225e5Sgerardnico const CONF_QUALITY_SCORE_CORRECT_CONTENT = 'qualityScoreCorrectContentLength'; 80007225e5Sgerardnico const CONF_QUALITY_SCORE_NO_FIXME = 'qualityScoreNoFixMe'; 81007225e5Sgerardnico const CONF_QUALITY_SCORE_CORRECT_WORD_SECTION_AVERAGE = 'qualityScoreCorrectWordSectionAvg'; 82007225e5Sgerardnico const CONF_QUALITY_SCORE_INTERNAL_LINK_BROKEN_FACTOR = 'qualityScoreNoBrokenLinks'; 83007225e5Sgerardnico const CONF_QUALITY_SCORE_CHANGES_FACTOR = 'qualityScoreChangesFactor'; 84007225e5Sgerardnico const CONF_QUALITY_SCORE_DESCRIPTION_PRESENT = 'qualityScoreDescriptionPresent'; 85007225e5Sgerardnico const CONF_QUALITY_SCORE_CANONICAL_PRESENT = 'qualityScoreCanonicalPresent'; 8608ca4f85Sgerardnico const SCORING = "scoring"; 8708ca4f85Sgerardnico const SCORE = "score"; 88ebdc69ceSgerardnico const HEADER_STRUCT = 'header_struct'; 89*531e725cSNickeau const RENDERER_NAME_MODE = "combo_" . renderer_plugin_combo_analytics::RENDERER_FORMAT; 90*531e725cSNickeau /** 91*531e725cSNickeau * The format returned by the renderer 92*531e725cSNickeau */ 93*531e725cSNickeau const RENDERER_FORMAT = "analytics"; 94007225e5Sgerardnico 95aa3cb38fSgerardnico 96007225e5Sgerardnico /** 97007225e5Sgerardnico * The processing data 98007225e5Sgerardnico * that should be {@link renderer_plugin_combo_analysis::reset()} 99007225e5Sgerardnico */ 100007225e5Sgerardnico public $stats = array(); // the stats 101fa5961eaSgerardnico protected $analyticsMetadata = array(); // the metadata 102007225e5Sgerardnico protected $headerId = 0; // the id of the header on the page (first, second, ...) 103007225e5Sgerardnico 104007225e5Sgerardnico /** 105007225e5Sgerardnico * Don't known this variable ? 106007225e5Sgerardnico */ 107007225e5Sgerardnico protected $quotelevel = 0; 108007225e5Sgerardnico protected $formattingBracket = 0; 109007225e5Sgerardnico protected $tableopen = false; 110007225e5Sgerardnico private $plainTextId = 0; 1112c067407Sgerardnico /** 1122c067407Sgerardnico * @var Page 1132c067407Sgerardnico */ 1142c067407Sgerardnico private $page; 1152c067407Sgerardnico 1162c067407Sgerardnico public function document_start() 1172c067407Sgerardnico { 1187c33ecc6Sgerardnico $this->reset(); 1192c067407Sgerardnico global $ID; 1202c067407Sgerardnico $this->page = new Page($ID); 1212c067407Sgerardnico 1222c067407Sgerardnico } 123007225e5Sgerardnico 124007225e5Sgerardnico 125007225e5Sgerardnico /** 126007225e5Sgerardnico * Here the score is calculated 127007225e5Sgerardnico */ 128007225e5Sgerardnico public function document_end() // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 129007225e5Sgerardnico { 130007225e5Sgerardnico /** 131f3748b38Sgerardnico * The exported object 132f3748b38Sgerardnico */ 133f3748b38Sgerardnico $statExport = $this->stats; 134f3748b38Sgerardnico 135f3748b38Sgerardnico /** 136007225e5Sgerardnico * The metadata 137007225e5Sgerardnico */ 138007225e5Sgerardnico global $ID; 139fa5961eaSgerardnico $dokuWikiMetadata = p_get_metadata($ID); 140007225e5Sgerardnico 141007225e5Sgerardnico /** 142f3748b38Sgerardnico * Edit author stats 143f3748b38Sgerardnico */ 144f3748b38Sgerardnico $changelog = new PageChangeLog($ID); 145f3748b38Sgerardnico $revs = $changelog->getRevisions(0, 10000); 146fa5961eaSgerardnico array_push($revs, $dokuWikiMetadata['last_change']['date']); 147f3748b38Sgerardnico $statExport[Analytics::EDITS_COUNT] = count($revs); 148f3748b38Sgerardnico foreach ($revs as $rev) { 1492128d419Sgerardnico 150ebdc69ceSgerardnico 151ebdc69ceSgerardnico /** 152ebdc69ceSgerardnico * Init the authors array 153ebdc69ceSgerardnico */ 154ebdc69ceSgerardnico if (!array_key_exists('authors', $statExport)) { 155ebdc69ceSgerardnico $statExport['authors'] = []; 156f3748b38Sgerardnico } 157ebdc69ceSgerardnico /** 158ebdc69ceSgerardnico * Analytics by users 159ebdc69ceSgerardnico */ 1602128d419Sgerardnico $info = $changelog->getRevisionInfo($rev); 1612128d419Sgerardnico if (is_array($info)) { 162ebdc69ceSgerardnico $user = "*"; 163ebdc69ceSgerardnico if (array_key_exists('user', $info)) { 164ebdc69ceSgerardnico $user = $info['user']; 165ebdc69ceSgerardnico } 166ebdc69ceSgerardnico if (!array_key_exists('authors', $statExport['authors'])) { 167ebdc69ceSgerardnico $statExport['authors'][$user] = 0; 168ebdc69ceSgerardnico } 169ebdc69ceSgerardnico $statExport['authors'][$user] += 1; 170f3748b38Sgerardnico } 1712128d419Sgerardnico } 172f3748b38Sgerardnico 173f3748b38Sgerardnico /** 174007225e5Sgerardnico * Word and chars count 175007225e5Sgerardnico * The word count does not take into account 176007225e5Sgerardnico * words with non-words characters such as < = 177007225e5Sgerardnico * Therefore the node and attribute are not taken in the count 178007225e5Sgerardnico */ 179007225e5Sgerardnico $text = rawWiki($ID); 180f3748b38Sgerardnico $statExport[Analytics::CHARS_COUNT] = strlen($text); 1817c33ecc6Sgerardnico $statExport[Analytics::WORDS_COUNT] = StringUtility::getWordCount($text); 182007225e5Sgerardnico 183007225e5Sgerardnico 184007225e5Sgerardnico /** 185007225e5Sgerardnico * Internal link distance summary calculation 186007225e5Sgerardnico */ 187007225e5Sgerardnico if (array_key_exists(Analytics::INTERNAL_LINK_DISTANCE, $statExport)) { 188007225e5Sgerardnico $linkLengths = $statExport[Analytics::INTERNAL_LINK_DISTANCE]; 189007225e5Sgerardnico unset($statExport[Analytics::INTERNAL_LINK_DISTANCE]); 190007225e5Sgerardnico $countBacklinks = count($linkLengths); 191007225e5Sgerardnico $statExport[Analytics::INTERNAL_LINK_DISTANCE]['avg'] = null; 192007225e5Sgerardnico $statExport[Analytics::INTERNAL_LINK_DISTANCE]['max'] = null; 193007225e5Sgerardnico $statExport[Analytics::INTERNAL_LINK_DISTANCE]['min'] = null; 194007225e5Sgerardnico if ($countBacklinks > 0) { 195007225e5Sgerardnico $statExport[Analytics::INTERNAL_LINK_DISTANCE]['avg'] = array_sum($linkLengths) / $countBacklinks; 196007225e5Sgerardnico $statExport[Analytics::INTERNAL_LINK_DISTANCE]['max'] = max($linkLengths); 197007225e5Sgerardnico $statExport[Analytics::INTERNAL_LINK_DISTANCE]['min'] = min($linkLengths); 198007225e5Sgerardnico } 199007225e5Sgerardnico } 200007225e5Sgerardnico 201007225e5Sgerardnico /** 202007225e5Sgerardnico * Quality Report / Rules 203007225e5Sgerardnico */ 204007225e5Sgerardnico // The array that hold the results of the quality rules 205007225e5Sgerardnico $ruleResults = array(); 206007225e5Sgerardnico // The array that hold the quality score details 207007225e5Sgerardnico $qualityScores = array(); 208007225e5Sgerardnico 209007225e5Sgerardnico 210007225e5Sgerardnico /** 211007225e5Sgerardnico * No fixme 212007225e5Sgerardnico */ 213ebdc69ceSgerardnico if (array_key_exists(self::FIXME, $this->stats)) { 214007225e5Sgerardnico $fixmeCount = $this->stats[self::FIXME]; 215007225e5Sgerardnico $statExport[self::FIXME] = $fixmeCount == null ? 0 : $fixmeCount; 216007225e5Sgerardnico if ($fixmeCount != 0) { 217007225e5Sgerardnico $ruleResults[self::RULE_FIXME] = self::FAILED; 218007225e5Sgerardnico $qualityScores['no_' . self::FIXME] = 0; 219007225e5Sgerardnico } else { 220007225e5Sgerardnico $ruleResults[self::RULE_FIXME] = self::PASSED; 2217c33ecc6Sgerardnico $qualityScores['no_' . self::FIXME] = $this->getConf(self::CONF_QUALITY_SCORE_NO_FIXME, 1); 222007225e5Sgerardnico } 223ebdc69ceSgerardnico } 224007225e5Sgerardnico 225007225e5Sgerardnico /** 226007225e5Sgerardnico * A title should be present 227007225e5Sgerardnico */ 22808ca4f85Sgerardnico $titleScore = $this->getConf(self::CONF_QUALITY_SCORE_TITLE_PRESENT, 10); 229fa5961eaSgerardnico if (empty($this->analyticsMetadata[Analytics::TITLE])) { 230007225e5Sgerardnico $ruleResults[self::RULE_TITLE_PRESENT] = self::FAILED; 23108ca4f85Sgerardnico $ruleInfo[self::RULE_TITLE_PRESENT] = "Add a title in the frontmatter for {$titleScore} points"; 232fa5961eaSgerardnico $this->analyticsMetadata[Analytics::TITLE] = $dokuWikiMetadata[Analytics::TITLE]; 233007225e5Sgerardnico $qualityScores[self::RULE_TITLE_PRESENT] = 0; 234007225e5Sgerardnico } else { 2357c33ecc6Sgerardnico $qualityScores[self::RULE_TITLE_PRESENT] = $titleScore; 236007225e5Sgerardnico $ruleResults[self::RULE_TITLE_PRESENT] = self::PASSED; 237007225e5Sgerardnico } 238007225e5Sgerardnico 239007225e5Sgerardnico /** 240007225e5Sgerardnico * A description should be present 241007225e5Sgerardnico */ 24208ca4f85Sgerardnico $descScore = $this->getConf(self::CONF_QUALITY_SCORE_DESCRIPTION_PRESENT, 8); 243fa5961eaSgerardnico if (empty($this->analyticsMetadata[self::DESCRIPTION])) { 244007225e5Sgerardnico $ruleResults[self::RULE_DESCRIPTION_PRESENT] = self::FAILED; 24508ca4f85Sgerardnico $ruleInfo[self::RULE_DESCRIPTION_PRESENT] = "Add a description in the frontmatter for {$descScore} points"; 246fa5961eaSgerardnico $this->analyticsMetadata[self::DESCRIPTION] = $dokuWikiMetadata[self::DESCRIPTION]["abstract"]; 247007225e5Sgerardnico $qualityScores[self::RULE_DESCRIPTION_PRESENT] = 0; 248007225e5Sgerardnico } else { 2497c33ecc6Sgerardnico $qualityScores[self::RULE_DESCRIPTION_PRESENT] = $descScore; 250007225e5Sgerardnico $ruleResults[self::RULE_DESCRIPTION_PRESENT] = self::PASSED; 251007225e5Sgerardnico } 252007225e5Sgerardnico 253007225e5Sgerardnico /** 254007225e5Sgerardnico * A canonical should be present 255007225e5Sgerardnico */ 25608ca4f85Sgerardnico $canonicalScore = $this->getConf(self::CONF_QUALITY_SCORE_CANONICAL_PRESENT, 5); 257fa5961eaSgerardnico if (empty($this->analyticsMetadata[Page::CANONICAL_PROPERTY])) { 258f3748b38Sgerardnico global $conf; 259f3748b38Sgerardnico $root = $conf['start']; 260f3748b38Sgerardnico if ($ID != $root) { 261007225e5Sgerardnico $qualityScores[self::RULE_CANONICAL_PRESENT] = 0; 262007225e5Sgerardnico $ruleResults[self::RULE_CANONICAL_PRESENT] = self::FAILED; 26308ca4f85Sgerardnico $ruleInfo[self::RULE_CANONICAL_PRESENT] = "Add a canonical in the frontmatter for {$canonicalScore} points"; 264f3748b38Sgerardnico } 265007225e5Sgerardnico } else { 2667c33ecc6Sgerardnico $qualityScores[self::RULE_CANONICAL_PRESENT] = $canonicalScore; 267007225e5Sgerardnico $ruleResults[self::RULE_CANONICAL_PRESENT] = self::PASSED; 268007225e5Sgerardnico } 269007225e5Sgerardnico 270007225e5Sgerardnico /** 271007225e5Sgerardnico * Outline / Header structure 272007225e5Sgerardnico */ 273007225e5Sgerardnico $treeError = 0; 274007225e5Sgerardnico $headersCount = 0; 275007225e5Sgerardnico if (array_key_exists(Analytics::HEADER_POSITION, $this->stats)) { 276007225e5Sgerardnico $headersCount = count($this->stats[Analytics::HEADER_POSITION]); 277007225e5Sgerardnico unset($statExport[Analytics::HEADER_POSITION]); 278007225e5Sgerardnico for ($i = 1; $i < $headersCount; $i++) { 279ebdc69ceSgerardnico $currentHeaderLevel = $this->stats[self::HEADER_STRUCT][$i]; 280ebdc69ceSgerardnico $previousHeaderLevel = $this->stats[self::HEADER_STRUCT][$i - 1]; 281007225e5Sgerardnico if ($currentHeaderLevel - $previousHeaderLevel > 1) { 282007225e5Sgerardnico $treeError += 1; 283007225e5Sgerardnico $ruleInfo[self::RULE_OUTLINE_STRUCTURE] = "The " . $i . " header (h" . $currentHeaderLevel . ") has a level bigger than its precedent (" . $previousHeaderLevel . ")"; 284007225e5Sgerardnico } 285007225e5Sgerardnico } 286ebdc69ceSgerardnico unset($statExport[self::HEADER_STRUCT]); 287007225e5Sgerardnico } 288eee76a3dSgerardnico $outlinePoints = $this->getConf(self::CONF_QUALITY_SCORE_CORRECT_HEADER_STRUCTURE, 3); 289007225e5Sgerardnico if ($treeError > 0 || $headersCount == 0) { 290007225e5Sgerardnico $qualityScores['correct_outline'] = 0; 291007225e5Sgerardnico $ruleResults[self::RULE_OUTLINE_STRUCTURE] = self::FAILED; 292007225e5Sgerardnico if ($headersCount == 0) { 293eee76a3dSgerardnico $ruleInfo[self::RULE_OUTLINE_STRUCTURE] = "Add headings to create a document outline for {$outlinePoints} points"; 294007225e5Sgerardnico } 295007225e5Sgerardnico } else { 296eee76a3dSgerardnico $qualityScores['correct_outline'] = $outlinePoints; 297007225e5Sgerardnico $ruleResults[self::RULE_OUTLINE_STRUCTURE] = self::PASSED; 298007225e5Sgerardnico } 299007225e5Sgerardnico 300007225e5Sgerardnico 301007225e5Sgerardnico /** 302007225e5Sgerardnico * Document length 303007225e5Sgerardnico */ 304007225e5Sgerardnico $minimalWordCount = 50; 305007225e5Sgerardnico $maximalWordCount = 1500; 306007225e5Sgerardnico $correctContentLength = true; 30708ca4f85Sgerardnico $correctLengthScore = $this->getConf(self::CONF_QUALITY_SCORE_CORRECT_CONTENT, 10); 30808ca4f85Sgerardnico $missingWords = $minimalWordCount - $statExport[Analytics::WORDS_COUNT]; 30908ca4f85Sgerardnico if ($missingWords > 0) { 310007225e5Sgerardnico $ruleResults[self::RULE_WORDS_MINIMAL] = self::FAILED; 311007225e5Sgerardnico $correctContentLength = false; 31208ca4f85Sgerardnico $ruleInfo[self::RULE_WORDS_MINIMAL] = "Add {$missingWords} words to get {$correctLengthScore} points"; 313007225e5Sgerardnico } else { 314007225e5Sgerardnico $ruleResults[self::RULE_WORDS_MINIMAL] = self::PASSED; 315007225e5Sgerardnico } 31608ca4f85Sgerardnico $tooMuchWords = $statExport[Analytics::WORDS_COUNT] - $maximalWordCount; 31708ca4f85Sgerardnico if ($tooMuchWords > 0) { 318007225e5Sgerardnico $ruleResults[self::RULE_WORDS_MAXIMAL] = self::FAILED; 31908ca4f85Sgerardnico $ruleInfo[self::RULE_WORDS_MAXIMAL] = "Delete {$tooMuchWords} words to get {$correctLengthScore} points"; 320007225e5Sgerardnico $correctContentLength = false; 321007225e5Sgerardnico } else { 322007225e5Sgerardnico $ruleResults[self::RULE_WORDS_MAXIMAL] = self::PASSED; 323007225e5Sgerardnico } 324007225e5Sgerardnico if ($correctContentLength) { 32508ca4f85Sgerardnico $qualityScores['correct_content_length'] = $correctLengthScore; 326007225e5Sgerardnico } else { 327007225e5Sgerardnico $qualityScores['correct_content_length'] = 0; 328007225e5Sgerardnico } 329007225e5Sgerardnico 330007225e5Sgerardnico 331007225e5Sgerardnico /** 332007225e5Sgerardnico * Average Number of words by header section to text ratio 333007225e5Sgerardnico */ 334007225e5Sgerardnico $headers = $this->stats[Analytics::HEADERS_COUNT]; 335007225e5Sgerardnico if ($headers != null) { 336007225e5Sgerardnico $headerCount = array_sum($headers); 337007225e5Sgerardnico $headerCount--; // h1 is supposed to have no words 338007225e5Sgerardnico if ($headerCount > 0) { 339007225e5Sgerardnico 340007225e5Sgerardnico $avgWordsCountBySection = round($this->stats[Analytics::WORDS_COUNT] / $headerCount); 341007225e5Sgerardnico $statExport['word_section_count']['avg'] = $avgWordsCountBySection; 342007225e5Sgerardnico 343007225e5Sgerardnico /** 344007225e5Sgerardnico * Min words by header section 345007225e5Sgerardnico */ 346007225e5Sgerardnico $wordsByHeaderMin = 20; 347007225e5Sgerardnico /** 348007225e5Sgerardnico * Max words by header section 349007225e5Sgerardnico */ 350007225e5Sgerardnico $wordsByHeaderMax = 300; 351007225e5Sgerardnico $correctAverageWordsBySection = true; 352007225e5Sgerardnico if ($avgWordsCountBySection < $wordsByHeaderMin) { 353007225e5Sgerardnico $ruleResults[self::RULE_AVERAGE_WORDS_BY_SECTION_MIN] = self::FAILED; 354007225e5Sgerardnico $correctAverageWordsBySection = false; 35508ca4f85Sgerardnico $ruleInfo[self::RULE_AVERAGE_WORDS_BY_SECTION_MIN] = "The number of words by section is less than {$wordsByHeaderMin}"; 356007225e5Sgerardnico } else { 357007225e5Sgerardnico $ruleResults[self::RULE_AVERAGE_WORDS_BY_SECTION_MIN] = self::PASSED; 358007225e5Sgerardnico } 359007225e5Sgerardnico if ($avgWordsCountBySection > $wordsByHeaderMax) { 360007225e5Sgerardnico $ruleResults[self::RULE_AVERAGE_WORDS_BY_SECTION_MAX] = self::FAILED; 361007225e5Sgerardnico $correctAverageWordsBySection = false; 362007225e5Sgerardnico $ruleInfo[self::RULE_AVERAGE_WORDS_BY_SECTION_MAX] = "The number of words by section is more than {$wordsByHeaderMax}"; 363007225e5Sgerardnico } else { 364007225e5Sgerardnico $ruleResults[self::RULE_AVERAGE_WORDS_BY_SECTION_MAX] = self::PASSED; 365007225e5Sgerardnico } 366007225e5Sgerardnico if ($correctAverageWordsBySection) { 367007225e5Sgerardnico $qualityScores['correct_word_avg_by_section'] = $this->getConf(self::CONF_QUALITY_SCORE_CORRECT_WORD_SECTION_AVERAGE, 10); 368007225e5Sgerardnico } else { 369007225e5Sgerardnico $qualityScores['correct_word_avg_by_section'] = 0; 370007225e5Sgerardnico } 371007225e5Sgerardnico 372007225e5Sgerardnico } 373007225e5Sgerardnico } 374007225e5Sgerardnico 375007225e5Sgerardnico /** 376007225e5Sgerardnico * Internal Backlinks rule 377007225e5Sgerardnico * 378007225e5Sgerardnico * If a page is a low quality page, if the process run 379007225e5Sgerardnico * anonymous, we will not see all {@link ft_backlinks()} 380007225e5Sgerardnico * we use then the index directly to avoid confusion 381007225e5Sgerardnico */ 382007225e5Sgerardnico $backlinks = idx_get_indexer()->lookupKey('relation_references', $ID); 383007225e5Sgerardnico $countBacklinks = count($backlinks); 384007225e5Sgerardnico $statExport[Analytics::INTERNAL_BACKLINKS_COUNT] = $countBacklinks; 385d262537cSgerardnico $backlinkScore = $this->getConf(self::CONF_QUALITY_SCORE_INTERNAL_BACKLINK_FACTOR, 1); 386007225e5Sgerardnico if ($countBacklinks == 0) { 387007225e5Sgerardnico $qualityScores[Analytics::INTERNAL_BACKLINKS_COUNT] = 0; 388007225e5Sgerardnico $ruleResults[self::RULE_INTERNAL_BACKLINKS_MIN] = self::FAILED; 389d262537cSgerardnico $ruleInfo[self::RULE_INTERNAL_BACKLINKS_MIN] = "Add backlinks for {$backlinkScore} point each"; 390007225e5Sgerardnico } else { 391d262537cSgerardnico 392d262537cSgerardnico $qualityScores[Analytics::INTERNAL_BACKLINKS_COUNT] = $countBacklinks * $backlinkScore; 393007225e5Sgerardnico $ruleResults[self::RULE_INTERNAL_BACKLINKS_MIN] = self::PASSED; 394007225e5Sgerardnico } 395007225e5Sgerardnico 396007225e5Sgerardnico /** 397007225e5Sgerardnico * Internal links 398007225e5Sgerardnico */ 399007225e5Sgerardnico $internalLinksCount = $this->stats[Analytics::INTERNAL_LINKS_COUNT]; 400d262537cSgerardnico $internalLinkScore = $this->getConf(self::CONF_QUALITY_SCORE_INTERNAL_LINK_FACTOR, 1); 401007225e5Sgerardnico if ($internalLinksCount == 0) { 402007225e5Sgerardnico $qualityScores[Analytics::INTERNAL_LINKS_COUNT] = 0; 403007225e5Sgerardnico $ruleResults[self::RULE_INTERNAL_LINKS_MIN] = self::FAILED; 404d262537cSgerardnico $ruleInfo[self::RULE_INTERNAL_LINKS_MIN] = "Add internal links for {$internalLinkScore} point each"; 405007225e5Sgerardnico } else { 406007225e5Sgerardnico $ruleResults[self::RULE_INTERNAL_LINKS_MIN] = self::PASSED; 407d262537cSgerardnico $qualityScores[Analytics::INTERNAL_LINKS_COUNT] = $countBacklinks * $internalLinkScore; 408007225e5Sgerardnico } 409007225e5Sgerardnico 410007225e5Sgerardnico /** 411007225e5Sgerardnico * Broken Links 412007225e5Sgerardnico */ 413d262537cSgerardnico $brokenLinkScore = $this->getConf(self::CONF_QUALITY_SCORE_INTERNAL_LINK_BROKEN_FACTOR, 2); 414ebdc69ceSgerardnico $brokenLinksCount = 0; 415ebdc69ceSgerardnico if (array_key_exists(Analytics::INTERNAL_LINKS_BROKEN_COUNT, $this->stats)) { 416007225e5Sgerardnico $brokenLinksCount = $this->stats[Analytics::INTERNAL_LINKS_BROKEN_COUNT]; 417ebdc69ceSgerardnico } 418007225e5Sgerardnico if ($brokenLinksCount > 2) { 419007225e5Sgerardnico $qualityScores['no_' . Analytics::INTERNAL_LINKS_BROKEN_COUNT] = 0; 420007225e5Sgerardnico $ruleResults[self::RULE_INTERNAL_BROKEN_LINKS_MAX] = self::FAILED; 421d262537cSgerardnico $ruleInfo[self::RULE_INTERNAL_BROKEN_LINKS_MAX] = "Delete the {$brokenLinksCount} broken links and add {$brokenLinkScore} points"; 422007225e5Sgerardnico } else { 423d262537cSgerardnico $qualityScores['no_' . Analytics::INTERNAL_LINKS_BROKEN_COUNT] = $brokenLinkScore; 424007225e5Sgerardnico $ruleResults[self::RULE_INTERNAL_BROKEN_LINKS_MAX] = self::PASSED; 425007225e5Sgerardnico } 426007225e5Sgerardnico 427007225e5Sgerardnico /** 428007225e5Sgerardnico * Changes, the more changes the better 429007225e5Sgerardnico */ 430ebdc69ceSgerardnico $qualityScores[Analytics::EDITS_COUNT] = $statExport[Analytics::EDITS_COUNT] * $this->getConf(self::CONF_QUALITY_SCORE_CHANGES_FACTOR, 0.25); 431007225e5Sgerardnico 432007225e5Sgerardnico 433007225e5Sgerardnico /** 434007225e5Sgerardnico * Quality Score 435007225e5Sgerardnico */ 436007225e5Sgerardnico ksort($qualityScores); 437007225e5Sgerardnico $qualityScoring = array(); 43808ca4f85Sgerardnico $qualityScoring[self::SCORE] = array_sum($qualityScores); 439007225e5Sgerardnico $qualityScoring["scores"] = $qualityScores; 440007225e5Sgerardnico 441007225e5Sgerardnico 442007225e5Sgerardnico /** 443007225e5Sgerardnico * The rule that if broken will set the quality level to low 444007225e5Sgerardnico */ 445007225e5Sgerardnico $brokenRules = array(); 446007225e5Sgerardnico foreach ($ruleResults as $ruleName => $ruleResult) { 447007225e5Sgerardnico if ($ruleResult == self::FAILED) { 448007225e5Sgerardnico $brokenRules[] = $ruleName; 449007225e5Sgerardnico } 450007225e5Sgerardnico } 451007225e5Sgerardnico $ruleErrorCount = sizeof($brokenRules); 452007225e5Sgerardnico if ($ruleErrorCount > 0) { 453007225e5Sgerardnico $qualityResult = $ruleErrorCount . " quality rules errors"; 454007225e5Sgerardnico } else { 455007225e5Sgerardnico $qualityResult = "All quality rules passed"; 456007225e5Sgerardnico } 457007225e5Sgerardnico 458007225e5Sgerardnico /** 459fa5961eaSgerardnico * Low level Computation 460007225e5Sgerardnico */ 461007225e5Sgerardnico $mandatoryRules = preg_split("/,/", $this->getConf(self::CONF_MANDATORY_QUALITY_RULES)); 462007225e5Sgerardnico $mandatoryRulesBroken = []; 463007225e5Sgerardnico foreach ($mandatoryRules as $lowLevelRule) { 464007225e5Sgerardnico if (in_array($lowLevelRule, $brokenRules)) { 465007225e5Sgerardnico $mandatoryRulesBroken[] = $lowLevelRule; 466007225e5Sgerardnico } 467007225e5Sgerardnico } 468fa5961eaSgerardnico /** 4696f847fc2Sgerardnico * If the low level is not set manually 470fa5961eaSgerardnico */ 471fa5961eaSgerardnico if (empty($this->analyticsMetadata[Page::LOW_QUALITY_PAGE_INDICATOR])) { 472007225e5Sgerardnico $lowLevel = false; 473007225e5Sgerardnico if (sizeof($mandatoryRulesBroken) > 0) { 474007225e5Sgerardnico $lowLevel = true; 475007225e5Sgerardnico } 4769b9e6d1fSgerardnico } else { 4776f847fc2Sgerardnico $lowLevel = filter_var($this->analyticsMetadata[Page::LOW_QUALITY_PAGE_INDICATOR], FILTER_VALIDATE_BOOLEAN); 4789b9e6d1fSgerardnico } 479*531e725cSNickeau if (!$this->page->isSlot()) { 4806f847fc2Sgerardnico $this->page->setLowQualityIndicator($lowLevel); 4815f891b7eSNickeau } else { 4825f891b7eSNickeau $this->page->setLowQualityIndicator(false); 4835f891b7eSNickeau } 484007225e5Sgerardnico 485007225e5Sgerardnico /** 486007225e5Sgerardnico * Building the quality object in order 487007225e5Sgerardnico */ 488f3748b38Sgerardnico $quality[Analytics::LOW] = $lowLevel; 489007225e5Sgerardnico if (sizeof($mandatoryRulesBroken) > 0) { 490007225e5Sgerardnico ksort($mandatoryRulesBroken); 491722648eaSgerardnico $quality[Analytics::FAILED_MANDATORY_RULES] = $mandatoryRulesBroken; 492007225e5Sgerardnico } 49308ca4f85Sgerardnico $quality[self::SCORING] = $qualityScoring; 494f3748b38Sgerardnico $quality[Analytics::RULES][self::RESULT] = $qualityResult; 495007225e5Sgerardnico if (!empty($ruleInfo)) { 496f3748b38Sgerardnico $quality[Analytics::RULES]["info"] = $ruleInfo; 497007225e5Sgerardnico } 498007225e5Sgerardnico 499007225e5Sgerardnico ksort($ruleResults); 500f3748b38Sgerardnico $quality[Analytics::RULES][Analytics::DETAILS] = $ruleResults; 501007225e5Sgerardnico 502007225e5Sgerardnico /** 503007225e5Sgerardnico * Metadata 504007225e5Sgerardnico */ 505fa5961eaSgerardnico $title = $dokuWikiMetadata['title']; 506fa5961eaSgerardnico $this->analyticsMetadata[Analytics::TITLE] = $title; 507*531e725cSNickeau if ($title != @$dokuWikiMetadata[Analytics::H1]) { 508*531e725cSNickeau $this->analyticsMetadata[Analytics::H1] = $dokuWikiMetadata[Analytics::H1]; 509c42a1196Sgerardnico } 510fa5961eaSgerardnico $timestampCreation = $dokuWikiMetadata['date']['created']; 511fa5961eaSgerardnico $this->analyticsMetadata[self::DATE_CREATED] = date('Y-m-d h:i:s', $timestampCreation); 512fa5961eaSgerardnico $timestampModification = $dokuWikiMetadata['date']['modified']; 513fa5961eaSgerardnico $this->analyticsMetadata[Analytics::DATE_MODIFIED] = date('Y-m-d h:i:s', $timestampModification); 514fa5961eaSgerardnico $this->analyticsMetadata['age_creation'] = round((time() - $timestampCreation) / 60 / 60 / 24); 515fa5961eaSgerardnico $this->analyticsMetadata['age_modification'] = round((time() - $timestampModification) / 60 / 60 / 24); 516007225e5Sgerardnico 517007225e5Sgerardnico 518007225e5Sgerardnico /** 519007225e5Sgerardnico * Building the Top JSON in order 520007225e5Sgerardnico */ 521007225e5Sgerardnico global $ID; 5222c067407Sgerardnico $finalStats = array(); 5232c067407Sgerardnico $finalStats["id"] = $ID; 524c42a1196Sgerardnico $finalStats["date"] = date('Y-m-d H:i:s', time()); 525fa5961eaSgerardnico $finalStats['metadata'] = $this->analyticsMetadata; 526007225e5Sgerardnico ksort($statExport); 5272c067407Sgerardnico $finalStats[Analytics::STATISTICS] = $statExport; 5282c067407Sgerardnico $finalStats[Analytics::QUALITY] = $quality; // Quality after the sort to get them at the end 529007225e5Sgerardnico 530007225e5Sgerardnico 531007225e5Sgerardnico /** 532007225e5Sgerardnico * The result can be seen with 533007225e5Sgerardnico * doku.php?id=somepage&do=export_combo_analysis 5347c33ecc6Sgerardnico * 5357c33ecc6Sgerardnico * Set the header temporarily for the export.php file 536007225e5Sgerardnico */ 5377c33ecc6Sgerardnico p_set_metadata( 5387c33ecc6Sgerardnico $ID, 5397c33ecc6Sgerardnico array("format" => array("combo_" . $this->getPluginComponent() => array("Content-Type" => 'application/json'))), 5407c33ecc6Sgerardnico false, 5417c33ecc6Sgerardnico false // Persistence is not needed, this is just in case this is an export 5427c33ecc6Sgerardnico ); 5432c067407Sgerardnico $json_encoded = json_encode($finalStats, JSON_PRETTY_PRINT); 544007225e5Sgerardnico 5457c33ecc6Sgerardnico $this->page->saveAnalytics($finalStats); 546007225e5Sgerardnico $this->doc .= $json_encoded; 547007225e5Sgerardnico 548007225e5Sgerardnico } 549007225e5Sgerardnico 550007225e5Sgerardnico /** 551007225e5Sgerardnico */ 552007225e5Sgerardnico public function getFormat() 553007225e5Sgerardnico { 554*531e725cSNickeau return self::RENDERER_FORMAT; 555007225e5Sgerardnico } 556007225e5Sgerardnico 557007225e5Sgerardnico public function internallink($id, $name = null, $search = null, $returnonly = false, $linktype = 'content') 558007225e5Sgerardnico { 559007225e5Sgerardnico 5609b9e6d1fSgerardnico $link = new LinkUtility($id); 5619b9e6d1fSgerardnico $link->setType(LinkUtility::TYPE_INTERNAL); 5629b9e6d1fSgerardnico $link->processLinkStats($this->stats); 563007225e5Sgerardnico 564007225e5Sgerardnico } 565007225e5Sgerardnico 566007225e5Sgerardnico public function externallink($url, $name = null) 567007225e5Sgerardnico { 568ef295d81Sgerardnico $link = new LinkUtility($url); 569ef295d81Sgerardnico $link->setType(LinkUtility::TYPE_EXTERNAL); 570ef295d81Sgerardnico if ($name != null) { 571ef295d81Sgerardnico $link->setName($name); 572ef295d81Sgerardnico } 573ef295d81Sgerardnico $link->processLinkStats($this->stats); 574007225e5Sgerardnico } 575007225e5Sgerardnico 576007225e5Sgerardnico public function header($text, $level, $pos) 577007225e5Sgerardnico { 578ebdc69ceSgerardnico if (!array_key_exists(Analytics::HEADERS_COUNT, $this->stats)) { 579ebdc69ceSgerardnico $this->stats[Analytics::HEADERS_COUNT] = []; 580ebdc69ceSgerardnico } 581ebdc69ceSgerardnico $heading = 'h' . $level; 582ebdc69ceSgerardnico if (!array_key_exists( 583ebdc69ceSgerardnico $heading, 584ebdc69ceSgerardnico $this->stats[Analytics::HEADERS_COUNT])) { 585ebdc69ceSgerardnico $this->stats[Analytics::HEADERS_COUNT][$heading] = 0; 586ebdc69ceSgerardnico } 587ebdc69ceSgerardnico $this->stats[Analytics::HEADERS_COUNT][$heading]++; 588ebdc69ceSgerardnico 589007225e5Sgerardnico $this->headerId++; 590ebdc69ceSgerardnico $this->stats[Analytics::HEADER_POSITION][$this->headerId] = $heading; 591ebdc69ceSgerardnico 592ebdc69ceSgerardnico /** 593ebdc69ceSgerardnico * Store the level of each heading 594ebdc69ceSgerardnico * They should only go from low to highest value 595ebdc69ceSgerardnico * for a good outline 596ebdc69ceSgerardnico */ 597ebdc69ceSgerardnico if (!array_key_exists(Analytics::HEADERS_COUNT, $this->stats)) { 598ebdc69ceSgerardnico $this->stats[self::HEADER_STRUCT] = []; 599ebdc69ceSgerardnico } 600ebdc69ceSgerardnico $this->stats[self::HEADER_STRUCT][] = $level; 601007225e5Sgerardnico 602007225e5Sgerardnico } 603007225e5Sgerardnico 604007225e5Sgerardnico public function smiley($smiley) 605007225e5Sgerardnico { 606007225e5Sgerardnico if ($smiley == 'FIXME') $this->stats[self::FIXME]++; 607007225e5Sgerardnico } 608007225e5Sgerardnico 609007225e5Sgerardnico public function linebreak() 610007225e5Sgerardnico { 611007225e5Sgerardnico if (!$this->tableopen) { 612007225e5Sgerardnico $this->stats['linebreak']++; 613007225e5Sgerardnico } 614007225e5Sgerardnico } 615007225e5Sgerardnico 616007225e5Sgerardnico public function table_open($maxcols = null, $numrows = null, $pos = null) // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 617007225e5Sgerardnico { 618007225e5Sgerardnico $this->tableopen = true; 619007225e5Sgerardnico } 620007225e5Sgerardnico 621007225e5Sgerardnico public function table_close($pos = null) // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 622007225e5Sgerardnico { 623007225e5Sgerardnico $this->tableopen = false; 624007225e5Sgerardnico } 625007225e5Sgerardnico 626007225e5Sgerardnico public function hr() 627007225e5Sgerardnico { 628007225e5Sgerardnico $this->stats['hr']++; 629007225e5Sgerardnico } 630007225e5Sgerardnico 631007225e5Sgerardnico public function quote_open() // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 632007225e5Sgerardnico { 633007225e5Sgerardnico $this->stats['quote_count']++; 634007225e5Sgerardnico $this->quotelevel++; 635007225e5Sgerardnico $this->stats['quote_nest'] = max($this->quotelevel, $this->stats['quote_nest']); 636007225e5Sgerardnico } 637007225e5Sgerardnico 638007225e5Sgerardnico public function quote_close() // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 639007225e5Sgerardnico { 640007225e5Sgerardnico $this->quotelevel--; 641007225e5Sgerardnico } 642007225e5Sgerardnico 643007225e5Sgerardnico public function strong_open() // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 644007225e5Sgerardnico { 645007225e5Sgerardnico $this->formattingBracket++; 646007225e5Sgerardnico } 647007225e5Sgerardnico 648007225e5Sgerardnico public function strong_close() // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 649007225e5Sgerardnico { 650007225e5Sgerardnico $this->formattingBracket--; 651007225e5Sgerardnico } 652007225e5Sgerardnico 653007225e5Sgerardnico public function emphasis_open() // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 654007225e5Sgerardnico { 655007225e5Sgerardnico $this->formattingBracket++; 656007225e5Sgerardnico } 657007225e5Sgerardnico 658007225e5Sgerardnico public function emphasis_close() // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 659007225e5Sgerardnico { 660007225e5Sgerardnico $this->formattingBracket--; 661007225e5Sgerardnico } 662007225e5Sgerardnico 663007225e5Sgerardnico public function underline_open() // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 664007225e5Sgerardnico { 665007225e5Sgerardnico $this->formattingBracket++; 666007225e5Sgerardnico } 667007225e5Sgerardnico 668007225e5Sgerardnico public function underline_close() // phpcs:ignore PSR1.Methods.CamelCapsMethodName.NotCamelCaps 669007225e5Sgerardnico { 670007225e5Sgerardnico $this->formattingBracket--; 671007225e5Sgerardnico } 672007225e5Sgerardnico 673007225e5Sgerardnico public function cdata($text) 674007225e5Sgerardnico { 675007225e5Sgerardnico 676007225e5Sgerardnico /** 677007225e5Sgerardnico * It seems that you receive cdata 678007225e5Sgerardnico * when emphasis_open / underline_open / strong_open 679007225e5Sgerardnico * Stats are not for them 680007225e5Sgerardnico */ 681007225e5Sgerardnico if (!$this->formattingBracket) return; 682007225e5Sgerardnico 683007225e5Sgerardnico $this->plainTextId++; 684007225e5Sgerardnico 685007225e5Sgerardnico /** 686007225e5Sgerardnico * Length 687007225e5Sgerardnico */ 688007225e5Sgerardnico $len = strlen($text); 689007225e5Sgerardnico $this->stats[self::PLAINTEXT][$this->plainTextId]['len'] = $len; 690007225e5Sgerardnico 691007225e5Sgerardnico 692007225e5Sgerardnico /** 693007225e5Sgerardnico * Multi-formatting 694007225e5Sgerardnico */ 695007225e5Sgerardnico if ($this->formattingBracket > 1) { 696007225e5Sgerardnico $numberOfFormats = 1 * ($this->formattingBracket - 1); 697007225e5Sgerardnico $this->stats[self::PLAINTEXT][$this->plainTextId]['multiformat'] += $numberOfFormats; 698007225e5Sgerardnico } 699007225e5Sgerardnico 700007225e5Sgerardnico /** 701007225e5Sgerardnico * Total 702007225e5Sgerardnico */ 703007225e5Sgerardnico $this->stats[self::PLAINTEXT][0] += $len; 704007225e5Sgerardnico } 705007225e5Sgerardnico 706007225e5Sgerardnico public function internalmedia($src, $title = null, $align = null, $width = null, $height = null, $cache = null, $linking = null) 707007225e5Sgerardnico { 708007225e5Sgerardnico $this->stats[Analytics::INTERNAL_MEDIAS_COUNT]++; 709007225e5Sgerardnico } 710007225e5Sgerardnico 711007225e5Sgerardnico public function externalmedia($src, $title = null, $align = null, $width = null, $height = null, $cache = null, $linking = null) 712007225e5Sgerardnico { 713007225e5Sgerardnico $this->stats[Analytics::EXTERNAL_MEDIAS]++; 714007225e5Sgerardnico } 715007225e5Sgerardnico 716007225e5Sgerardnico public function reset() 717007225e5Sgerardnico { 718007225e5Sgerardnico $this->stats = array(); 719fa5961eaSgerardnico $this->analyticsMetadata = array(); 720007225e5Sgerardnico $this->headerId = 0; 721007225e5Sgerardnico } 722007225e5Sgerardnico 723007225e5Sgerardnico public function setMeta($key, $value) 724007225e5Sgerardnico { 725fa5961eaSgerardnico $this->analyticsMetadata[$key] = $value; 726007225e5Sgerardnico } 727007225e5Sgerardnico 728007225e5Sgerardnico 729007225e5Sgerardnico} 730007225e5Sgerardnico 731