element */ private $report_title = false; /** @var bool Are we collecting data from <Footnote> elements */ private $process_footnote = true; /** @var bool Are we currently outputing data? */ private $print_data = false; /** @var bool[] Push-down stack of $print_data */ private $print_data_stack = array(); /** @var int */ private $process_gedcoms = 0; /** @var int */ private $process_ifs = 0; /** @var int */ private $process_repeats = 0; /** @var int Quantity of data to repeat during loops */ private $repeat_bytes = 0; /** @var array[] Repeated data when iterating over loops */ private $repeats = array(); /** @var array[] Nested repeating data */ private $repeats_stack = array(); /** @var string The current GEDCOM record */ private $gedrec = ''; /** @var string[] Nested GEDCOM records */ private $gedrec_stack = array(); /** @var ReportBaseElement The currently processed element */ private $current_element; /** @var ReportBaseElement The currently processed element */ private $footnote_element; /** @var string The GEDCOM fact currently being processed */ private $fact = ''; /** @var string The GEDCOM value currently being processed */ private $desc = ''; /** @var string The GEDCOM type currently being processed */ private $type = ''; /** @var int The current generational level */ private $generation = 1; /** @var array Source data for processing lists */ private $list = array(); /** @var int Number of items in lists */ private $list_total = 0; /** @var int Number of items filtered from lists */ private $list_private = 0; /** {@inheritDoc} */ public function __construct($report) { $this->current_element = new ReportBaseElement; parent::__construct($report); } /** *XML start element handler * * This function is called whenever a starting element is reached * The element handler will be called if found, otherwise it must be HTML * * @param resource $parser the resource handler for the XML parser * @param string $name the name of the XML element parsed * @param array $attrs an array of key value pairs for the attributes */ protected function startElement($parser, $name, $attrs) { global $vars; $newattrs = array(); foreach ($attrs as $key => $value) { if (preg_match("/^\\$(\w+)$/", $value, $match)) { if ((isset($vars[$match[1]]['id'])) && (!isset($vars[$match[1]]['gedcom']))) { $value = $vars[$match[1]]['id']; } } $newattrs[$key] = $value; } $attrs = $newattrs; if ($this->process_footnote && ($this->process_ifs === 0 || $name === "if") && ($this->process_gedcoms === 0 || $name === "Gedcom") && ($this->process_repeats === 0 || $name === "Facts" || $name === "RepeatTag")) { $start_method = $name . 'StartHandler'; $end_method = $name . 'EndHandler'; if (method_exists($this, $start_method)) { $this->$start_method($attrs); } elseif (!method_exists($this, $end_method)) { $this->htmlStartHandler($name, $attrs); } } } /** * XML end element handler * * This function is called whenever an ending element is reached * The element handler will be called if found, otherwise it must be HTML * * @param resource $parser the resource handler for the XML parser * @param string $name the name of the XML element parsed */ protected function endElement($parser, $name) { if (($this->process_footnote || $name === "Footnote") && ($this->process_ifs === 0 || $name === "if") && ($this->process_gedcoms === 0 || $name === "Gedcom") && ($this->process_repeats === 0 || $name === "Facts" || $name === "RepeatTag" || $name === "List" || $name === "Relatives")) { $start_method = $name . 'StartHandler'; $end_method = $name . 'EndHandler'; if (method_exists($this, $end_method)) { $this->$end_method(); } elseif (!method_exists($this, $start_method)) { $this->htmlEndHandler($name); } } } /** * XML character data handler * * @param resource $parser the resource handler for the XML parser * @param string $data the name of the XML element parsed */ protected function characterData($parser, $data) { global $wt_report; if ($this->print_data && ($this->process_gedcoms === 0) && ($this->process_ifs === 0) && ($this->process_repeats === 0)) { $this->current_element->addText($data); } elseif ($this->report_title) { $wt_report->addTitle($data); } elseif ($this->report_description) { $wt_report->addDescription($data); } } /** * XML <style> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function styleStartHandler($attrs) { global $wt_report; if (empty($attrs['name'])) { throw new \DomainException('REPORT ERROR Style: The "name" of the style is missing or not set in the XML file.'); } // array Style that will be passed on $s = array(); // string Name af the style $s['name'] = $attrs['name']; // string Name of the DEFAULT font $s['font'] = $wt_report->defaultFont; if (!empty($attrs['font'])) { $s['font'] = $attrs['font']; } // int The size of the font in points $s['size'] = $wt_report->defaultFontSize; if (!empty($attrs['size'])) { $s['size'] = (int) $attrs['size']; } // Get it as int to ignore all decimal points or text (if any text then int(0)) // string B: bold, I: italic, U: underline, D: line trough, The default value is regular. $s['style'] = ""; if (!empty($attrs['style'])) { $s['style'] = $attrs['style']; } $wt_report->addStyle($s); } /** * XML <Doc> start element handler * * Sets up the basics of the document proparties * * @param array $attrs an array of key value pairs for the attributes */ private function docStartHandler($attrs) { global $parser, $wt_report; $parser = $this->xml_parser; // Custom page width if (!empty($attrs['customwidth'])) { $wt_report->pagew = (int) $attrs['customwidth']; } // Get it as int to ignore all decimal points or text (if any text then int(0)) // Custom Page height if (!empty($attrs['customheight'])) { $wt_report->pageh = (int) $attrs['customheight']; } // Get it as int to ignore all decimal points or text (if any text then int(0)) // Left Margin if (isset($attrs['leftmargin'])) { if ($attrs['leftmargin'] === "0") { $wt_report->leftmargin = 0; } elseif (!empty($attrs['leftmargin'])) { $wt_report->leftmargin = (int) $attrs['leftmargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Right Margin if (isset($attrs['rightmargin'])) { if ($attrs['rightmargin'] === "0") { $wt_report->rightmargin = 0; } elseif (!empty($attrs['rightmargin'])) { $wt_report->rightmargin = (int) $attrs['rightmargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Top Margin if (isset($attrs['topmargin'])) { if ($attrs['topmargin'] === "0") { $wt_report->topmargin = 0; } elseif (!empty($attrs['topmargin'])) { $wt_report->topmargin = (int) $attrs['topmargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Bottom Margin if (isset($attrs['bottommargin'])) { if ($attrs['bottommargin'] === "0") { $wt_report->bottommargin = 0; } elseif (!empty($attrs['bottommargin'])) { $wt_report->bottommargin = (int) $attrs['bottommargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Header Margin if (isset($attrs['headermargin'])) { if ($attrs['headermargin'] === "0") { $wt_report->headermargin = 0; } elseif (!empty($attrs['headermargin'])) { $wt_report->headermargin = (int) $attrs['headermargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Footer Margin if (isset($attrs['footermargin'])) { if ($attrs['footermargin'] === "0") { $wt_report->footermargin = 0; } elseif (!empty($attrs['footermargin'])) { $wt_report->footermargin = (int) $attrs['footermargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Page Orientation if (!empty($attrs['orientation'])) { if ($attrs['orientation'] == "landscape") { $wt_report->orientation = "landscape"; } elseif ($attrs['orientation'] == "portrait") { $wt_report->orientation = "portrait"; } } // Page Size if (!empty($attrs['pageSize'])) { $wt_report->pageFormat = strtoupper($attrs['pageSize']); } // Show Generated By... if (isset($attrs['showGeneratedBy'])) { if ($attrs['showGeneratedBy'] === "0") { $wt_report->showGenText = false; } elseif ($attrs['showGeneratedBy'] === "1") { $wt_report->showGenText = true; } } $wt_report->setup(); } /** * XML </Doc> end element handler */ private function docEndHandler() { global $wt_report; $wt_report->run(); } /** * XML <Header> start element handler */ private function headerStartHandler() { global $wt_report; // Clear the Header before any new elements are added $wt_report->clearHeader(); $wt_report->setProcessing("H"); } /** * XML <PageHeader> start element handler */ private function pageHeaderStartHandler() { global $wt_reportStack, $wt_report, $ReportRoot; array_push($this->print_data_stack, $this->print_data); $this->print_data = false; array_push($wt_reportStack, $wt_report); $wt_report = $ReportRoot->createPageHeader(); } /** * XML <pageHeaderEndHandler> end element handler */ private function pageHeaderEndHandler() { global $wt_report, $wt_reportStack; $this->print_data = array_pop($this->print_data_stack); $this->current_element = $wt_report; $wt_report = array_pop($wt_reportStack); $wt_report->addElement($this->current_element); } /** * XML <bodyStartHandler> start element handler */ private function bodyStartHandler() { global $wt_report; $wt_report->setProcessing("B"); } /** * XML <footerStartHandler> start element handler */ private function footerStartHandler() { global $wt_report; $wt_report->setProcessing("F"); } /** * XML <Cell> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function cellStartHandler($attrs) { global $ReportRoot, $wt_report; // string The text alignment of the text in this box. $align = ""; if (!empty($attrs['align'])) { $align = $attrs['align']; // RTL supported left/right alignment if ($align == "rightrtl") { if ($wt_report->rtl) { $align = "left"; } else { $align = "right"; } } elseif ($align == "leftrtl") { if ($wt_report->rtl) { $align = "right"; } else { $align = "left"; } } } // string The color to fill the background of this cell $bgcolor = ""; if (!empty($attrs['bgcolor'])) { $bgcolor = $attrs['bgcolor']; } // int Whether or not the background should be painted $fill = 1; if (isset($attrs['fill'])) { if ($attrs['fill'] === "0") { $fill = 0; } elseif ($attrs['fill'] === "1") { $fill = 1; } } $reseth = true; // boolean if true reset the last cell height (default true) if (isset($attrs['reseth'])) { if ($attrs['reseth'] === "0") { $reseth = false; } elseif ($attrs['reseth'] === "1") { $reseth = true; } } // mixed Whether or not a border should be printed around this box $border = 0; if (!empty($attrs['border'])) { $border = $attrs['border']; } // string Border color in HTML code $bocolor = ""; if (!empty($attrs['bocolor'])) { $bocolor = $attrs['bocolor']; } // int Cell height (expressed in points) The starting height of this cell. If the text wraps the height will automatically be adjusted. $height = 0; if (!empty($attrs['height'])) { $height = (int) $attrs['height']; } // int Cell width (expressed in points) Setting the width to 0 will make it the width from the current location to the right margin. $width = 0; if (!empty($attrs['width'])) { $width = (int) $attrs['width']; } // int Stretch carachter mode $stretch = 0; if (!empty($attrs['stretch'])) { $stretch = (int) $attrs['stretch']; } // mixed Position the left corner of this box on the page. The default is the current position. $left = "."; if (isset($attrs['left'])) { if ($attrs['left'] === ".") { $left = "."; } elseif (!empty($attrs['left'])) { $left = (int) $attrs['left']; } elseif ($attrs['left'] === "0") { $left = 0; } } // mixed Position the top corner of this box on the page. the default is the current position $top = "."; if (isset($attrs['top'])) { if ($attrs['top'] === ".") { $top = "."; } elseif (!empty($attrs['top'])) { $top = (int) $attrs['top']; } elseif ($attrs['top'] === "0") { $top = 0; } } // string The name of the Style that should be used to render the text. $style = ""; if (!empty($attrs['style'])) { $style = $attrs['style']; } // string Text color in html code $tcolor = ""; if (!empty($attrs['tcolor'])) { $tcolor = $attrs['tcolor']; } // int Indicates where the current position should go after the call. $ln = 0; if (isset($attrs['newline'])) { if (!empty($attrs['newline'])) { $ln = (int) $attrs['newline']; } elseif ($attrs['newline'] === "0") { $ln = 0; } } if ($align == "left") { $align = "L"; } elseif ($align == "right") { $align = "R"; } elseif ($align == "center") { $align = "C"; } elseif ($align == "justify") { $align = "J"; } array_push($this->print_data_stack, $this->print_data); $this->print_data = true; $this->current_element = $ReportRoot->createCell( $width, $height, $border, $align, $bgcolor, $style, $ln, $top, $left, $fill, $stretch, $bocolor, $tcolor, $reseth ); } /** * XML </Cell> end element handler */ private function cellEndHandler() { global $wt_report; $this->print_data = array_pop($this->print_data_stack); $wt_report->addElement($this->current_element); } /** * XML <Now /> element handler */ private function nowStartHandler() { $g = timestamp_to_gedcom_date(WT_TIMESTAMP + WT_TIMESTAMP_OFFSET); $this->current_element->addText($g->display()); } /** * XML <PageNum /> element handler */ private function pageNumStartHandler() { $this->current_element->addText("#PAGENUM#"); } /** * XML <TotalPages /> element handler */ private function totalPagesStartHandler() { $this->current_element->addText("{{:ptp:}}"); } /** * Called at the start of an element. * * @param array $attrs an array of key value pairs for the attributes */ private function gedcomStartHandler($attrs) { global $vars, $WT_TREE; if ($this->process_gedcoms > 0) { $this->process_gedcoms++; return; } $tag = $attrs['id']; $tag = str_replace("@fact", $this->fact, $tag); $tags = explode(":", $tag); $newgedrec = ''; if (count($tags) < 2) { $tmp = GedcomRecord::getInstance($attrs['id'], $WT_TREE); $newgedrec = $tmp ? $tmp->privatizeGedcom(Auth::accessLevel($WT_TREE)) : ''; } if (empty($newgedrec)) { $tgedrec = $this->gedrec; $newgedrec = ''; foreach ($tags as $tag) { if (preg_match("/\\$(.+)/", $tag, $match)) { if (isset($vars[$match[1]]['gedcom'])) { $newgedrec = $vars[$match[1]]['gedcom']; } else { $tmp = GedcomRecord::getInstance($match[1], $WT_TREE); $newgedrec = $tmp ? $tmp->privatizeGedcom(Auth::accessLevel($WT_TREE)) : ''; } } else { if (preg_match("/@(.+)/", $tag, $match)) { $gmatch = array(); if (preg_match("/\d $match[1] @([^@]+)@/", $tgedrec, $gmatch)) { $tmp = GedcomRecord::getInstance($gmatch[1], $WT_TREE); $newgedrec = $tmp ? $tmp->privatizeGedcom(Auth::accessLevel($WT_TREE)) : ''; $tgedrec = $newgedrec; } else { $newgedrec = ''; break; } } else { $temp = explode(" ", trim($tgedrec)); $level = $temp[0] + 1; $newgedrec = get_sub_record($level, "$level $tag", $tgedrec); $tgedrec = $newgedrec; } } } } if (!empty($newgedrec)) { array_push($this->gedrec_stack, array($this->gedrec, $this->fact, $this->desc)); $this->gedrec = $newgedrec; if (preg_match("/(\d+) (_?[A-Z0-9]+) (.*)/", $this->gedrec, $match)) { $this->fact = $match[2]; $this->desc = trim($match[3]); } } else { $this->process_gedcoms++; } } /** * Called at the end of an element. */ private function gedcomEndHandler() { if ($this->process_gedcoms > 0) { $this->process_gedcoms--; } else { list($this->gedrec, $this->fact, $this->desc) = array_pop($this->gedrec_stack); } } /** * XML <textBoxStartHandler> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function textBoxStartHandler($attrs) { global $wt_report, $wt_reportStack, $ReportRoot; // string Background color code $bgcolor = ""; if (!empty($attrs['bgcolor'])) { $bgcolor = $attrs['bgcolor']; } // boolean Wether or not fill the background color $fill = true; if (isset($attrs['fill'])) { if ($attrs['fill'] === "0") { $fill = false; } elseif ($attrs['fill'] === "1") { $fill = true; } } // var boolean Whether or not a border should be printed around this box. 0 = no border, 1 = border. Default is 0 $border = false; if (isset($attrs['border'])) { if ($attrs['border'] === "1") { $border = true; } elseif ($attrs['border'] === "0") { $border = false; } } // int The starting height of this cell. If the text wraps the height will automatically be adjusted $height = 0; if (!empty($attrs['height'])) { $height = (int) $attrs['height']; } // int Setting the width to 0 will make it the width from the current location to the margin $width = 0; if (!empty($attrs['width'])) { $width = (int) $attrs['width']; } // mixed Position the left corner of this box on the page. The default is the current position. $left = "."; if (isset($attrs['left'])) { if ($attrs['left'] === ".") { $left = "."; } elseif (!empty($attrs['left'])) { $left = (int) $attrs['left']; } elseif ($attrs['left'] === "0") { $left = 0; } } // mixed Position the top corner of this box on the page. the default is the current position $top = "."; if (isset($attrs['top'])) { if ($attrs['top'] === ".") { $top = "."; } elseif (!empty($attrs['top'])) { $top = (int) $attrs['top']; } elseif ($attrs['top'] === "0") { $top = 0; } } // boolean After this box is finished rendering, should the next section of text start immediately after the this box or should it start on a new line under this box. 0 = no new line, 1 = force new line. Default is 0 $newline = false; if (isset($attrs['newline'])) { if ($attrs['newline'] === "1") { $newline = true; } elseif ($attrs['newline'] === "0") { $newline = false; } } // boolean $pagecheck = true; if (isset($attrs['pagecheck'])) { if ($attrs['pagecheck'] === "0") { $pagecheck = false; } elseif ($attrs['pagecheck'] === "1") { $pagecheck = true; } } // boolean Cell padding $padding = true; if (isset($attrs['padding'])) { if ($attrs['padding'] === "0") { $padding = false; } elseif ($attrs['padding'] === "1") { $padding = true; } } // boolean Reset this box Height $reseth = false; if (isset($attrs['reseth'])) { if ($attrs['reseth'] === "1") { $reseth = true; } elseif ($attrs['reseth'] === "0") { $reseth = false; } } // string Style of rendering $style = ""; array_push($this->print_data_stack, $this->print_data); $this->print_data = false; array_push($wt_reportStack, $wt_report); $wt_report = $ReportRoot->createTextBox( $width, $height, $border, $bgcolor, $newline, $left, $top, $pagecheck, $style, $fill, $padding, $reseth ); } /** * XML <textBoxEndHandler> end element handler */ private function textBoxEndHandler() { global $wt_report, $wt_reportStack; $this->print_data = array_pop($this->print_data_stack); $this->current_element = $wt_report; $wt_report = array_pop($wt_reportStack); $wt_report->addElement($this->current_element); } /** * @param array $attrs an array of key value pairs for the attributes */ private function textStartHandler($attrs) { global $ReportRoot; array_push($this->print_data_stack, $this->print_data); $this->print_data = true; // string The name of the Style that should be used to render the text. $style = ""; if (!empty($attrs['style'])) { $style = $attrs['style']; } // string The color of the text - Keep the black color as default $color = ""; if (!empty($attrs['color'])) { $color = $attrs['color']; } $this->current_element = $ReportRoot->createText($style, $color); } /** * */ private function textEndHandler() { global $wt_report; $this->print_data = array_pop($this->print_data_stack); $wt_report->addElement($this->current_element); } /** * XML <GetPersonName> start element handler * Get the name * 1. id is empty - current GEDCOM record * 2. id is set with a record id * * @param array $attrs an array of key value pairs for the attributes */ private function getPersonNameStartHandler($attrs) { global $vars, $WT_TREE; $id = ""; $match = array(); if (empty($attrs['id'])) { if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $id = $match[1]; } } else { if (preg_match("/\\$(.+)/", $attrs['id'], $match)) { if (isset($vars[$match[1]]['id'])) { $id = $vars[$match[1]]['id']; } } else { if (preg_match("/@(.+)/", $attrs['id'], $match)) { $gmatch = array(); if (preg_match("/\d $match[1] @([^@]+)@/", $this->gedrec, $gmatch)) { $id = $gmatch[1]; } } else { $id = $attrs['id']; } } } if (!empty($id)) { $record = GedcomRecord::getInstance($id, $WT_TREE); if (is_null($record)) { return; } if (!$record->canShowName()) { $this->current_element->addText(I18N::translate('Private')); } else { $name = $record->getFullName(); $name = preg_replace( array('/<span class="starredname">/', '/<\/span><\/span>/', '/<\/span>/'), array('«', '', '»'), $name ); $name = strip_tags($name); if (!empty($attrs['truncate'])) { if (mb_strlen($name) > $attrs['truncate']) { $name = preg_replace("/$.*$ ?/", '', $name); //removes () and text inbetween - what about ", [ and { etc? $words = preg_split('/[, -]+/', $name); // names separated with space, comma or hyphen - any others? $name = $words[count($words) - 1]; for ($i = count($words) - 2; $i >= 0; $i--) { $len = mb_strlen($name); for ($j = count($words) - 3; $j >= 0; $j--) { $len += mb_strlen($words[$j]); } if ($len > $attrs['truncate']) { $first_letter = mb_substr($words[$i], 0, 1); // Do not show " of nick-names if ($first_letter != "\"") { $name = mb_substr($words[$i], 0, 1) . '. ' . $name; } } else { $name = $words[$i] . ' ' . $name; } } } } else { $addname = $record->getAddName(); $addname = preg_replace( array('/<span class="starredname">/', '/<\/span><\/span>/', '/<\/span>/'), array('«', '', '»'), $addname ); $addname = strip_tags($addname); if (!empty($addname)) { $name .= " " . $addname; } } $this->current_element->addText(trim($name)); } } } /** * XML <GedcomValue> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function gedcomValueStartHandler($attrs) { global $WT_TREE; $id = ""; $match = array(); if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $id = $match[1]; } if (isset($attrs['newline']) && $attrs['newline'] == "1") { $useBreak = "1"; } else { $useBreak = "0"; } $tag = $attrs['tag']; if (!empty($tag)) { if ($tag == "@desc") { $value = $this->desc; $value = trim($value); $this->current_element->addText($value); } if ($tag == "@id") { $this->current_element->addText($id); } else { $tag = str_replace("@fact", $this->fact, $tag); if (empty($attrs['level'])) { $temp = explode(" ", trim($this->gedrec)); $level = $temp[0]; if ($level == 0) { $level++; } } else { $level = $attrs['level']; } $tags = preg_split('/[: ]/', $tag); $value = get_gedcom_value($tag, $level, $this->gedrec); switch (end($tags)) { case 'DATE': $tmp = new Date($value); $value = $tmp->display(); break; case 'PLAC': $tmp = new Place($value, $WT_TREE); $value = $tmp->getShortName(); break; } if ($useBreak == "1") { // Insert <br> when multiple dates exist. // This works around a TCPDF bug that incorrectly wraps RTL dates on LTR pages $value = str_replace('(', '<br>(', $value); $value = str_replace('<span dir="ltr"><br>', '<br><span dir="ltr">', $value); $value = str_replace('<span dir="rtl"><br>', '<br><span dir="rtl">', $value); if (substr($value, 0, 6) == '<br>') { $value = substr($value, 6); } } $this->current_element->addText($value); } } } /** * XML <RepeatTag> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function repeatTagStartHandler($attrs) { global $parser; $this->process_repeats++; if ($this->process_repeats > 1) { return; } array_push($this->repeats_stack, array($this->repeats, $this->repeat_bytes)); $this->repeats = array(); $this->repeat_bytes = xml_get_current_line_number($parser); $tag = ""; if (isset($attrs['tag'])) { $tag = $attrs['tag']; } if (!empty($tag)) { if ($tag == "@desc") { $value = $this->desc; $value = trim($value); $this->current_element->addText($value); } else { $tag = str_replace("@fact", $this->fact, $tag); $tags = explode(":", $tag); $temp = explode(" ", trim($this->gedrec)); $level = $temp[0]; if ($level == 0) { $level++; } $subrec = $this->gedrec; $t = $tag; $count = count($tags); $i = 0; while ($i < $count) { $t = $tags[$i]; if (!empty($t)) { if ($i < ($count - 1)) { $subrec = get_sub_record($level, "$level $t", $subrec); if (empty($subrec)) { $level--; $subrec = get_sub_record($level, "@ $t", $this->gedrec); if (empty($subrec)) { return; } } } $level++; } $i++; } $level--; $count = preg_match_all("/$level $t(.*)/", $subrec, $match, PREG_SET_ORDER); $i = 0; while ($i < $count) { $this->repeats[] = get_sub_record($level, "$level $t", $subrec, $i + 1); $i++; } } } } /** * XML </ RepeatTag> end element handler */ private function repeatTagEndHandler() { global $parser, $parserStack, $report; $this->process_repeats--; if ($this->process_repeats > 0) { return; } // Check if there is anything to repeat if (count($this->repeats) > 0) { // No need to load them if not used... $lineoffset = 0; foreach ($this->repeats_stack as $rep) { $lineoffset += $rep[1]; } //-- read the xml from the file $lines = file($report); while (strpos($lines[$lineoffset + $this->repeat_bytes], "<RepeatTag") === false) { $lineoffset--; } $lineoffset++; $reportxml = "<tempdoc>\n"; $line_nr = $lineoffset + $this->repeat_bytes; // RepeatTag Level counter $count = 1; while (0 < $count) { if (strstr($lines[$line_nr], "<RepeatTag") !== false) { $count++; } elseif (strstr($lines[$line_nr], "</RepeatTag") !== false) { $count--; } if (0 < $count) { $reportxml .= $lines[$line_nr]; } $line_nr++; } // No need to drag this unset($lines); $reportxml .= "</tempdoc>\n"; // Save original values array_push($parserStack, $parser); $oldgedrec = $this->gedrec; foreach ($this->repeats as $gedrec) { $this->gedrec = $gedrec; $repeat_parser = xml_parser_create(); $parser = $repeat_parser; xml_parser_set_option($repeat_parser, XML_OPTION_CASE_FOLDING, false); xml_set_element_handler($repeat_parser, array($this, 'startElement'), array($this, 'endElement')); xml_set_character_data_handler($repeat_parser, array($this, 'characterData')); if (!xml_parse($repeat_parser, $reportxml, true)) { throw new \DomainException(sprintf( 'RepeatTagEHandler XML error: %s at line %d', xml_error_string(xml_get_error_code($repeat_parser)), xml_get_current_line_number($repeat_parser) )); } xml_parser_free($repeat_parser); } // Restore original values $this->gedrec = $oldgedrec; $parser = array_pop($parserStack); } list($this->repeats, $this->repeat_bytes) = array_pop($this->repeats_stack); } /** * Variable lookup * * Retrieve predefined variables : * * @ desc GEDCOM fact description, example: * 1 EVEN This is a description * @ fact GEDCOM fact tag, such as BIRT, DEAT etc. * $ I18N::translate('....') * $ language_settings[] * * @param array $attrs an array of key value pairs for the attributes */ private function varStartHandler($attrs) { global $parser, $vars; if (empty($attrs['var'])) { throw new \DomainException('REPORT ERROR var: The attribute "var=" is missing or not set in the XML file on line: ' . xml_get_current_line_number($parser)); } $var = $attrs['var']; // SetVar element preset variables if (!empty($vars[$var]['id'])) { $var = $vars[$var]['id']; } else { $tfact = $this->fact; if (($this->fact === "EVEN" || $this->fact === "FACT") && $this->type !== " ") { // Use : // n TYPE This text if string $tfact = $this->type; } $var = str_replace(array("@fact", "@desc"), array(GedcomTag::getLabel($tfact), $this->desc), $var); if (preg_match('/^I18N::number$(.+)$$/', $var, $match)) { $var = I18N::number($match[1]); } elseif (preg_match('/^I18N::translate$\'(.+)\'$$/', $var, $match)) { $var = I18N::translate($match[1]); } elseif (preg_match('/^I18N::translate_c$\'(.+)\', *\'(.+)\'$$/', $var, $match)) { $var = I18N::translateContext($match[1], $match[2]); } } // Check if variable is set as a date and reformat the date if (isset($attrs['date'])) { if ($attrs['date'] === "1") { $g = new Date($var); $var = $g->display(); } } $this->current_element->addText($var); } /** * @param array $attrs an array of key value pairs for the attributes */ private function factsStartHandler($attrs) { global $parser, $vars, $WT_TREE; $this->process_repeats++; if ($this->process_repeats > 1) { return; } array_push($this->repeats_stack, array($this->repeats, $this->repeat_bytes)); $this->repeats = array(); $this->repeat_bytes = xml_get_current_line_number($parser); $id = ""; $match = array(); if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $id = $match[1]; } $tag = ""; if (isset($attrs['ignore'])) { $tag .= $attrs['ignore']; } if (preg_match("/\\$(.+)/", $tag, $match)) { $tag = $vars[$match[1]]['id']; } $record = GedcomRecord::getInstance($id, $WT_TREE); if (empty($attrs['diff']) && !empty($id)) { $facts = $record->getFacts(); sort_facts($facts); $this->repeats = array(); $nonfacts = explode(',', $tag); foreach ($facts as $event) { if (!in_array($event->getTag(), $nonfacts)) { $this->repeats[] = $event->getGedcom(); } } } else { foreach ($record->getFacts() as $fact) { if ($fact->isPendingAddition() && $fact->getTag() !== 'CHAN') { $this->repeats[] = $fact->getGedcom(); } } } } /** * XML </ Facts> end element handler */ private function factsEndHandler() { global $parser, $parserStack, $report; $this->process_repeats--; if ($this->process_repeats > 0) { return; } // Check if there is anything to repeat if (count($this->repeats) > 0) { $line = xml_get_current_line_number($parser) - 1; $lineoffset = 0; foreach ($this->repeats_stack as $rep) { $lineoffset += $rep[1]; } //-- read the xml from the file $lines = file($report); while ($lineoffset + $this->repeat_bytes > 0 && strpos($lines[$lineoffset + $this->repeat_bytes], '<Facts ') === false) { $lineoffset--; } $lineoffset++; $reportxml = "<tempdoc>\n"; $i = $line + $lineoffset; $line_nr = $this->repeat_bytes + $lineoffset; while ($line_nr < $i) { $reportxml .= $lines[$line_nr]; $line_nr++; } // No need to drag this unset($lines); $reportxml .= "</tempdoc>\n"; // Save original values array_push($parserStack, $parser); $oldgedrec = $this->gedrec; $count = count($this->repeats); $i = 0; while ($i < $count) { $this->gedrec = $this->repeats[$i]; $this->fact = ''; $this->desc = ''; if (preg_match('/1 (\w+)(.*)/', $this->gedrec, $match)) { $this->fact = $match[1]; if ($this->fact === 'EVEN' || $this->fact === 'FACT') { $tmatch = array(); if (preg_match('/2 TYPE (.+)/', $this->gedrec, $tmatch)) { $this->type = trim($tmatch[1]); } else { $this->type = ' '; } } $this->desc = trim($match[2]); $this->desc .= get_cont(2, $this->gedrec); } $repeat_parser = xml_parser_create(); $parser = $repeat_parser; xml_parser_set_option($repeat_parser, XML_OPTION_CASE_FOLDING, false); xml_set_element_handler($repeat_parser, array($this, 'startElement'), array($this, 'endElement')); xml_set_character_data_handler($repeat_parser, array($this, 'characterData')); if (!xml_parse($repeat_parser, $reportxml, true)) { throw new \DomainException(sprintf( 'FactsEHandler XML error: %s at line %d', xml_error_string(xml_get_error_code($repeat_parser)), xml_get_current_line_number($repeat_parser) )); } xml_parser_free($repeat_parser); $i++; } // Restore original values $parser = array_pop($parserStack); $this->gedrec = $oldgedrec; } list($this->repeats, $this->repeat_bytes) = array_pop($this->repeats_stack); } /** * Setting upp or changing variables in the XML * The XML variable name and value is stored in the global variable $vars * * @param array $attrs an array of key value pairs for the attributes */ private function setVarStartHandler($attrs) { global $vars; if (empty($attrs['name'])) { throw new \DomainException('REPORT ERROR var: The attribute "name" is missing or not set in the XML file'); } $name = $attrs['name']; $value = $attrs['value']; $match = array(); // Current GEDCOM record strings if ($value == "@ID") { if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $value = $match[1]; } } elseif ($value == "@fact") { $value = $this->fact; } elseif ($value == "@desc") { $value = $this->desc; } elseif ($value == "@generation") { $value = $this->generation; } elseif (preg_match("/@(\w+)/", $value, $match)) { $gmatch = array(); if (preg_match("/\d $match[1] (.+)/", $this->gedrec, $gmatch)) { $value = str_replace("@", "", trim($gmatch[1])); } } if (preg_match("/\\$(\w+)/", $name, $match)) { $name = $vars["'" . $match[1] . "'"]['id']; } $count = preg_match_all("/\\$(\w+)/", $value, $match, PREG_SET_ORDER); $i = 0; while ($i < $count) { $t = $vars[$match[$i][1]]['id']; $value = preg_replace("/\\$" . $match[$i][1] . "/", $t, $value, 1); $i++; } if (preg_match('/^I18N::number$(.+)$$/', $value, $match)) { $value = I18N::number($match[1]); } elseif (preg_match('/^I18N::translate$\'(.+)\'$$/', $value, $match)) { $value = I18N::translate($match[1]); } elseif (preg_match('/^I18N::translate_c$\'(.+)\', *\'(.+)\'$$/', $value, $match)) { $value = I18N::translateContext($match[1], $match[2]); } // Arithmetic functions if (preg_match("/(\d+)\s*([\-\+\*\/])\s*(\d+)/", $value, $match)) { switch ($match[2]) { case "+": $t = $match[1] + $match[3]; $value = preg_replace("/" . $match[1] . "\s*([\-\+\*\/])\s*" . $match[3] . "/", $t, $value); break; case "-": $t = $match[1] - $match[3]; $value = preg_replace("/" . $match[1] . "\s*([\-\+\*\/])\s*" . $match[3] . "/", $t, $value); break; case "*": $t = $match[1] * $match[3]; $value = preg_replace("/" . $match[1] . "\s*([\-\+\*\/])\s*" . $match[3] . "/", $t, $value); break; case "/": $t = $match[1] / $match[3]; $value = preg_replace("/" . $match[1] . "\s*([\-\+\*\/])\s*" . $match[3] . "/", $t, $value); break; } } if (strpos($value, "@") !== false) { $value = ""; } $vars[$name]['id'] = $value; } /** * XML <if > start element * * @param array $attrs an array of key value pairs for the attributes */ private function ifStartHandler($attrs) { global $vars; if ($this->process_ifs > 0) { $this->process_ifs++; return; } $condition = $attrs['condition']; $condition = preg_replace("/\\$(\w+)/", "\$vars[\"$1\"][\"id\"]", $condition); $condition = str_replace(array(" LT ", " GT "), array("<", ">"), $condition); // Replace the first accurance only once of @fact:DATE or in any other combinations to the current fact, such as BIRT $condition = str_replace("@fact", $this->fact, $condition); $match = array(); $count = preg_match_all("/@([\w:\.]+)/", $condition, $match, PREG_SET_ORDER); $i = 0; while ($i < $count) { $id = $match[$i][1]; $value = '""'; if ($id == "ID") { if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $value = "'" . $match[1] . "'"; } } elseif ($id === "fact") { $value = '"' . $this->fact . '"'; } elseif ($id === "desc") { $value = '"' . addslashes($this->desc) . '"'; } elseif ($id === "generation") { $value = '"' . $this->generation . '"'; } else { $temp = explode(" ", trim($this->gedrec)); $level = $temp[0]; if ($level == 0) { $level++; } $value = get_gedcom_value($id, $level, $this->gedrec); if (empty($value)) { $level++; $value = get_gedcom_value($id, $level, $this->gedrec); } $value = preg_replace("/^@(" . WT_REGEX_XREF . ")@$/", "$1", $value); $value = "\"" . addslashes($value) . "\""; } $condition = str_replace("@$id", $value, $condition); $i++; } $condition = "return (bool) ($condition);"; $ret = @eval($condition); if (!$ret) { $this->process_ifs++; } } /** * XML <if /> end element */ private function ifEndHandler() { if ($this->process_ifs > 0) { $this->process_ifs--; } } /** * XML <Footnote > start element * Collect the Footnote links * GEDCOM Records that are protected by Privacy setting will be ignore * * @param array $attrs an array of key value pairs for the attributes */ private function footnoteStartHandler($attrs) { global $ReportRoot, $WT_TREE; $id = ""; if (preg_match("/[0-9] (.+) @(.+)@/", $this->gedrec, $match)) { $id = $match[2]; } $record = GedcomRecord::GetInstance($id, $WT_TREE); if ($record && $record->canShow()) { array_push($this->print_data_stack, $this->print_data); $this->print_data = true; $style = ""; if (!empty($attrs['style'])) { $style = $attrs['style']; } $this->footnote_element = $this->current_element; $this->current_element = $ReportRoot->createFootnote($style); } else { $this->print_data = false; $this->process_footnote = false; } } /** * XML <Footnote /> end element * Print the collected Footnote data */ private function footnoteEndHandler() { global $wt_report; if ($this->process_footnote) { $this->print_data = array_pop($this->print_data_stack); $temp = trim($this->current_element->getValue()); if (strlen($temp) > 3) { $wt_report->addElement($this->current_element); } $this->current_element = $this->footnote_element; } else { $this->process_footnote = true; } } /** * XML <FootnoteTexts /> element */ private function footnoteTextsStartHandler() { global $wt_report; $temp = "footnotetexts"; $wt_report->addElement($temp); } /** * XML <AgeAtDeath /> element handler */ private function ageAtDeathStartHandler() { // This duplicates functionality in format_fact_date() global $factrec, $WT_TREE; $match = array(); if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $person = Individual::getInstance($match[1], $WT_TREE); // Recorded age if (preg_match('/\n2 AGE (.+)/', $factrec, $match)) { $fact_age = $match[1]; } else { $fact_age = ''; } if (preg_match('/\n2 HUSB\n3 AGE (.+)/', $factrec, $match)) { $husb_age = $match[1]; } else { $husb_age = ''; } if (preg_match('/\n2 WIFE\n3 AGE (.+)/', $factrec, $match)) { $wife_age = $match[1]; } else { $wife_age = ''; } // Calculated age $birth_date = $person->getBirthDate(); // Can't use getDeathDate(), as this also gives BURI/CREM events, which // wouldn't give the correct "days after death" result for people with // no DEAT. $death_event = $person->getFirstFact('DEAT'); if ($death_event) { $death_date = $death_event->getDate(); } else { $death_date = new Date(''); } $value = ''; if (Date::compare($birth_date, $death_date) <= 0 || !$person->isDead()) { $age = Date::getAgeGedcom($birth_date, $death_date); // Only show calculated age if it differs from recorded age if ($age != '' && $age != "0d") { if ($fact_age != '' && $fact_age != $age || $fact_age == '' && $husb_age == '' && $wife_age == '' || $husb_age != '' && $person->getSex() == 'M' && $husb_age != $age || $wife_age != '' && $person->getSex() == 'F' && $wife_age != $age ) { $value = get_age_at_event($age, false); $abbrev = substr($value, 0, strpos($value, ' ') + 5); if ($value !== $abbrev) { $value = $abbrev . '.'; } } } } $this->current_element->addText($value); } } /** * XML element Forced line break handler - HTML code */ private function brStartHandler() { if ($this->print_data && $this->process_gedcoms === 0) { $this->current_element->addText('<br>'); } } /** * XML <sp />element Forced space handler */ private function spStartHandler() { if ($this->print_data && $this->process_gedcoms === 0) { $this->current_element->addText(' '); } } /** * @param array $attrs an array of key value pairs for the attributes */ private function highlightedImageStartHandler($attrs) { global $wt_report, $ReportRoot, $WT_TREE; $id = ''; $match = array(); if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $id = $match[1]; } // mixed Position the top corner of this box on the page. the default is the current position $top = '.'; if (isset($attrs['top'])) { if ($attrs['top'] === '0') { $top = 0; } elseif ($attrs['top'] === '.') { $top = '.'; } elseif (!empty($attrs['top'])) { $top = (int) $attrs['top']; } } // mixed Position the left corner of this box on the page. the default is the current position $left = '.'; if (isset($attrs['left'])) { if ($attrs['left'] === '0') { $left = 0; } elseif ($attrs['left'] === '.') { $left = '.'; } elseif (!empty($attrs['left'])) { $left = (int) $attrs['left']; } } // string Align the image in left, center, right $align = ''; if (!empty($attrs['align'])) { $align = $attrs['align']; } // string Next Line should be T:next to the image, N:next line $ln = ''; if (!empty($attrs['ln'])) { $ln = $attrs['ln']; } $width = 0; $height = 0; if (!empty($attrs['width'])) { $width = (int) $attrs['width']; } if (!empty($attrs['height'])) { $height = (int) $attrs['height']; } $person = Individual::getInstance($id, $WT_TREE); $mediaobject = $person->findHighlightedMedia(); if ($mediaobject) { $attributes = $mediaobject->getImageAttributes('thumb'); if (in_array( $attributes['ext'], array( 'GIF', 'JPG', 'PNG', 'SWF', 'PSD', 'BMP', 'TIFF', 'TIFF', 'JPC', 'JP2', 'JPX', 'JB2', 'SWC', 'IFF', 'WBMP', 'XBM', ) ) && $mediaobject->canShow() && $mediaobject->fileExists('thumb') ) { if ($width > 0 && $height == 0) { $perc = $width / $attributes['adjW']; $height = round($attributes['adjH'] * $perc); } elseif ($height > 0 && $width == 0) { $perc = $height / $attributes['adjH']; $width = round($attributes['adjW'] * $perc); } else { $width = $attributes['adjW']; $height = $attributes['adjH']; } $image = $ReportRoot->createImageFromObject($mediaobject, $left, $top, $width, $height, $align, $ln); $wt_report->addElement($image); } } } /** * @param array $attrs an array of key value pairs for the attributes */ private function imageStartHandler($attrs) { global $wt_report, $ReportRoot, $WT_TREE; // mixed Position the top corner of this box on the page. the default is the current position $top = '.'; if (isset($attrs['top'])) { if ($attrs['top'] === "0") { $top = 0; } elseif ($attrs['top'] === '.') { $top = '.'; } elseif (!empty($attrs['top'])) { $top = (int) $attrs['top']; } } // mixed Position the left corner of this box on the page. the default is the current position $left = '.'; if (isset($attrs['left'])) { if ($attrs['left'] === '0') { $left = 0; } elseif ($attrs['left'] === '.') { $left = '.'; } elseif (!empty($attrs['left'])) { $left = (int) $attrs['left']; } } // string Align the image in left, center, right $align = ''; if (!empty($attrs['align'])) { $align = $attrs['align']; } // string Next Line should be T:next to the image, N:next line $ln = 'T'; if (!empty($attrs['ln'])) { $ln = $attrs['ln']; } $width = 0; $height = 0; if (!empty($attrs['width'])) { $width = (int) $attrs['width']; } if (!empty($attrs['height'])) { $height = (int) $attrs['height']; } $file = ''; if (!empty($attrs['file'])) { $file = $attrs['file']; } if ($file == "@FILE") { $match = array(); if (preg_match("/\d OBJE @(.+)@/", $this->gedrec, $match)) { $mediaobject = Media::getInstance($match[1], $WT_TREE); $attributes = $mediaobject->getImageAttributes('thumb'); if (in_array( $attributes['ext'], array( 'GIF', 'JPG', 'PNG', 'SWF', 'PSD', 'BMP', 'TIFF', 'TIFF', 'JPC', 'JP2', 'JPX', 'JB2', 'SWC', 'IFF', 'WBMP', 'XBM', ) ) && $mediaobject->canShow() && $mediaobject->fileExists('thumb') ) { if ($width > 0 && $height == 0) { $perc = $width / $attributes['adjW']; $height = round($attributes['adjH'] * $perc); } elseif ($height > 0 && $width == 0) { $perc = $height / $attributes['adjH']; $width = round($attributes['adjW'] * $perc); } else { $width = $attributes['adjW']; $height = $attributes['adjH']; } $image = $ReportRoot->createImageFromObject($mediaobject, $left, $top, $width, $height, $align, $ln); $wt_report->addElement($image); } } } else { if (file_exists($file) && preg_match("/(jpg|jpeg|png|gif)$/i", $file)) { $size = getimagesize($file); if ($width > 0 && $height == 0) { $perc = $width / $size[0]; $height = round($size[1] * $perc); } elseif ($height > 0 && $width == 0) { $perc = $height / $size[1]; $width = round($size[0] * $perc); } else { $width = $size[0]; $height = $size[1]; } $image = $ReportRoot->createImage($file, $left, $top, $width, $height, $align, $ln); $wt_report->addElement($image); } } } /** * XML <Line> element handler * * @param array $attrs an array of key value pairs for the attributes */ private function lineStartHandler($attrs) { global $wt_report, $ReportRoot; // Start horizontal position, current position (default) $x1 = "."; if (isset($attrs['x1'])) { if ($attrs['x1'] === "0") { $x1 = 0; } elseif ($attrs['x1'] === ".") { $x1 = "."; } elseif (!empty($attrs['x1'])) { $x1 = (int) $attrs['x1']; } } // Start vertical position, current position (default) $y1 = "."; if (isset($attrs['y1'])) { if ($attrs['y1'] === "0") { $y1 = 0; } elseif ($attrs['y1'] === ".") { $y1 = "."; } elseif (!empty($attrs['y1'])) { $y1 = (int) $attrs['y1']; } } // End horizontal position, maximum width (default) $x2 = "."; if (isset($attrs['x2'])) { if ($attrs['x2'] === "0") { $x2 = 0; } elseif ($attrs['x2'] === ".") { $x2 = "."; } elseif (!empty($attrs['x2'])) { $x2 = (int) $attrs['x2']; } } // End vertical position $y2 = "."; if (isset($attrs['y2'])) { if ($attrs['y2'] === "0") { $y2 = 0; } elseif ($attrs['y2'] === ".") { $y2 = "."; } elseif (!empty($attrs['y2'])) { $y2 = (int) $attrs['y2']; } } $line = $ReportRoot->createLine($x1, $y1, $x2, $y2); $wt_report->addElement($line); } /** * XML <List> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function listStartHandler($attrs) { global $parser, $vars, $WT_TREE; $this->process_repeats++; if ($this->process_repeats > 1) { return; } $match = array(); if (isset($attrs['sortby'])) { $sortby = $attrs['sortby']; if (preg_match("/\\$(\w+)/", $sortby, $match)) { $sortby = $vars[$match[1]]['id']; $sortby = trim($sortby); } } else { $sortby = "NAME"; } if (isset($attrs['list'])) { $listname = $attrs['list']; } else { $listname = "individual"; } // Some filters/sorts can be applied using SQL, while others require PHP switch ($listname) { case "pending": $rows = Database::prepare( "SELECT xref, CASE new_gedcom WHEN '' THEN old_gedcom ELSE new_gedcom END AS gedcom" . " FROM `##change`" . " WHERE (xref, change_id) IN (" . " SELECT xref, MAX(change_id)" . " FROM `##change`" . " WHERE status='pending' AND gedcom_id=?" . " GROUP BY xref" . " )" )->execute(array($WT_TREE->getTreeId()))->fetchAll(); $this->list = array(); foreach ($rows as $row) { $this->list[] = GedcomRecord::getInstance($row->xref, $WT_TREE, $row->gedcom); } break; case 'individual': $sql_select = "SELECT DISTINCT i_id AS xref, i_gedcom AS gedcom FROM `##individuals` "; $sql_join = ""; $sql_where = " WHERE i_file = " . $WT_TREE->getTreeId(); $sql_order_by = ""; foreach ($attrs as $attr => $value) { if (strpos($attr, 'filter') === 0 && $value) { // Substitute global vars $value = preg_replace_callback( '/\$(\w+)/', function ($matches) use ($vars) { return $vars[$matches[1]]['id']; }, $value ); // Convert the various filters into SQL if (preg_match('/^(\w+):DATE (LTE|GTE) (.+)$/', $value, $match)) { $sql_join .= " JOIN `##dates` AS {$attr} ON ({$attr}.d_file=i_file AND {$attr}.d_gid=i_id)"; $sql_where .= " AND {$attr}.d_fact='{$match[1]}'"; $date = new Date($match[3]); if ($match[2] == "LTE") { $sql_where .= " AND {$attr}.d_julianday2<=" . $date->minimumJulianDay(); } else { $sql_where .= " AND {$attr}.d_julianday1>=" . $date->minimumJulianDay(); } if ($sortby == $match[1]) { $sortby = ""; $sql_order_by .= ($sql_order_by ? ", " : " ORDER BY ") . "{$attr}.d_julianday1"; } unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^NAME CONTAINS (.*)$/', $value, $match)) { // Do nothing, unless you have to if ($match[1] != '' || $sortby == 'NAME') { $sql_join .= " JOIN `##name` AS {$attr} ON (n_file=i_file AND n_id=i_id)"; // Search the DB only if there is any name supplied if ($match[1] != "") { $names = explode(" ", $match[1]); foreach ($names as $name) { $sql_where .= " AND {$attr}.n_full LIKE " . Database::quote("%{$name}%"); } } // Let the DB do the name sorting even when no name was entered if ($sortby == "NAME") { $sortby = ""; $sql_order_by .= ($sql_order_by ? ", " : " ORDER BY ") . "{$attr}.n_sort"; } } unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^REGEXP \/(.+)\//', $value, $match)) { $sql_where .= " AND i_gedcom REGEXP '" . $match[1] . "'"; unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^(?:\w+):PLAC CONTAINS (.+)$/', $value, $match)) { $sql_join .= " JOIN `##places` AS {$attr}a ON ({$attr}a.p_file=i_file)"; $sql_join .= " JOIN `##placelinks` AS {$attr}b ON ({$attr}a.p_file={$attr}b.pl_file AND {$attr}b.pl_p_id={$attr}a.p_id AND {$attr}b.pl_gid=i_id)"; $sql_where .= " AND {$attr}a.p_place LIKE " . Database::quote("%{$match[1]}%"); // Don't unset this filter. This is just initial filtering } elseif (preg_match('/^(\w*):*(\w*) CONTAINS (.+)$/', $value, $match)) { $query = ""; // Level 1 tag if ($match[1] !== '') { $query .= "%1 {$match[1]}%"; } // Level 2 tag if ($match[2] !== '') { $query .= "%2 {$match[2]}%"; } // Contains what? if ($match[3] !== '') { $query .= "%{$match[3]}%"; } $sql_where .= " AND i_gedcom LIKE " . Database::quote($query); // Don't unset this filter. This is just initial filtering } } } $this->list = array(); $rows = Database::prepare( $sql_select . $sql_join . $sql_where . $sql_order_by )->fetchAll(); foreach ($rows as $row) { $this->list[] = Individual::getInstance($row->xref, $WT_TREE, $row->gedcom); } break; case 'family': $sql_select = "SELECT DISTINCT f_id AS xref, f_gedcom AS gedcom FROM `##families`"; $sql_join = ""; $sql_where = " WHERE f_file=" . $WT_TREE->getTreeId(); $sql_order_by = ""; foreach ($attrs as $attr => $value) { if (strpos($attr, 'filter') === 0 && $value) { // Substitute global vars $value = preg_replace_callback( '/\$(\w+)/', function ($matches) use ($vars) { return $vars[$matches[1]]['id']; }, $value ); // Convert the various filters into SQL if (preg_match('/^(\w+):DATE (LTE|GTE) (.+)$/', $value, $match)) { $sql_join .= " JOIN `##dates` AS {$attr} ON ({$attr}.d_file=f_file AND {$attr}.d_gid=f_id)"; $sql_where .= " AND {$attr}.d_fact='{$match[1]}'"; $date = new Date($match[3]); if ($match[2] == "LTE") { $sql_where .= " AND {$attr}.d_julianday2<=" . $date->minimumJulianDay(); } else { $sql_where .= " AND {$attr}.d_julianday1>=" . $date->minimumJulianDay(); } if ($sortby == $match[1]) { $sortby = ""; $sql_order_by .= ($sql_order_by ? ", " : " ORDER BY ") . "{$attr}.d_julianday1"; } unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^REGEXP \/(.+)\//', $value, $match)) { $sql_where .= " AND f_gedcom REGEXP '" . $match[1] . "'"; unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^NAME CONTAINS (.+)$/', $value, $match)) { $sql_join .= " JOIN `##link` AS {$attr}a ON ({$attr}a.l_file=f_file AND {$attr}a.l_from=f_id)"; $sql_join .= " JOIN `##name` AS {$attr}b ON ({$attr}b.n_file=f_file AND n_id=f_id)"; $sql_where .= " AND {$attr}a.l_type=IN ('HUSB, 'WIFE')"; $sql_where .= " AND {$attr}.n_full LIKE " . Database::quote("%{$match[1]}%"); if ($sortby == "NAME") { $sortby = ""; $sql_order_by .= ($sql_order_by ? ", " : " ORDER BY ") . "{$attr}.n_sort"; } unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^(?:\w+):PLAC CONTAINS (.+)$/', $value, $match)) { $sql_join .= " JOIN `##places` AS {$attr}a ON ({$attr}a.p_file=f_file)"; $sql_join .= " JOIN `##placelinks` AS {$attr}b ON ({$attr}a.p_file={$attr}b.pl_file AND {$attr}b.pl_p_id={$attr}a.p_id AND {$attr}b.pl_gid=f_id)"; $sql_where .= " AND {$attr}a.p_place LIKE " . Database::quote("%{$match[1]}%"); // Don't unset this filter. This is just initial filtering } elseif (preg_match('/^(\w*):*(\w*) CONTAINS (.+)$/', $value, $match)) { $query = ""; // Level 1 tag if ($match[1] !== '') { $query .= "%1 {$match[1]}%"; } // Level 2 tag if ($match[2] !== '') { $query .= "%2 {$match[2]}%"; } // Contains what? if ($match[3] !== '') { $query .= "%{$match[3]}%"; } $sql_where .= " AND f_gedcom LIKE " . Database::quote($query); // Don't unset this filter. This is just initial filtering } } } $this->list = array(); $rows = Database::prepare( $sql_select . $sql_join . $sql_where . $sql_order_by )->fetchAll(); foreach ($rows as $row) { $this->list[] = Family::getInstance($row->xref, $WT_TREE, $row->gedcom); } break; default: throw new \DomainException('Invalid list name: ' . $listname); } $filters = array(); $filters2 = array(); if (isset($attrs['filter1']) && count($this->list) > 0) { foreach ($attrs as $key => $value) { if (preg_match("/filter(\d)/", $key)) { $condition = $value; if (preg_match("/@(\w+)/", $condition, $match)) { $id = $match[1]; $value = "''"; if ($id == "ID") { if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $value = "'" . $match[1] . "'"; } } elseif ($id == "fact") { $value = "'" . $this->fact . "'"; } elseif ($id == "desc") { $value = "'" . $this->desc . "'"; } else { if (preg_match("/\d $id (.+)/", $this->gedrec, $match)) { $value = "'" . str_replace("@", "", trim($match[1])) . "'"; } } $condition = preg_replace("/@$id/", $value, $condition); } //-- handle regular expressions if (preg_match("/([A-Z:]+)\s*([^\s]+)\s*(.+)/", $condition, $match)) { $tag = trim($match[1]); $expr = trim($match[2]); $val = trim($match[3]); if (preg_match("/\\$(\w+)/", $val, $match)) { $val = $vars[$match[1]]['id']; $val = trim($val); } if ($val) { $searchstr = ""; $tags = explode(":", $tag); //-- only limit to a level number if we are specifically looking at a level if (count($tags) > 1) { $level = 1; foreach ($tags as $t) { if (!empty($searchstr)) { $searchstr .= "[^\n]*(\n[2-9][^\n]*)*\n"; } //-- search for both EMAIL and _EMAIL... silly double gedcom standard if ($t == "EMAIL" || $t == "_EMAIL") { $t = "_?EMAIL"; } $searchstr .= $level . " " . $t; $level++; } } else { if ($tag == "EMAIL" || $tag == "_EMAIL") { $tag = "_?EMAIL"; } $t = $tag; $searchstr = "1 " . $tag; } switch ($expr) { case "CONTAINS": if ($t == "PLAC") { $searchstr .= "[^\n]*[, ]*" . $val; } else { $searchstr .= "[^\n]*" . $val; } $filters[] = $searchstr; break; default: $filters2[] = array("tag" => $tag, "expr" => $expr, "val" => $val); break; } } } } } } //-- apply other filters to the list that could not be added to the search string if ($filters) { foreach ($this->list as $key => $record) { foreach ($filters as $filter) { if (!preg_match("/" . $filter . "/i", $record->privatizeGedcom(Auth::accessLevel($WT_TREE)))) { unset($this->list[$key]); break; } } } } if ($filters2) { $mylist = array(); foreach ($this->list as $indi) { $key = $indi->getXref(); $grec = $indi->privatizeGedcom(Auth::accessLevel($WT_TREE)); $keep = true; foreach ($filters2 as $filter) { if ($keep) { $tag = $filter['tag']; $expr = $filter['expr']; $val = $filter['val']; if ($val == "''") { $val = ""; } $tags = explode(":", $tag); $t = end($tags); $v = get_gedcom_value($tag, 1, $grec); //-- check for EMAIL and _EMAIL (silly double gedcom standard :P) if ($t == "EMAIL" && empty($v)) { $tag = str_replace("EMAIL", "_EMAIL", $tag); $tags = explode(":", $tag); $t = end($tags); $v = get_sub_record(1, $tag, $grec); } switch ($expr) { case "GTE": if ($t == "DATE") { $date1 = new Date($v); $date2 = new Date($val); $keep = (Date::compare($date1, $date2) >= 0); } elseif ($val >= $v) { $keep = true; } break; case "LTE": if ($t == "DATE") { $date1 = new Date($v); $date2 = new Date($val); $keep = (Date::compare($date1, $date2) <= 0); } elseif ($val >= $v) { $keep = true; } break; default: if ($v == $val) { $keep = true; } else { $keep = false; } break; } } } if ($keep) { $mylist[$key] = $indi; } } $this->list = $mylist; } switch ($sortby) { case 'NAME': uasort($this->list, '\Fisharebest\Webtrees\GedcomRecord::compare'); break; case 'CHAN': uasort($this->list, function (GedcomRecord $x, GedcomRecord $y) { return $y->lastChangeTimestamp(true) - $x->lastChangeTimestamp(true); }); break; case 'BIRT:DATE': uasort($this->list, '\Fisharebest\Webtrees\Individual::compareBirthDate'); break; case 'DEAT:DATE': uasort($this->list, '\Fisharebest\Webtrees\Individual::compareDeathDate'); break; case 'MARR:DATE': uasort($this->list, '\Fisharebest\Webtrees\\Family::compareMarrDate'); break; default: // unsorted or already sorted by SQL break; } array_push($this->repeats_stack, array($this->repeats, $this->repeat_bytes)); $this->repeat_bytes = xml_get_current_line_number($parser) + 1; } /** * XML <List> end element handler */ private function listEndHandler() { global $parser, $parserStack, $report; $this->process_repeats--; if ($this->process_repeats > 0) { return; } // Check if there is any list if (count($this->list) > 0) { $lineoffset = 0; foreach ($this->repeats_stack as $rep) { $lineoffset += $rep[1]; } //-- read the xml from the file $lines = file($report); while ((strpos($lines[$lineoffset + $this->repeat_bytes], "<List") === false) && (($lineoffset + $this->repeat_bytes) > 0)) { $lineoffset--; } $lineoffset++; $reportxml = "<tempdoc>\n"; $line_nr = $lineoffset + $this->repeat_bytes; // List Level counter $count = 1; while (0 < $count) { if (strpos($lines[$line_nr], "<List") !== false) { $count++; } elseif (strpos($lines[$line_nr], "</List") !== false) { $count--; } if (0 < $count) { $reportxml .= $lines[$line_nr]; } $line_nr++; } // No need to drag this unset($lines); $reportxml .= "</tempdoc>"; // Save original values array_push($parserStack, $parser); $oldgedrec = $this->gedrec; $this->list_total = count($this->list); $this->list_private = 0; foreach ($this->list as $record) { if ($record->canShow()) { $this->gedrec = $record->privatizeGedcom(Auth::accessLevel($record->getTree())); //-- start the sax parser $repeat_parser = xml_parser_create(); $parser = $repeat_parser; xml_parser_set_option($repeat_parser, XML_OPTION_CASE_FOLDING, false); xml_set_element_handler($repeat_parser, array($this, 'startElement'), array($this, 'endElement')); xml_set_character_data_handler($repeat_parser, array($this, 'characterData')); if (!xml_parse($repeat_parser, $reportxml, true)) { throw new \DomainException(sprintf( 'ListEHandler XML error: %s at line %d', xml_error_string(xml_get_error_code($repeat_parser)), xml_get_current_line_number($repeat_parser) )); } xml_parser_free($repeat_parser); } else { $this->list_private++; } } $this->list = array(); $parser = array_pop($parserStack); $this->gedrec = $oldgedrec; } list($this->repeats, $this->repeat_bytes) = array_pop($this->repeats_stack); } /** * XML <ListTotal> element handler * * Prints the total number of records in a list * The total number is collected from * List and Relatives */ private function listTotalStartHandler() { if ($this->list_private == 0) { $this->current_element->addText($this->list_total); } else { $this->current_element->addText(($this->list_total - $this->list_private) . " / " . $this->list_total); } } /** * @param array $attrs an array of key value pairs for the attributes */ private function relativesStartHandler($attrs) { global $parser, $vars, $WT_TREE; $this->process_repeats++; if ($this->process_repeats > 1) { return; } $sortby = "NAME"; if (isset($attrs['sortby'])) { $sortby = $attrs['sortby']; } $match = array(); if (preg_match("/\\$(\w+)/", $sortby, $match)) { $sortby = $vars[$match[1]]['id']; $sortby = trim($sortby); } $maxgen = -1; if (isset($attrs['maxgen'])) { $maxgen = $attrs['maxgen']; } if ($maxgen == "*") { $maxgen = -1; } $group = "child-family"; if (isset($attrs['group'])) { $group = $attrs['group']; } if (preg_match("/\\$(\w+)/", $group, $match)) { $group = $vars[$match[1]]['id']; $group = trim($group); } $id = ""; if (isset($attrs['id'])) { $id = $attrs['id']; } if (preg_match("/\\$(\w+)/", $id, $match)) { $id = $vars[$match[1]]['id']; $id = trim($id); } $this->list = array(); $person = Individual::getInstance($id, $WT_TREE); if (!empty($person)) { $this->list[$id] = $person; switch ($group) { case "child-family": foreach ($person->getChildFamilies() as $family) { $husband = $family->getHusband(); $wife = $family->getWife(); if (!empty($husband)) { $this->list[$husband->getXref()] = $husband; } if (!empty($wife)) { $this->list[$wife->getXref()] = $wife; } $children = $family->getChildren(); foreach ($children as $child) { if (!empty($child)) { $this->list[$child->getXref()] = $child; } } } break; case "spouse-family": foreach ($person->getSpouseFamilies() as $family) { $husband = $family->getHusband(); $wife = $family->getWife(); if (!empty($husband)) { $this->list[$husband->getXref()] = $husband; } if (!empty($wife)) { $this->list[$wife->getXref()] = $wife; } $children = $family->getChildren(); foreach ($children as $child) { if (!empty($child)) { $this->list[$child->getXref()] = $child; } } } break; case "direct-ancestors": add_ancestors($this->list, $id, false, $maxgen); break; case "ancestors": add_ancestors($this->list, $id, true, $maxgen); break; case "descendants": $this->list[$id]->generation = 1; add_descendancy($this->list, $id, false, $maxgen); break; case "all": add_ancestors($this->list, $id, true, $maxgen); add_descendancy($this->list, $id, true, $maxgen); break; } } switch ($sortby) { case 'NAME': uasort($this->list, '\Fisharebest\Webtrees\GedcomRecord::compare'); break; case 'BIRT:DATE': uasort($this->list, '\Fisharebest\Webtrees\Individual::compareBirthDate'); break; case 'DEAT:DATE': uasort($this->list, '\Fisharebest\Webtrees\Individual::compareDeathDate'); break; case 'generation': $newarray = array(); reset($this->list); $genCounter = 1; while (count($newarray) < count($this->list)) { foreach ($this->list as $key => $value) { $this->generation = $value->generation; if ($this->generation == $genCounter) { $newarray[$key] = new \stdClass; $newarray[$key]->generation = $this->generation; } } $genCounter++; } $this->list = $newarray; break; default: // unsorted break; } array_push($this->repeats_stack, array($this->repeats, $this->repeat_bytes)); $this->repeat_bytes = xml_get_current_line_number($parser) + 1; } /** * XML </ Relatives> end element handler */ private function relativesEndHandler() { global $parser, $parserStack, $report, $WT_TREE; $this->process_repeats--; if ($this->process_repeats > 0) { return; } // Check if there is any relatives if (count($this->list) > 0) { $lineoffset = 0; foreach ($this->repeats_stack as $rep) { $lineoffset += $rep[1]; } //-- read the xml from the file $lines = file($report); while ((strpos($lines[$lineoffset + $this->repeat_bytes], "<Relatives") === false) && (($lineoffset + $this->repeat_bytes) > 0)) { $lineoffset--; } $lineoffset++; $reportxml = "<tempdoc>\n"; $line_nr = $lineoffset + $this->repeat_bytes; // Relatives Level counter $count = 1; while (0 < $count) { if (strpos($lines[$line_nr], "<Relatives") !== false) { $count++; } elseif (strpos($lines[$line_nr], "</Relatives") !== false) { $count--; } if (0 < $count) { $reportxml .= $lines[$line_nr]; } $line_nr++; } // No need to drag this unset($lines); $reportxml .= "</tempdoc>\n"; // Save original values array_push($parserStack, $parser); $oldgedrec = $this->gedrec; $this->list_total = count($this->list); $this->list_private = 0; foreach ($this->list as $key => $value) { if (isset($value->generation)) { $this->generation = $value->generation; } $tmp = GedcomRecord::getInstance($key, $WT_TREE); $this->gedrec = $tmp->privatizeGedcom(Auth::accessLevel($WT_TREE)); $repeat_parser = xml_parser_create(); $parser = $repeat_parser; xml_parser_set_option($repeat_parser, XML_OPTION_CASE_FOLDING, false); xml_set_element_handler($repeat_parser, array($this, 'startElement'), array($this, 'endElement')); xml_set_character_data_handler($repeat_parser, array($this, 'characterData')); if (!xml_parse($repeat_parser, $reportxml, true)) { throw new \DomainException(sprintf("RelativesEHandler XML error: %s at line %d", xml_error_string(xml_get_error_code($repeat_parser)), xml_get_current_line_number($repeat_parser))); } xml_parser_free($repeat_parser); } // Clean up the list array $this->list = array(); $parser = array_pop($parserStack); $this->gedrec = $oldgedrec; } list($this->repeats, $this->repeat_bytes) = array_pop($this->repeats_stack); } /** * XML <Generation /> element handler * * Prints the number of generations */ private function generationStartHandler() { $this->current_element->addText($this->generation); } /** * XML <NewPage /> element handler * * Has to be placed in an element (header, pageheader, body or footer) */ private function newPageStartHandler() { global $wt_report; $temp = "addpage"; $wt_report->addElement($temp); } /** * @param array $attrs an array of key value pairs for the attributes * @param string $tag HTML tag name */ private function htmlStartHandler($tag, $attrs) { global $wt_reportStack, $wt_report, $ReportRoot; if ($tag === "tempdoc") { return; } array_push($wt_reportStack, $wt_report); $wt_report = $ReportRoot->createHTML($tag, $attrs); $this->current_element = $wt_report; array_push($this->print_data_stack, $this->print_data); $this->print_data = true; } /** * @param string $tag */ private function htmlEndHandler($tag) { global $wt_report, $wt_reportStack; if ($tag === "tempdoc") { return; } $this->print_data = array_pop($this->print_data_stack); $this->current_element = $wt_report; $wt_report = array_pop($wt_reportStack); if (!is_null($wt_report)) { $wt_report->addElement($this->current_element); } else { $wt_report = $this->current_element; } } /** * Handle <Input> */ private function inputStartHandler() { // Dummy function, to prevent the default HtmlStartHandler() being called } /** * Handle </Input> */ private function inputEndHandler() { // Dummy function, to prevent the default HtmlEndHandler() being called } /** * Handle <Report> */ private function reportStartHandler() { // Dummy function, to prevent the default HtmlStartHandler() being called } /** * Handle </Report> */ private function reportEndHandler() { // Dummy function, to prevent the default HtmlEndHandler() being called } /** * XML <titleStartHandler> start element handler */ private function titleStartHandler() { $this->report_title = true; } /** * XML </titleEndHandler> end element handler */ private function titleEndHandler() { $this->report_title = false; } /** * XML <descriptionStartHandler> start element handler */ private function descriptionStartHandler() { $this->report_description = true; } /** * XML </descriptionEndHandler> end element handler */ private function descriptionEndHandler() { $this->report

. */ use Fisharebest\Webtrees\Auth; use Fisharebest\Webtrees\Database; use Fisharebest\Webtrees\Date; use Fisharebest\Webtrees\Family; use Fisharebest\Webtrees\GedcomRecord; use Fisharebest\Webtrees\GedcomTag; use Fisharebest\Webtrees\I18N; use Fisharebest\Webtrees\Individual; use Fisharebest\Webtrees\Media; use Fisharebest\Webtrees\Place; /** * Class ReportParserGenerate - parse a report.xml file and generate the report. */ class ReportParserGenerate extends ReportParserBase { /** @var bool Are we processing a element */ private $report_description = false; /** @var bool Are we processing a element */ private $report_title = false; /** @var bool Are we collecting data from <Footnote> elements */ private $process_footnote = true; /** @var bool Are we currently outputing data? */ private $print_data = false; /** @var bool[] Push-down stack of $print_data */ private $print_data_stack = array(); /** @var int */ private $process_gedcoms = 0; /** @var int */ private $process_ifs = 0; /** @var int */ private $process_repeats = 0; /** @var int Quantity of data to repeat during loops */ private $repeat_bytes = 0; /** @var array[] Repeated data when iterating over loops */ private $repeats = array(); /** @var array[] Nested repeating data */ private $repeats_stack = array(); /** @var string The current GEDCOM record */ private $gedrec = ''; /** @var string[] Nested GEDCOM records */ private $gedrec_stack = array(); /** @var ReportBaseElement The currently processed element */ private $current_element; /** @var ReportBaseElement The currently processed element */ private $footnote_element; /** @var string The GEDCOM fact currently being processed */ private $fact = ''; /** @var string The GEDCOM value currently being processed */ private $desc = ''; /** @var string The GEDCOM type currently being processed */ private $type = ''; /** @var int The current generational level */ private $generation = 1; /** @var array Source data for processing lists */ private $list = array(); /** @var int Number of items in lists */ private $list_total = 0; /** @var int Number of items filtered from lists */ private $list_private = 0; /** {@inheritDoc} */ public function __construct($report) { $this->current_element = new ReportBaseElement; parent::__construct($report); } /** *XML start element handler * * This function is called whenever a starting element is reached * The element handler will be called if found, otherwise it must be HTML * * @param resource $parser the resource handler for the XML parser * @param string $name the name of the XML element parsed * @param array $attrs an array of key value pairs for the attributes */ protected function startElement($parser, $name, $attrs) { global $vars; $newattrs = array(); foreach ($attrs as $key => $value) { if (preg_match("/^\\$(\w+)$/", $value, $match)) { if ((isset($vars[$match[1]]['id'])) && (!isset($vars[$match[1]]['gedcom']))) { $value = $vars[$match[1]]['id']; } } $newattrs[$key] = $value; } $attrs = $newattrs; if ($this->process_footnote && ($this->process_ifs === 0 || $name === "if") && ($this->process_gedcoms === 0 || $name === "Gedcom") && ($this->process_repeats === 0 || $name === "Facts" || $name === "RepeatTag")) { $start_method = $name . 'StartHandler'; $end_method = $name . 'EndHandler'; if (method_exists($this, $start_method)) { $this->$start_method($attrs); } elseif (!method_exists($this, $end_method)) { $this->htmlStartHandler($name, $attrs); } } } /** * XML end element handler * * This function is called whenever an ending element is reached * The element handler will be called if found, otherwise it must be HTML * * @param resource $parser the resource handler for the XML parser * @param string $name the name of the XML element parsed */ protected function endElement($parser, $name) { if (($this->process_footnote || $name === "Footnote") && ($this->process_ifs === 0 || $name === "if") && ($this->process_gedcoms === 0 || $name === "Gedcom") && ($this->process_repeats === 0 || $name === "Facts" || $name === "RepeatTag" || $name === "List" || $name === "Relatives")) { $start_method = $name . 'StartHandler'; $end_method = $name . 'EndHandler'; if (method_exists($this, $end_method)) { $this->$end_method(); } elseif (!method_exists($this, $start_method)) { $this->htmlEndHandler($name); } } } /** * XML character data handler * * @param resource $parser the resource handler for the XML parser * @param string $data the name of the XML element parsed */ protected function characterData($parser, $data) { global $wt_report; if ($this->print_data && ($this->process_gedcoms === 0) && ($this->process_ifs === 0) && ($this->process_repeats === 0)) { $this->current_element->addText($data); } elseif ($this->report_title) { $wt_report->addTitle($data); } elseif ($this->report_description) { $wt_report->addDescription($data); } } /** * XML <style> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function styleStartHandler($attrs) { global $wt_report; if (empty($attrs['name'])) { throw new \DomainException('REPORT ERROR Style: The "name" of the style is missing or not set in the XML file.'); } // array Style that will be passed on $s = array(); // string Name af the style $s['name'] = $attrs['name']; // string Name of the DEFAULT font $s['font'] = $wt_report->defaultFont; if (!empty($attrs['font'])) { $s['font'] = $attrs['font']; } // int The size of the font in points $s['size'] = $wt_report->defaultFontSize; if (!empty($attrs['size'])) { $s['size'] = (int) $attrs['size']; } // Get it as int to ignore all decimal points or text (if any text then int(0)) // string B: bold, I: italic, U: underline, D: line trough, The default value is regular. $s['style'] = ""; if (!empty($attrs['style'])) { $s['style'] = $attrs['style']; } $wt_report->addStyle($s); } /** * XML <Doc> start element handler * * Sets up the basics of the document proparties * * @param array $attrs an array of key value pairs for the attributes */ private function docStartHandler($attrs) { global $parser, $wt_report; $parser = $this->xml_parser; // Custom page width if (!empty($attrs['customwidth'])) { $wt_report->pagew = (int) $attrs['customwidth']; } // Get it as int to ignore all decimal points or text (if any text then int(0)) // Custom Page height if (!empty($attrs['customheight'])) { $wt_report->pageh = (int) $attrs['customheight']; } // Get it as int to ignore all decimal points or text (if any text then int(0)) // Left Margin if (isset($attrs['leftmargin'])) { if ($attrs['leftmargin'] === "0") { $wt_report->leftmargin = 0; } elseif (!empty($attrs['leftmargin'])) { $wt_report->leftmargin = (int) $attrs['leftmargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Right Margin if (isset($attrs['rightmargin'])) { if ($attrs['rightmargin'] === "0") { $wt_report->rightmargin = 0; } elseif (!empty($attrs['rightmargin'])) { $wt_report->rightmargin = (int) $attrs['rightmargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Top Margin if (isset($attrs['topmargin'])) { if ($attrs['topmargin'] === "0") { $wt_report->topmargin = 0; } elseif (!empty($attrs['topmargin'])) { $wt_report->topmargin = (int) $attrs['topmargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Bottom Margin if (isset($attrs['bottommargin'])) { if ($attrs['bottommargin'] === "0") { $wt_report->bottommargin = 0; } elseif (!empty($attrs['bottommargin'])) { $wt_report->bottommargin = (int) $attrs['bottommargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Header Margin if (isset($attrs['headermargin'])) { if ($attrs['headermargin'] === "0") { $wt_report->headermargin = 0; } elseif (!empty($attrs['headermargin'])) { $wt_report->headermargin = (int) $attrs['headermargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Footer Margin if (isset($attrs['footermargin'])) { if ($attrs['footermargin'] === "0") { $wt_report->footermargin = 0; } elseif (!empty($attrs['footermargin'])) { $wt_report->footermargin = (int) $attrs['footermargin']; // Get it as int to ignore all decimal points or text (if any text then int(0)) } } // Page Orientation if (!empty($attrs['orientation'])) { if ($attrs['orientation'] == "landscape") { $wt_report->orientation = "landscape"; } elseif ($attrs['orientation'] == "portrait") { $wt_report->orientation = "portrait"; } } // Page Size if (!empty($attrs['pageSize'])) { $wt_report->pageFormat = strtoupper($attrs['pageSize']); } // Show Generated By... if (isset($attrs['showGeneratedBy'])) { if ($attrs['showGeneratedBy'] === "0") { $wt_report->showGenText = false; } elseif ($attrs['showGeneratedBy'] === "1") { $wt_report->showGenText = true; } } $wt_report->setup(); } /** * XML </Doc> end element handler */ private function docEndHandler() { global $wt_report; $wt_report->run(); } /** * XML <Header> start element handler */ private function headerStartHandler() { global $wt_report; // Clear the Header before any new elements are added $wt_report->clearHeader(); $wt_report->setProcessing("H"); } /** * XML <PageHeader> start element handler */ private function pageHeaderStartHandler() { global $wt_reportStack, $wt_report, $ReportRoot; array_push($this->print_data_stack, $this->print_data); $this->print_data = false; array_push($wt_reportStack, $wt_report); $wt_report = $ReportRoot->createPageHeader(); } /** * XML <pageHeaderEndHandler> end element handler */ private function pageHeaderEndHandler() { global $wt_report, $wt_reportStack; $this->print_data = array_pop($this->print_data_stack); $this->current_element = $wt_report; $wt_report = array_pop($wt_reportStack); $wt_report->addElement($this->current_element); } /** * XML <bodyStartHandler> start element handler */ private function bodyStartHandler() { global $wt_report; $wt_report->setProcessing("B"); } /** * XML <footerStartHandler> start element handler */ private function footerStartHandler() { global $wt_report; $wt_report->setProcessing("F"); } /** * XML <Cell> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function cellStartHandler($attrs) { global $ReportRoot, $wt_report; // string The text alignment of the text in this box. $align = ""; if (!empty($attrs['align'])) { $align = $attrs['align']; // RTL supported left/right alignment if ($align == "rightrtl") { if ($wt_report->rtl) { $align = "left"; } else { $align = "right"; } } elseif ($align == "leftrtl") { if ($wt_report->rtl) { $align = "right"; } else { $align = "left"; } } } // string The color to fill the background of this cell $bgcolor = ""; if (!empty($attrs['bgcolor'])) { $bgcolor = $attrs['bgcolor']; } // int Whether or not the background should be painted $fill = 1; if (isset($attrs['fill'])) { if ($attrs['fill'] === "0") { $fill = 0; } elseif ($attrs['fill'] === "1") { $fill = 1; } } $reseth = true; // boolean if true reset the last cell height (default true) if (isset($attrs['reseth'])) { if ($attrs['reseth'] === "0") { $reseth = false; } elseif ($attrs['reseth'] === "1") { $reseth = true; } } // mixed Whether or not a border should be printed around this box $border = 0; if (!empty($attrs['border'])) { $border = $attrs['border']; } // string Border color in HTML code $bocolor = ""; if (!empty($attrs['bocolor'])) { $bocolor = $attrs['bocolor']; } // int Cell height (expressed in points) The starting height of this cell. If the text wraps the height will automatically be adjusted. $height = 0; if (!empty($attrs['height'])) { $height = (int) $attrs['height']; } // int Cell width (expressed in points) Setting the width to 0 will make it the width from the current location to the right margin. $width = 0; if (!empty($attrs['width'])) { $width = (int) $attrs['width']; } // int Stretch carachter mode $stretch = 0; if (!empty($attrs['stretch'])) { $stretch = (int) $attrs['stretch']; } // mixed Position the left corner of this box on the page. The default is the current position. $left = "."; if (isset($attrs['left'])) { if ($attrs['left'] === ".") { $left = "."; } elseif (!empty($attrs['left'])) { $left = (int) $attrs['left']; } elseif ($attrs['left'] === "0") { $left = 0; } } // mixed Position the top corner of this box on the page. the default is the current position $top = "."; if (isset($attrs['top'])) { if ($attrs['top'] === ".") { $top = "."; } elseif (!empty($attrs['top'])) { $top = (int) $attrs['top']; } elseif ($attrs['top'] === "0") { $top = 0; } } // string The name of the Style that should be used to render the text. $style = ""; if (!empty($attrs['style'])) { $style = $attrs['style']; } // string Text color in html code $tcolor = ""; if (!empty($attrs['tcolor'])) { $tcolor = $attrs['tcolor']; } // int Indicates where the current position should go after the call. $ln = 0; if (isset($attrs['newline'])) { if (!empty($attrs['newline'])) { $ln = (int) $attrs['newline']; } elseif ($attrs['newline'] === "0") { $ln = 0; } } if ($align == "left") { $align = "L"; } elseif ($align == "right") { $align = "R"; } elseif ($align == "center") { $align = "C"; } elseif ($align == "justify") { $align = "J"; } array_push($this->print_data_stack, $this->print_data); $this->print_data = true; $this->current_element = $ReportRoot->createCell( $width, $height, $border, $align, $bgcolor, $style, $ln, $top, $left, $fill, $stretch, $bocolor, $tcolor, $reseth ); } /** * XML </Cell> end element handler */ private function cellEndHandler() { global $wt_report; $this->print_data = array_pop($this->print_data_stack); $wt_report->addElement($this->current_element); } /** * XML <Now /> element handler */ private function nowStartHandler() { $g = timestamp_to_gedcom_date(WT_TIMESTAMP + WT_TIMESTAMP_OFFSET); $this->current_element->addText($g->display()); } /** * XML <PageNum /> element handler */ private function pageNumStartHandler() { $this->current_element->addText("#PAGENUM#"); } /** * XML <TotalPages /> element handler */ private function totalPagesStartHandler() { $this->current_element->addText("{{:ptp:}}"); } /** * Called at the start of an element. * * @param array $attrs an array of key value pairs for the attributes */ private function gedcomStartHandler($attrs) { global $vars, $WT_TREE; if ($this->process_gedcoms > 0) { $this->process_gedcoms++; return; } $tag = $attrs['id']; $tag = str_replace("@fact", $this->fact, $tag); $tags = explode(":", $tag); $newgedrec = ''; if (count($tags) < 2) { $tmp = GedcomRecord::getInstance($attrs['id'], $WT_TREE); $newgedrec = $tmp ? $tmp->privatizeGedcom(Auth::accessLevel($WT_TREE)) : ''; } if (empty($newgedrec)) { $tgedrec = $this->gedrec; $newgedrec = ''; foreach ($tags as $tag) { if (preg_match("/\\$(.+)/", $tag, $match)) { if (isset($vars[$match[1]]['gedcom'])) { $newgedrec = $vars[$match[1]]['gedcom']; } else { $tmp = GedcomRecord::getInstance($match[1], $WT_TREE); $newgedrec = $tmp ? $tmp->privatizeGedcom(Auth::accessLevel($WT_TREE)) : ''; } } else { if (preg_match("/@(.+)/", $tag, $match)) { $gmatch = array(); if (preg_match("/\d $match[1] @([^@]+)@/", $tgedrec, $gmatch)) { $tmp = GedcomRecord::getInstance($gmatch[1], $WT_TREE); $newgedrec = $tmp ? $tmp->privatizeGedcom(Auth::accessLevel($WT_TREE)) : ''; $tgedrec = $newgedrec; } else { $newgedrec = ''; break; } } else { $temp = explode(" ", trim($tgedrec)); $level = $temp[0] + 1; $newgedrec = get_sub_record($level, "$level $tag", $tgedrec); $tgedrec = $newgedrec; } } } } if (!empty($newgedrec)) { array_push($this->gedrec_stack, array($this->gedrec, $this->fact, $this->desc)); $this->gedrec = $newgedrec; if (preg_match("/(\d+) (_?[A-Z0-9]+) (.*)/", $this->gedrec, $match)) { $this->fact = $match[2]; $this->desc = trim($match[3]); } } else { $this->process_gedcoms++; } } /** * Called at the end of an element. */ private function gedcomEndHandler() { if ($this->process_gedcoms > 0) { $this->process_gedcoms--; } else { list($this->gedrec, $this->fact, $this->desc) = array_pop($this->gedrec_stack); } } /** * XML <textBoxStartHandler> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function textBoxStartHandler($attrs) { global $wt_report, $wt_reportStack, $ReportRoot; // string Background color code $bgcolor = ""; if (!empty($attrs['bgcolor'])) { $bgcolor = $attrs['bgcolor']; } // boolean Wether or not fill the background color $fill = true; if (isset($attrs['fill'])) { if ($attrs['fill'] === "0") { $fill = false; } elseif ($attrs['fill'] === "1") { $fill = true; } } // var boolean Whether or not a border should be printed around this box. 0 = no border, 1 = border. Default is 0 $border = false; if (isset($attrs['border'])) { if ($attrs['border'] === "1") { $border = true; } elseif ($attrs['border'] === "0") { $border = false; } } // int The starting height of this cell. If the text wraps the height will automatically be adjusted $height = 0; if (!empty($attrs['height'])) { $height = (int) $attrs['height']; } // int Setting the width to 0 will make it the width from the current location to the margin $width = 0; if (!empty($attrs['width'])) { $width = (int) $attrs['width']; } // mixed Position the left corner of this box on the page. The default is the current position. $left = "."; if (isset($attrs['left'])) { if ($attrs['left'] === ".") { $left = "."; } elseif (!empty($attrs['left'])) { $left = (int) $attrs['left']; } elseif ($attrs['left'] === "0") { $left = 0; } } // mixed Position the top corner of this box on the page. the default is the current position $top = "."; if (isset($attrs['top'])) { if ($attrs['top'] === ".") { $top = "."; } elseif (!empty($attrs['top'])) { $top = (int) $attrs['top']; } elseif ($attrs['top'] === "0") { $top = 0; } } // boolean After this box is finished rendering, should the next section of text start immediately after the this box or should it start on a new line under this box. 0 = no new line, 1 = force new line. Default is 0 $newline = false; if (isset($attrs['newline'])) { if ($attrs['newline'] === "1") { $newline = true; } elseif ($attrs['newline'] === "0") { $newline = false; } } // boolean $pagecheck = true; if (isset($attrs['pagecheck'])) { if ($attrs['pagecheck'] === "0") { $pagecheck = false; } elseif ($attrs['pagecheck'] === "1") { $pagecheck = true; } } // boolean Cell padding $padding = true; if (isset($attrs['padding'])) { if ($attrs['padding'] === "0") { $padding = false; } elseif ($attrs['padding'] === "1") { $padding = true; } } // boolean Reset this box Height $reseth = false; if (isset($attrs['reseth'])) { if ($attrs['reseth'] === "1") { $reseth = true; } elseif ($attrs['reseth'] === "0") { $reseth = false; } } // string Style of rendering $style = ""; array_push($this->print_data_stack, $this->print_data); $this->print_data = false; array_push($wt_reportStack, $wt_report); $wt_report = $ReportRoot->createTextBox( $width, $height, $border, $bgcolor, $newline, $left, $top, $pagecheck, $style, $fill, $padding, $reseth ); } /** * XML <textBoxEndHandler> end element handler */ private function textBoxEndHandler() { global $wt_report, $wt_reportStack; $this->print_data = array_pop($this->print_data_stack); $this->current_element = $wt_report; $wt_report = array_pop($wt_reportStack); $wt_report->addElement($this->current_element); } /** * @param array $attrs an array of key value pairs for the attributes */ private function textStartHandler($attrs) { global $ReportRoot; array_push($this->print_data_stack, $this->print_data); $this->print_data = true; // string The name of the Style that should be used to render the text. $style = ""; if (!empty($attrs['style'])) { $style = $attrs['style']; } // string The color of the text - Keep the black color as default $color = ""; if (!empty($attrs['color'])) { $color = $attrs['color']; } $this->current_element = $ReportRoot->createText($style, $color); } /** * */ private function textEndHandler() { global $wt_report; $this->print_data = array_pop($this->print_data_stack); $wt_report->addElement($this->current_element); } /** * XML <GetPersonName> start element handler * Get the name * 1. id is empty - current GEDCOM record * 2. id is set with a record id * * @param array $attrs an array of key value pairs for the attributes */ private function getPersonNameStartHandler($attrs) { global $vars, $WT_TREE; $id = ""; $match = array(); if (empty($attrs['id'])) { if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $id = $match[1]; } } else { if (preg_match("/\\$(.+)/", $attrs['id'], $match)) { if (isset($vars[$match[1]]['id'])) { $id = $vars[$match[1]]['id']; } } else { if (preg_match("/@(.+)/", $attrs['id'], $match)) { $gmatch = array(); if (preg_match("/\d $match[1] @([^@]+)@/", $this->gedrec, $gmatch)) { $id = $gmatch[1]; } } else { $id = $attrs['id']; } } } if (!empty($id)) { $record = GedcomRecord::getInstance($id, $WT_TREE); if (is_null($record)) { return; } if (!$record->canShowName()) { $this->current_element->addText(I18N::translate('Private')); } else { $name = $record->getFullName(); $name = preg_replace( array('/<span class="starredname">/', '/<\/span><\/span>/', '/<\/span>/'), array('«', '', '»'), $name ); $name = strip_tags($name); if (!empty($attrs['truncate'])) { if (mb_strlen($name) > $attrs['truncate']) { $name = preg_replace("/$.*$ ?/", '', $name); //removes () and text inbetween - what about ", [ and { etc? $words = preg_split('/[, -]+/', $name); // names separated with space, comma or hyphen - any others? $name = $words[count($words) - 1]; for ($i = count($words) - 2; $i >= 0; $i--) { $len = mb_strlen($name); for ($j = count($words) - 3; $j >= 0; $j--) { $len += mb_strlen($words[$j]); } if ($len > $attrs['truncate']) { $first_letter = mb_substr($words[$i], 0, 1); // Do not show " of nick-names if ($first_letter != "\"") { $name = mb_substr($words[$i], 0, 1) . '. ' . $name; } } else { $name = $words[$i] . ' ' . $name; } } } } else { $addname = $record->getAddName(); $addname = preg_replace( array('/<span class="starredname">/', '/<\/span><\/span>/', '/<\/span>/'), array('«', '', '»'), $addname ); $addname = strip_tags($addname); if (!empty($addname)) { $name .= " " . $addname; } } $this->current_element->addText(trim($name)); } } } /** * XML <GedcomValue> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function gedcomValueStartHandler($attrs) { global $WT_TREE; $id = ""; $match = array(); if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $id = $match[1]; } if (isset($attrs['newline']) && $attrs['newline'] == "1") { $useBreak = "1"; } else { $useBreak = "0"; } $tag = $attrs['tag']; if (!empty($tag)) { if ($tag == "@desc") { $value = $this->desc; $value = trim($value); $this->current_element->addText($value); } if ($tag == "@id") { $this->current_element->addText($id); } else { $tag = str_replace("@fact", $this->fact, $tag); if (empty($attrs['level'])) { $temp = explode(" ", trim($this->gedrec)); $level = $temp[0]; if ($level == 0) { $level++; } } else { $level = $attrs['level']; } $tags = preg_split('/[: ]/', $tag); $value = get_gedcom_value($tag, $level, $this->gedrec); switch (end($tags)) { case 'DATE': $tmp = new Date($value); $value = $tmp->display(); break; case 'PLAC': $tmp = new Place($value, $WT_TREE); $value = $tmp->getShortName(); break; } if ($useBreak == "1") { // Insert <br> when multiple dates exist. // This works around a TCPDF bug that incorrectly wraps RTL dates on LTR pages $value = str_replace('(', '<br>(', $value); $value = str_replace('<span dir="ltr"><br>', '<br><span dir="ltr">', $value); $value = str_replace('<span dir="rtl"><br>', '<br><span dir="rtl">', $value); if (substr($value, 0, 6) == '<br>') { $value = substr($value, 6); } } $this->current_element->addText($value); } } } /** * XML <RepeatTag> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function repeatTagStartHandler($attrs) { global $parser; $this->process_repeats++; if ($this->process_repeats > 1) { return; } array_push($this->repeats_stack, array($this->repeats, $this->repeat_bytes)); $this->repeats = array(); $this->repeat_bytes = xml_get_current_line_number($parser); $tag = ""; if (isset($attrs['tag'])) { $tag = $attrs['tag']; } if (!empty($tag)) { if ($tag == "@desc") { $value = $this->desc; $value = trim($value); $this->current_element->addText($value); } else { $tag = str_replace("@fact", $this->fact, $tag); $tags = explode(":", $tag); $temp = explode(" ", trim($this->gedrec)); $level = $temp[0]; if ($level == 0) { $level++; } $subrec = $this->gedrec; $t = $tag; $count = count($tags); $i = 0; while ($i < $count) { $t = $tags[$i]; if (!empty($t)) { if ($i < ($count - 1)) { $subrec = get_sub_record($level, "$level $t", $subrec); if (empty($subrec)) { $level--; $subrec = get_sub_record($level, "@ $t", $this->gedrec); if (empty($subrec)) { return; } } } $level++; } $i++; } $level--; $count = preg_match_all("/$level $t(.*)/", $subrec, $match, PREG_SET_ORDER); $i = 0; while ($i < $count) { $this->repeats[] = get_sub_record($level, "$level $t", $subrec, $i + 1); $i++; } } } } /** * XML </ RepeatTag> end element handler */ private function repeatTagEndHandler() { global $parser, $parserStack, $report; $this->process_repeats--; if ($this->process_repeats > 0) { return; } // Check if there is anything to repeat if (count($this->repeats) > 0) { // No need to load them if not used... $lineoffset = 0; foreach ($this->repeats_stack as $rep) { $lineoffset += $rep[1]; } //-- read the xml from the file $lines = file($report); while (strpos($lines[$lineoffset + $this->repeat_bytes], "<RepeatTag") === false) { $lineoffset--; } $lineoffset++; $reportxml = "<tempdoc>\n"; $line_nr = $lineoffset + $this->repeat_bytes; // RepeatTag Level counter $count = 1; while (0 < $count) { if (strstr($lines[$line_nr], "<RepeatTag") !== false) { $count++; } elseif (strstr($lines[$line_nr], "</RepeatTag") !== false) { $count--; } if (0 < $count) { $reportxml .= $lines[$line_nr]; } $line_nr++; } // No need to drag this unset($lines); $reportxml .= "</tempdoc>\n"; // Save original values array_push($parserStack, $parser); $oldgedrec = $this->gedrec; foreach ($this->repeats as $gedrec) { $this->gedrec = $gedrec; $repeat_parser = xml_parser_create(); $parser = $repeat_parser; xml_parser_set_option($repeat_parser, XML_OPTION_CASE_FOLDING, false); xml_set_element_handler($repeat_parser, array($this, 'startElement'), array($this, 'endElement')); xml_set_character_data_handler($repeat_parser, array($this, 'characterData')); if (!xml_parse($repeat_parser, $reportxml, true)) { throw new \DomainException(sprintf( 'RepeatTagEHandler XML error: %s at line %d', xml_error_string(xml_get_error_code($repeat_parser)), xml_get_current_line_number($repeat_parser) )); } xml_parser_free($repeat_parser); } // Restore original values $this->gedrec = $oldgedrec; $parser = array_pop($parserStack); } list($this->repeats, $this->repeat_bytes) = array_pop($this->repeats_stack); } /** * Variable lookup * * Retrieve predefined variables : * * @ desc GEDCOM fact description, example: * 1 EVEN This is a description * @ fact GEDCOM fact tag, such as BIRT, DEAT etc. * $ I18N::translate('....') * $ language_settings[] * * @param array $attrs an array of key value pairs for the attributes */ private function varStartHandler($attrs) { global $parser, $vars; if (empty($attrs['var'])) { throw new \DomainException('REPORT ERROR var: The attribute "var=" is missing or not set in the XML file on line: ' . xml_get_current_line_number($parser)); } $var = $attrs['var']; // SetVar element preset variables if (!empty($vars[$var]['id'])) { $var = $vars[$var]['id']; } else { $tfact = $this->fact; if (($this->fact === "EVEN" || $this->fact === "FACT") && $this->type !== " ") { // Use : // n TYPE This text if string $tfact = $this->type; } $var = str_replace(array("@fact", "@desc"), array(GedcomTag::getLabel($tfact), $this->desc), $var); if (preg_match('/^I18N::number$(.+)$$/', $var, $match)) { $var = I18N::number($match[1]); } elseif (preg_match('/^I18N::translate$\'(.+)\'$$/', $var, $match)) { $var = I18N::translate($match[1]); } elseif (preg_match('/^I18N::translate_c$\'(.+)\', *\'(.+)\'$$/', $var, $match)) { $var = I18N::translateContext($match[1], $match[2]); } } // Check if variable is set as a date and reformat the date if (isset($attrs['date'])) { if ($attrs['date'] === "1") { $g = new Date($var); $var = $g->display(); } } $this->current_element->addText($var); } /** * @param array $attrs an array of key value pairs for the attributes */ private function factsStartHandler($attrs) { global $parser, $vars, $WT_TREE; $this->process_repeats++; if ($this->process_repeats > 1) { return; } array_push($this->repeats_stack, array($this->repeats, $this->repeat_bytes)); $this->repeats = array(); $this->repeat_bytes = xml_get_current_line_number($parser); $id = ""; $match = array(); if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $id = $match[1]; } $tag = ""; if (isset($attrs['ignore'])) { $tag .= $attrs['ignore']; } if (preg_match("/\\$(.+)/", $tag, $match)) { $tag = $vars[$match[1]]['id']; } $record = GedcomRecord::getInstance($id, $WT_TREE); if (empty($attrs['diff']) && !empty($id)) { $facts = $record->getFacts(); sort_facts($facts); $this->repeats = array(); $nonfacts = explode(',', $tag); foreach ($facts as $event) { if (!in_array($event->getTag(), $nonfacts)) { $this->repeats[] = $event->getGedcom(); } } } else { foreach ($record->getFacts() as $fact) { if ($fact->isPendingAddition() && $fact->getTag() !== 'CHAN') { $this->repeats[] = $fact->getGedcom(); } } } } /** * XML </ Facts> end element handler */ private function factsEndHandler() { global $parser, $parserStack, $report; $this->process_repeats--; if ($this->process_repeats > 0) { return; } // Check if there is anything to repeat if (count($this->repeats) > 0) { $line = xml_get_current_line_number($parser) - 1; $lineoffset = 0; foreach ($this->repeats_stack as $rep) { $lineoffset += $rep[1]; } //-- read the xml from the file $lines = file($report); while ($lineoffset + $this->repeat_bytes > 0 && strpos($lines[$lineoffset + $this->repeat_bytes], '<Facts ') === false) { $lineoffset--; } $lineoffset++; $reportxml = "<tempdoc>\n"; $i = $line + $lineoffset; $line_nr = $this->repeat_bytes + $lineoffset; while ($line_nr < $i) { $reportxml .= $lines[$line_nr]; $line_nr++; } // No need to drag this unset($lines); $reportxml .= "</tempdoc>\n"; // Save original values array_push($parserStack, $parser); $oldgedrec = $this->gedrec; $count = count($this->repeats); $i = 0; while ($i < $count) { $this->gedrec = $this->repeats[$i]; $this->fact = ''; $this->desc = ''; if (preg_match('/1 (\w+)(.*)/', $this->gedrec, $match)) { $this->fact = $match[1]; if ($this->fact === 'EVEN' || $this->fact === 'FACT') { $tmatch = array(); if (preg_match('/2 TYPE (.+)/', $this->gedrec, $tmatch)) { $this->type = trim($tmatch[1]); } else { $this->type = ' '; } } $this->desc = trim($match[2]); $this->desc .= get_cont(2, $this->gedrec); } $repeat_parser = xml_parser_create(); $parser = $repeat_parser; xml_parser_set_option($repeat_parser, XML_OPTION_CASE_FOLDING, false); xml_set_element_handler($repeat_parser, array($this, 'startElement'), array($this, 'endElement')); xml_set_character_data_handler($repeat_parser, array($this, 'characterData')); if (!xml_parse($repeat_parser, $reportxml, true)) { throw new \DomainException(sprintf( 'FactsEHandler XML error: %s at line %d', xml_error_string(xml_get_error_code($repeat_parser)), xml_get_current_line_number($repeat_parser) )); } xml_parser_free($repeat_parser); $i++; } // Restore original values $parser = array_pop($parserStack); $this->gedrec = $oldgedrec; } list($this->repeats, $this->repeat_bytes) = array_pop($this->repeats_stack); } /** * Setting upp or changing variables in the XML * The XML variable name and value is stored in the global variable $vars * * @param array $attrs an array of key value pairs for the attributes */ private function setVarStartHandler($attrs) { global $vars; if (empty($attrs['name'])) { throw new \DomainException('REPORT ERROR var: The attribute "name" is missing or not set in the XML file'); } $name = $attrs['name']; $value = $attrs['value']; $match = array(); // Current GEDCOM record strings if ($value == "@ID") { if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $value = $match[1]; } } elseif ($value == "@fact") { $value = $this->fact; } elseif ($value == "@desc") { $value = $this->desc; } elseif ($value == "@generation") { $value = $this->generation; } elseif (preg_match("/@(\w+)/", $value, $match)) { $gmatch = array(); if (preg_match("/\d $match[1] (.+)/", $this->gedrec, $gmatch)) { $value = str_replace("@", "", trim($gmatch[1])); } } if (preg_match("/\\$(\w+)/", $name, $match)) { $name = $vars["'" . $match[1] . "'"]['id']; } $count = preg_match_all("/\\$(\w+)/", $value, $match, PREG_SET_ORDER); $i = 0; while ($i < $count) { $t = $vars[$match[$i][1]]['id']; $value = preg_replace("/\\$" . $match[$i][1] . "/", $t, $value, 1); $i++; } if (preg_match('/^I18N::number$(.+)$$/', $value, $match)) { $value = I18N::number($match[1]); } elseif (preg_match('/^I18N::translate$\'(.+)\'$$/', $value, $match)) { $value = I18N::translate($match[1]); } elseif (preg_match('/^I18N::translate_c$\'(.+)\', *\'(.+)\'$$/', $value, $match)) { $value = I18N::translateContext($match[1], $match[2]); } // Arithmetic functions if (preg_match("/(\d+)\s*([\-\+\*\/])\s*(\d+)/", $value, $match)) { switch ($match[2]) { case "+": $t = $match[1] + $match[3]; $value = preg_replace("/" . $match[1] . "\s*([\-\+\*\/])\s*" . $match[3] . "/", $t, $value); break; case "-": $t = $match[1] - $match[3]; $value = preg_replace("/" . $match[1] . "\s*([\-\+\*\/])\s*" . $match[3] . "/", $t, $value); break; case "*": $t = $match[1] * $match[3]; $value = preg_replace("/" . $match[1] . "\s*([\-\+\*\/])\s*" . $match[3] . "/", $t, $value); break; case "/": $t = $match[1] / $match[3]; $value = preg_replace("/" . $match[1] . "\s*([\-\+\*\/])\s*" . $match[3] . "/", $t, $value); break; } } if (strpos($value, "@") !== false) { $value = ""; } $vars[$name]['id'] = $value; } /** * XML <if > start element * * @param array $attrs an array of key value pairs for the attributes */ private function ifStartHandler($attrs) { global $vars; if ($this->process_ifs > 0) { $this->process_ifs++; return; } $condition = $attrs['condition']; $condition = preg_replace("/\\$(\w+)/", "\$vars[\"$1\"][\"id\"]", $condition); $condition = str_replace(array(" LT ", " GT "), array("<", ">"), $condition); // Replace the first accurance only once of @fact:DATE or in any other combinations to the current fact, such as BIRT $condition = str_replace("@fact", $this->fact, $condition); $match = array(); $count = preg_match_all("/@([\w:\.]+)/", $condition, $match, PREG_SET_ORDER); $i = 0; while ($i < $count) { $id = $match[$i][1]; $value = '""'; if ($id == "ID") { if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $value = "'" . $match[1] . "'"; } } elseif ($id === "fact") { $value = '"' . $this->fact . '"'; } elseif ($id === "desc") { $value = '"' . addslashes($this->desc) . '"'; } elseif ($id === "generation") { $value = '"' . $this->generation . '"'; } else { $temp = explode(" ", trim($this->gedrec)); $level = $temp[0]; if ($level == 0) { $level++; } $value = get_gedcom_value($id, $level, $this->gedrec); if (empty($value)) { $level++; $value = get_gedcom_value($id, $level, $this->gedrec); } $value = preg_replace("/^@(" . WT_REGEX_XREF . ")@$/", "$1", $value); $value = "\"" . addslashes($value) . "\""; } $condition = str_replace("@$id", $value, $condition); $i++; } $condition = "return (bool) ($condition);"; $ret = @eval($condition); if (!$ret) { $this->process_ifs++; } } /** * XML <if /> end element */ private function ifEndHandler() { if ($this->process_ifs > 0) { $this->process_ifs--; } } /** * XML <Footnote > start element * Collect the Footnote links * GEDCOM Records that are protected by Privacy setting will be ignore * * @param array $attrs an array of key value pairs for the attributes */ private function footnoteStartHandler($attrs) { global $ReportRoot, $WT_TREE; $id = ""; if (preg_match("/[0-9] (.+) @(.+)@/", $this->gedrec, $match)) { $id = $match[2]; } $record = GedcomRecord::GetInstance($id, $WT_TREE); if ($record && $record->canShow()) { array_push($this->print_data_stack, $this->print_data); $this->print_data = true; $style = ""; if (!empty($attrs['style'])) { $style = $attrs['style']; } $this->footnote_element = $this->current_element; $this->current_element = $ReportRoot->createFootnote($style); } else { $this->print_data = false; $this->process_footnote = false; } } /** * XML <Footnote /> end element * Print the collected Footnote data */ private function footnoteEndHandler() { global $wt_report; if ($this->process_footnote) { $this->print_data = array_pop($this->print_data_stack); $temp = trim($this->current_element->getValue()); if (strlen($temp) > 3) { $wt_report->addElement($this->current_element); } $this->current_element = $this->footnote_element; } else { $this->process_footnote = true; } } /** * XML <FootnoteTexts /> element */ private function footnoteTextsStartHandler() { global $wt_report; $temp = "footnotetexts"; $wt_report->addElement($temp); } /** * XML <AgeAtDeath /> element handler */ private function ageAtDeathStartHandler() { // This duplicates functionality in format_fact_date() global $factrec, $WT_TREE; $match = array(); if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $person = Individual::getInstance($match[1], $WT_TREE); // Recorded age if (preg_match('/\n2 AGE (.+)/', $factrec, $match)) { $fact_age = $match[1]; } else { $fact_age = ''; } if (preg_match('/\n2 HUSB\n3 AGE (.+)/', $factrec, $match)) { $husb_age = $match[1]; } else { $husb_age = ''; } if (preg_match('/\n2 WIFE\n3 AGE (.+)/', $factrec, $match)) { $wife_age = $match[1]; } else { $wife_age = ''; } // Calculated age $birth_date = $person->getBirthDate(); // Can't use getDeathDate(), as this also gives BURI/CREM events, which // wouldn't give the correct "days after death" result for people with // no DEAT. $death_event = $person->getFirstFact('DEAT'); if ($death_event) { $death_date = $death_event->getDate(); } else { $death_date = new Date(''); } $value = ''; if (Date::compare($birth_date, $death_date) <= 0 || !$person->isDead()) { $age = Date::getAgeGedcom($birth_date, $death_date); // Only show calculated age if it differs from recorded age if ($age != '' && $age != "0d") { if ($fact_age != '' && $fact_age != $age || $fact_age == '' && $husb_age == '' && $wife_age == '' || $husb_age != '' && $person->getSex() == 'M' && $husb_age != $age || $wife_age != '' && $person->getSex() == 'F' && $wife_age != $age ) { $value = get_age_at_event($age, false); $abbrev = substr($value, 0, strpos($value, ' ') + 5); if ($value !== $abbrev) { $value = $abbrev . '.'; } } } } $this->current_element->addText($value); } } /** * XML element Forced line break handler - HTML code */ private function brStartHandler() { if ($this->print_data && $this->process_gedcoms === 0) { $this->current_element->addText('<br>'); } } /** * XML <sp />element Forced space handler */ private function spStartHandler() { if ($this->print_data && $this->process_gedcoms === 0) { $this->current_element->addText(' '); } } /** * @param array $attrs an array of key value pairs for the attributes */ private function highlightedImageStartHandler($attrs) { global $wt_report, $ReportRoot, $WT_TREE; $id = ''; $match = array(); if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $id = $match[1]; } // mixed Position the top corner of this box on the page. the default is the current position $top = '.'; if (isset($attrs['top'])) { if ($attrs['top'] === '0') { $top = 0; } elseif ($attrs['top'] === '.') { $top = '.'; } elseif (!empty($attrs['top'])) { $top = (int) $attrs['top']; } } // mixed Position the left corner of this box on the page. the default is the current position $left = '.'; if (isset($attrs['left'])) { if ($attrs['left'] === '0') { $left = 0; } elseif ($attrs['left'] === '.') { $left = '.'; } elseif (!empty($attrs['left'])) { $left = (int) $attrs['left']; } } // string Align the image in left, center, right $align = ''; if (!empty($attrs['align'])) { $align = $attrs['align']; } // string Next Line should be T:next to the image, N:next line $ln = ''; if (!empty($attrs['ln'])) { $ln = $attrs['ln']; } $width = 0; $height = 0; if (!empty($attrs['width'])) { $width = (int) $attrs['width']; } if (!empty($attrs['height'])) { $height = (int) $attrs['height']; } $person = Individual::getInstance($id, $WT_TREE); $mediaobject = $person->findHighlightedMedia(); if ($mediaobject) { $attributes = $mediaobject->getImageAttributes('thumb'); if (in_array( $attributes['ext'], array( 'GIF', 'JPG', 'PNG', 'SWF', 'PSD', 'BMP', 'TIFF', 'TIFF', 'JPC', 'JP2', 'JPX', 'JB2', 'SWC', 'IFF', 'WBMP', 'XBM', ) ) && $mediaobject->canShow() && $mediaobject->fileExists('thumb') ) { if ($width > 0 && $height == 0) { $perc = $width / $attributes['adjW']; $height = round($attributes['adjH'] * $perc); } elseif ($height > 0 && $width == 0) { $perc = $height / $attributes['adjH']; $width = round($attributes['adjW'] * $perc); } else { $width = $attributes['adjW']; $height = $attributes['adjH']; } $image = $ReportRoot->createImageFromObject($mediaobject, $left, $top, $width, $height, $align, $ln); $wt_report->addElement($image); } } } /** * @param array $attrs an array of key value pairs for the attributes */ private function imageStartHandler($attrs) { global $wt_report, $ReportRoot, $WT_TREE; // mixed Position the top corner of this box on the page. the default is the current position $top = '.'; if (isset($attrs['top'])) { if ($attrs['top'] === "0") { $top = 0; } elseif ($attrs['top'] === '.') { $top = '.'; } elseif (!empty($attrs['top'])) { $top = (int) $attrs['top']; } } // mixed Position the left corner of this box on the page. the default is the current position $left = '.'; if (isset($attrs['left'])) { if ($attrs['left'] === '0') { $left = 0; } elseif ($attrs['left'] === '.') { $left = '.'; } elseif (!empty($attrs['left'])) { $left = (int) $attrs['left']; } } // string Align the image in left, center, right $align = ''; if (!empty($attrs['align'])) { $align = $attrs['align']; } // string Next Line should be T:next to the image, N:next line $ln = 'T'; if (!empty($attrs['ln'])) { $ln = $attrs['ln']; } $width = 0; $height = 0; if (!empty($attrs['width'])) { $width = (int) $attrs['width']; } if (!empty($attrs['height'])) { $height = (int) $attrs['height']; } $file = ''; if (!empty($attrs['file'])) { $file = $attrs['file']; } if ($file == "@FILE") { $match = array(); if (preg_match("/\d OBJE @(.+)@/", $this->gedrec, $match)) { $mediaobject = Media::getInstance($match[1], $WT_TREE); $attributes = $mediaobject->getImageAttributes('thumb'); if (in_array( $attributes['ext'], array( 'GIF', 'JPG', 'PNG', 'SWF', 'PSD', 'BMP', 'TIFF', 'TIFF', 'JPC', 'JP2', 'JPX', 'JB2', 'SWC', 'IFF', 'WBMP', 'XBM', ) ) && $mediaobject->canShow() && $mediaobject->fileExists('thumb') ) { if ($width > 0 && $height == 0) { $perc = $width / $attributes['adjW']; $height = round($attributes['adjH'] * $perc); } elseif ($height > 0 && $width == 0) { $perc = $height / $attributes['adjH']; $width = round($attributes['adjW'] * $perc); } else { $width = $attributes['adjW']; $height = $attributes['adjH']; } $image = $ReportRoot->createImageFromObject($mediaobject, $left, $top, $width, $height, $align, $ln); $wt_report->addElement($image); } } } else { if (file_exists($file) && preg_match("/(jpg|jpeg|png|gif)$/i", $file)) { $size = getimagesize($file); if ($width > 0 && $height == 0) { $perc = $width / $size[0]; $height = round($size[1] * $perc); } elseif ($height > 0 && $width == 0) { $perc = $height / $size[1]; $width = round($size[0] * $perc); } else { $width = $size[0]; $height = $size[1]; } $image = $ReportRoot->createImage($file, $left, $top, $width, $height, $align, $ln); $wt_report->addElement($image); } } } /** * XML <Line> element handler * * @param array $attrs an array of key value pairs for the attributes */ private function lineStartHandler($attrs) { global $wt_report, $ReportRoot; // Start horizontal position, current position (default) $x1 = "."; if (isset($attrs['x1'])) { if ($attrs['x1'] === "0") { $x1 = 0; } elseif ($attrs['x1'] === ".") { $x1 = "."; } elseif (!empty($attrs['x1'])) { $x1 = (int) $attrs['x1']; } } // Start vertical position, current position (default) $y1 = "."; if (isset($attrs['y1'])) { if ($attrs['y1'] === "0") { $y1 = 0; } elseif ($attrs['y1'] === ".") { $y1 = "."; } elseif (!empty($attrs['y1'])) { $y1 = (int) $attrs['y1']; } } // End horizontal position, maximum width (default) $x2 = "."; if (isset($attrs['x2'])) { if ($attrs['x2'] === "0") { $x2 = 0; } elseif ($attrs['x2'] === ".") { $x2 = "."; } elseif (!empty($attrs['x2'])) { $x2 = (int) $attrs['x2']; } } // End vertical position $y2 = "."; if (isset($attrs['y2'])) { if ($attrs['y2'] === "0") { $y2 = 0; } elseif ($attrs['y2'] === ".") { $y2 = "."; } elseif (!empty($attrs['y2'])) { $y2 = (int) $attrs['y2']; } } $line = $ReportRoot->createLine($x1, $y1, $x2, $y2); $wt_report->addElement($line); } /** * XML <List> start element handler * * @param array $attrs an array of key value pairs for the attributes */ private function listStartHandler($attrs) { global $parser, $vars, $WT_TREE; $this->process_repeats++; if ($this->process_repeats > 1) { return; } $match = array(); if (isset($attrs['sortby'])) { $sortby = $attrs['sortby']; if (preg_match("/\\$(\w+)/", $sortby, $match)) { $sortby = $vars[$match[1]]['id']; $sortby = trim($sortby); } } else { $sortby = "NAME"; } if (isset($attrs['list'])) { $listname = $attrs['list']; } else { $listname = "individual"; } // Some filters/sorts can be applied using SQL, while others require PHP switch ($listname) { case "pending": $rows = Database::prepare( "SELECT xref, CASE new_gedcom WHEN '' THEN old_gedcom ELSE new_gedcom END AS gedcom" . " FROM `##change`" . " WHERE (xref, change_id) IN (" . " SELECT xref, MAX(change_id)" . " FROM `##change`" . " WHERE status='pending' AND gedcom_id=?" . " GROUP BY xref" . " )" )->execute(array($WT_TREE->getTreeId()))->fetchAll(); $this->list = array(); foreach ($rows as $row) { $this->list[] = GedcomRecord::getInstance($row->xref, $WT_TREE, $row->gedcom); } break; case 'individual': $sql_select = "SELECT DISTINCT i_id AS xref, i_gedcom AS gedcom FROM `##individuals` "; $sql_join = ""; $sql_where = " WHERE i_file = " . $WT_TREE->getTreeId(); $sql_order_by = ""; foreach ($attrs as $attr => $value) { if (strpos($attr, 'filter') === 0 && $value) { // Substitute global vars $value = preg_replace_callback( '/\$(\w+)/', function ($matches) use ($vars) { return $vars[$matches[1]]['id']; }, $value ); // Convert the various filters into SQL if (preg_match('/^(\w+):DATE (LTE|GTE) (.+)$/', $value, $match)) { $sql_join .= " JOIN `##dates` AS {$attr} ON ({$attr}.d_file=i_file AND {$attr}.d_gid=i_id)"; $sql_where .= " AND {$attr}.d_fact='{$match[1]}'"; $date = new Date($match[3]); if ($match[2] == "LTE") { $sql_where .= " AND {$attr}.d_julianday2<=" . $date->minimumJulianDay(); } else { $sql_where .= " AND {$attr}.d_julianday1>=" . $date->minimumJulianDay(); } if ($sortby == $match[1]) { $sortby = ""; $sql_order_by .= ($sql_order_by ? ", " : " ORDER BY ") . "{$attr}.d_julianday1"; } unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^NAME CONTAINS (.*)$/', $value, $match)) { // Do nothing, unless you have to if ($match[1] != '' || $sortby == 'NAME') { $sql_join .= " JOIN `##name` AS {$attr} ON (n_file=i_file AND n_id=i_id)"; // Search the DB only if there is any name supplied if ($match[1] != "") { $names = explode(" ", $match[1]); foreach ($names as $name) { $sql_where .= " AND {$attr}.n_full LIKE " . Database::quote("%{$name}%"); } } // Let the DB do the name sorting even when no name was entered if ($sortby == "NAME") { $sortby = ""; $sql_order_by .= ($sql_order_by ? ", " : " ORDER BY ") . "{$attr}.n_sort"; } } unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^REGEXP \/(.+)\//', $value, $match)) { $sql_where .= " AND i_gedcom REGEXP '" . $match[1] . "'"; unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^(?:\w+):PLAC CONTAINS (.+)$/', $value, $match)) { $sql_join .= " JOIN `##places` AS {$attr}a ON ({$attr}a.p_file=i_file)"; $sql_join .= " JOIN `##placelinks` AS {$attr}b ON ({$attr}a.p_file={$attr}b.pl_file AND {$attr}b.pl_p_id={$attr}a.p_id AND {$attr}b.pl_gid=i_id)"; $sql_where .= " AND {$attr}a.p_place LIKE " . Database::quote("%{$match[1]}%"); // Don't unset this filter. This is just initial filtering } elseif (preg_match('/^(\w*):*(\w*) CONTAINS (.+)$/', $value, $match)) { $query = ""; // Level 1 tag if ($match[1] !== '') { $query .= "%1 {$match[1]}%"; } // Level 2 tag if ($match[2] !== '') { $query .= "%2 {$match[2]}%"; } // Contains what? if ($match[3] !== '') { $query .= "%{$match[3]}%"; } $sql_where .= " AND i_gedcom LIKE " . Database::quote($query); // Don't unset this filter. This is just initial filtering } } } $this->list = array(); $rows = Database::prepare( $sql_select . $sql_join . $sql_where . $sql_order_by )->fetchAll(); foreach ($rows as $row) { $this->list[] = Individual::getInstance($row->xref, $WT_TREE, $row->gedcom); } break; case 'family': $sql_select = "SELECT DISTINCT f_id AS xref, f_gedcom AS gedcom FROM `##families`"; $sql_join = ""; $sql_where = " WHERE f_file=" . $WT_TREE->getTreeId(); $sql_order_by = ""; foreach ($attrs as $attr => $value) { if (strpos($attr, 'filter') === 0 && $value) { // Substitute global vars $value = preg_replace_callback( '/\$(\w+)/', function ($matches) use ($vars) { return $vars[$matches[1]]['id']; }, $value ); // Convert the various filters into SQL if (preg_match('/^(\w+):DATE (LTE|GTE) (.+)$/', $value, $match)) { $sql_join .= " JOIN `##dates` AS {$attr} ON ({$attr}.d_file=f_file AND {$attr}.d_gid=f_id)"; $sql_where .= " AND {$attr}.d_fact='{$match[1]}'"; $date = new Date($match[3]); if ($match[2] == "LTE") { $sql_where .= " AND {$attr}.d_julianday2<=" . $date->minimumJulianDay(); } else { $sql_where .= " AND {$attr}.d_julianday1>=" . $date->minimumJulianDay(); } if ($sortby == $match[1]) { $sortby = ""; $sql_order_by .= ($sql_order_by ? ", " : " ORDER BY ") . "{$attr}.d_julianday1"; } unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^REGEXP \/(.+)\//', $value, $match)) { $sql_where .= " AND f_gedcom REGEXP '" . $match[1] . "'"; unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^NAME CONTAINS (.+)$/', $value, $match)) { $sql_join .= " JOIN `##link` AS {$attr}a ON ({$attr}a.l_file=f_file AND {$attr}a.l_from=f_id)"; $sql_join .= " JOIN `##name` AS {$attr}b ON ({$attr}b.n_file=f_file AND n_id=f_id)"; $sql_where .= " AND {$attr}a.l_type=IN ('HUSB, 'WIFE')"; $sql_where .= " AND {$attr}.n_full LIKE " . Database::quote("%{$match[1]}%"); if ($sortby == "NAME") { $sortby = ""; $sql_order_by .= ($sql_order_by ? ", " : " ORDER BY ") . "{$attr}.n_sort"; } unset($attrs[$attr]); // This filter has been fully processed } elseif (preg_match('/^(?:\w+):PLAC CONTAINS (.+)$/', $value, $match)) { $sql_join .= " JOIN `##places` AS {$attr}a ON ({$attr}a.p_file=f_file)"; $sql_join .= " JOIN `##placelinks` AS {$attr}b ON ({$attr}a.p_file={$attr}b.pl_file AND {$attr}b.pl_p_id={$attr}a.p_id AND {$attr}b.pl_gid=f_id)"; $sql_where .= " AND {$attr}a.p_place LIKE " . Database::quote("%{$match[1]}%"); // Don't unset this filter. This is just initial filtering } elseif (preg_match('/^(\w*):*(\w*) CONTAINS (.+)$/', $value, $match)) { $query = ""; // Level 1 tag if ($match[1] !== '') { $query .= "%1 {$match[1]}%"; } // Level 2 tag if ($match[2] !== '') { $query .= "%2 {$match[2]}%"; } // Contains what? if ($match[3] !== '') { $query .= "%{$match[3]}%"; } $sql_where .= " AND f_gedcom LIKE " . Database::quote($query); // Don't unset this filter. This is just initial filtering } } } $this->list = array(); $rows = Database::prepare( $sql_select . $sql_join . $sql_where . $sql_order_by )->fetchAll(); foreach ($rows as $row) { $this->list[] = Family::getInstance($row->xref, $WT_TREE, $row->gedcom); } break; default: throw new \DomainException('Invalid list name: ' . $listname); } $filters = array(); $filters2 = array(); if (isset($attrs['filter1']) && count($this->list) > 0) { foreach ($attrs as $key => $value) { if (preg_match("/filter(\d)/", $key)) { $condition = $value; if (preg_match("/@(\w+)/", $condition, $match)) { $id = $match[1]; $value = "''"; if ($id == "ID") { if (preg_match("/0 @(.+)@/", $this->gedrec, $match)) { $value = "'" . $match[1] . "'"; } } elseif ($id == "fact") { $value = "'" . $this->fact . "'"; } elseif ($id == "desc") { $value = "'" . $this->desc . "'"; } else { if (preg_match("/\d $id (.+)/", $this->gedrec, $match)) { $value = "'" . str_replace("@", "", trim($match[1])) . "'"; } } $condition = preg_replace("/@$id/", $value, $condition); } //-- handle regular expressions if (preg_match("/([A-Z:]+)\s*([^\s]+)\s*(.+)/", $condition, $match)) { $tag = trim($match[1]); $expr = trim($match[2]); $val = trim($match[3]); if (preg_match("/\\$(\w+)/", $val, $match)) { $val = $vars[$match[1]]['id']; $val = trim($val); } if ($val) { $searchstr = ""; $tags = explode(":", $tag); //-- only limit to a level number if we are specifically looking at a level if (count($tags) > 1) { $level = 1; foreach ($tags as $t) { if (!empty($searchstr)) { $searchstr .= "[^\n]*(\n[2-9][^\n]*)*\n"; } //-- search for both EMAIL and _EMAIL... silly double gedcom standard if ($t == "EMAIL" || $t == "_EMAIL") { $t = "_?EMAIL"; } $searchstr .= $level . " " . $t; $level++; } } else { if ($tag == "EMAIL" || $tag == "_EMAIL") { $tag = "_?EMAIL"; } $t = $tag; $searchstr = "1 " . $tag; } switch ($expr) { case "CONTAINS": if ($t == "PLAC") { $searchstr .= "[^\n]*[, ]*" . $val; } else { $searchstr .= "[^\n]*" . $val; } $filters[] = $searchstr; break; default: $filters2[] = array("tag" => $tag, "expr" => $expr, "val" => $val); break; } } } } } } //-- apply other filters to the list that could not be added to the search string if ($filters) { foreach ($this->list as $key => $record) { foreach ($filters as $filter) { if (!preg_match("/" . $filter . "/i", $record->privatizeGedcom(Auth::accessLevel($WT_TREE)))) { unset($this->list[$key]); break; } } } } if ($filters2) { $mylist = array(); foreach ($this->list as $indi) { $key = $indi->getXref(); $grec = $indi->privatizeGedcom(Auth::accessLevel($WT_TREE)); $keep = true; foreach ($filters2 as $filter) { if ($keep) { $tag = $filter['tag']; $expr = $filter['expr']; $val = $filter['val']; if ($val == "''") { $val = ""; } $tags = explode(":", $tag); $t = end($tags); $v = get_gedcom_value($tag, 1, $grec); //-- check for EMAIL and _EMAIL (silly double gedcom standard :P) if ($t == "EMAIL" && empty($v)) { $tag = str_replace("EMAIL", "_EMAIL", $tag); $tags = explode(":", $tag); $t = end($tags); $v = get_sub_record(1, $tag, $grec); } switch ($expr) { case "GTE": if ($t == "DATE") { $date1 = new Date($v); $date2 = new Date($val); $keep = (Date::compare($date1, $date2) >= 0); } elseif ($val >= $v) { $keep = true; } break; case "LTE": if ($t == "DATE") { $date1 = new Date($v); $date2 = new Date($val); $keep = (Date::compare($date1, $date2) <= 0); } elseif ($val >= $v) { $keep = true; } break; default: if ($v == $val) { $keep = true; } else { $keep = false; } break; } } } if ($keep) { $mylist[$key] = $indi; } } $this->list = $mylist; } switch ($sortby) { case 'NAME': uasort($this->list, '\Fisharebest\Webtrees\GedcomRecord::compare'); break; case 'CHAN': uasort($this->list, function (GedcomRecord $x, GedcomRecord $y) { return $y->lastChangeTimestamp(true) - $x->lastChangeTimestamp(true); }); break; case 'BIRT:DATE': uasort($this->list, '\Fisharebest\Webtrees\Individual::compareBirthDate'); break; case 'DEAT:DATE': uasort($this->list, '\Fisharebest\Webtrees\Individual::compareDeathDate'); break; case 'MARR:DATE': uasort($this->list, '\Fisharebest\Webtrees\\Family::compareMarrDate'); break; default: // unsorted or already sorted by SQL break; } array_push($this->repeats_stack, array($this->repeats, $this->repeat_bytes)); $this->repeat_bytes = xml_get_current_line_number($parser) + 1; } /** * XML <List> end element handler */ private function listEndHandler() { global $parser, $parserStack, $report; $this->process_repeats--; if ($this->process_repeats > 0) { return; } // Check if there is any list if (count($this->list) > 0) { $lineoffset = 0; foreach ($this->repeats_stack as $rep) { $lineoffset += $rep[1]; } //-- read the xml from the file $lines = file($report); while ((strpos($lines[$lineoffset + $this->repeat_bytes], "<List") === false) && (($lineoffset + $this->repeat_bytes) > 0)) { $lineoffset--; } $lineoffset++; $reportxml = "<tempdoc>\n"; $line_nr = $lineoffset + $this->repeat_bytes; // List Level counter $count = 1; while (0 < $count) { if (strpos($lines[$line_nr], "<List") !== false) { $count++; } elseif (strpos($lines[$line_nr], "</List") !== false) { $count--; } if (0 < $count) { $reportxml .= $lines[$line_nr]; } $line_nr++; } // No need to drag this unset($lines); $reportxml .= "</tempdoc>"; // Save original values array_push($parserStack, $parser); $oldgedrec = $this->gedrec; $this->list_total = count($this->list); $this->list_private = 0; foreach ($this->list as $record) { if ($record->canShow()) { $this->gedrec = $record->privatizeGedcom(Auth::accessLevel($record->getTree())); //-- start the sax parser $repeat_parser = xml_parser_create(); $parser = $repeat_parser; xml_parser_set_option($repeat_parser, XML_OPTION_CASE_FOLDING, false); xml_set_element_handler($repeat_parser, array($this, 'startElement'), array($this, 'endElement')); xml_set_character_data_handler($repeat_parser, array($this, 'characterData')); if (!xml_parse($repeat_parser, $reportxml, true)) { throw new \DomainException(sprintf( 'ListEHandler XML error: %s at line %d', xml_error_string(xml_get_error_code($repeat_parser)), xml_get_current_line_number($repeat_parser) )); } xml_parser_free($repeat_parser); } else { $this->list_private++; } } $this->list = array(); $parser = array_pop($parserStack); $this->gedrec = $oldgedrec; } list($this->repeats, $this->repeat_bytes) = array_pop($this->repeats_stack); } /** * XML <ListTotal> element handler * * Prints the total number of records in a list * The total number is collected from * List and Relatives */ private function listTotalStartHandler() { if ($this->list_private == 0) { $this->current_element->addText($this->list_total); } else { $this->current_element->addText(($this->list_total - $this->list_private) . " / " . $this->list_total); } } /** * @param array $attrs an array of key value pairs for the attributes */ private function relativesStartHandler($attrs) { global $parser, $vars, $WT_TREE; $this->process_repeats++; if ($this->process_repeats > 1) { return; } $sortby = "NAME"; if (isset($attrs['sortby'])) { $sortby = $attrs['sortby']; } $match = array(); if (preg_match("/\\$(\w+)/", $sortby, $match)) { $sortby = $vars[$match[1]]['id']; $sortby = trim($sortby); } $maxgen = -1; if (isset($attrs['maxgen'])) { $maxgen = $attrs['maxgen']; } if ($maxgen == "*") { $maxgen = -1; } $group = "child-family"; if (isset($attrs['group'])) { $group = $attrs['group']; } if (preg_match("/\\$(\w+)/", $group, $match)) { $group = $vars[$match[1]]['id']; $group = trim($group); } $id = ""; if (isset($attrs['id'])) { $id = $attrs['id']; } if (preg_match("/\\$(\w+)/", $id, $match)) { $id = $vars[$match[1]]['id']; $id = trim($id); } $this->list = array(); $person = Individual::getInstance($id, $WT_TREE); if (!empty($person)) { $this->list[$id] = $person; switch ($group) { case "child-family": foreach ($person->getChildFamilies() as $family) { $husband = $family->getHusband(); $wife = $family->getWife(); if (!empty($husband)) { $this->list[$husband->getXref()] = $husband; } if (!empty($wife)) { $this->list[$wife->getXref()] = $wife; } $children = $family->getChildren(); foreach ($children as $child) { if (!empty($child)) { $this->list[$child->getXref()] = $child; } } } break; case "spouse-family": foreach ($person->getSpouseFamilies() as $family) { $husband = $family->getHusband(); $wife = $family->getWife(); if (!empty($husband)) { $this->list[$husband->getXref()] = $husband; } if (!empty($wife)) { $this->list[$wife->getXref()] = $wife; } $children = $family->getChildren(); foreach ($children as $child) { if (!empty($child)) { $this->list[$child->getXref()] = $child; } } } break; case "direct-ancestors": add_ancestors($this->list, $id, false, $maxgen); break; case "ancestors": add_ancestors($this->list, $id, true, $maxgen); break; case "descendants": $this->list[$id]->generation = 1; add_descendancy($this->list, $id, false, $maxgen); break; case "all": add_ancestors($this->list, $id, true, $maxgen); add_descendancy($this->list, $id, true, $maxgen); break; } } switch ($sortby) { case 'NAME': uasort($this->list, '\Fisharebest\Webtrees\GedcomRecord::compare'); break; case 'BIRT:DATE': uasort($this->list, '\Fisharebest\Webtrees\Individual::compareBirthDate'); break; case 'DEAT:DATE': uasort($this->list, '\Fisharebest\Webtrees\Individual::compareDeathDate'); break; case 'generation': $newarray = array(); reset($this->list); $genCounter = 1; while (count($newarray) < count($this->list)) { foreach ($this->list as $key => $value) { $this->generation = $value->generation; if ($this->generation == $genCounter) { $newarray[$key] = new \stdClass; $newarray[$key]->generation = $this->generation; } } $genCounter++; } $this->list = $newarray; break; default: // unsorted break; } array_push($this->repeats_stack, array($this->repeats, $this->repeat_bytes)); $this->repeat_bytes = xml_get_current_line_number($parser) + 1; } /** * XML </ Relatives> end element handler */ private function relativesEndHandler() { global $parser, $parserStack, $report, $WT_TREE; $this->process_repeats--; if ($this->process_repeats > 0) { return; } // Check if there is any relatives if (count($this->list) > 0) { $lineoffset = 0; foreach ($this->repeats_stack as $rep) { $lineoffset += $rep[1]; } //-- read the xml from the file $lines = file($report); while ((strpos($lines[$lineoffset + $this->repeat_bytes], "<Relatives") === false) && (($lineoffset + $this->repeat_bytes) > 0)) { $lineoffset--; } $lineoffset++; $reportxml = "<tempdoc>\n"; $line_nr = $lineoffset + $this->repeat_bytes; // Relatives Level counter $count = 1; while (0 < $count) { if (strpos($lines[$line_nr], "<Relatives") !== false) { $count++; } elseif (strpos($lines[$line_nr], "</Relatives") !== false) { $count--; } if (0 < $count) { $reportxml .= $lines[$line_nr]; } $line_nr++; } // No need to drag this unset($lines); $reportxml .= "</tempdoc>\n"; // Save original values array_push($parserStack, $parser); $oldgedrec = $this->gedrec; $this->list_total = count($this->list); $this->list_private = 0; foreach ($this->list as $key => $value) { if (isset($value->generation)) { $this->generation = $value->generation; } $tmp = GedcomRecord::getInstance($key, $WT_TREE); $this->gedrec = $tmp->privatizeGedcom(Auth::accessLevel($WT_TREE)); $repeat_parser = xml_parser_create(); $parser = $repeat_parser; xml_parser_set_option($repeat_parser, XML_OPTION_CASE_FOLDING, false); xml_set_element_handler($repeat_parser, array($this, 'startElement'), array($this, 'endElement')); xml_set_character_data_handler($repeat_parser, array($this, 'characterData')); if (!xml_parse($repeat_parser, $reportxml, true)) { throw new \DomainException(sprintf("RelativesEHandler XML error: %s at line %d", xml_error_string(xml_get_error_code($repeat_parser)), xml_get_current_line_number($repeat_parser))); } xml_parser_free($repeat_parser); } // Clean up the list array $this->list = array(); $parser = array_pop($parserStack); $this->gedrec = $oldgedrec; } list($this->repeats, $this->repeat_bytes) = array_pop($this->repeats_stack); } /** * XML <Generation /> element handler * * Prints the number of generations */ private function generationStartHandler() { $this->current_element->addText($this->generation); } /** * XML <NewPage /> element handler * * Has to be placed in an element (header, pageheader, body or footer) */ private function newPageStartHandler() { global $wt_report; $temp = "addpage"; $wt_report->addElement($temp); } /** * @param array $attrs an array of key value pairs for the attributes * @param string $tag HTML tag name */ private function htmlStartHandler($tag, $attrs) { global $wt_reportStack, $wt_report, $ReportRoot; if ($tag === "tempdoc") { return; } array_push($wt_reportStack, $wt_report); $wt_report = $ReportRoot->createHTML($tag, $attrs); $this->current_element = $wt_report; array_push($this->print_data_stack, $this->print_data); $this->print_data = true; } /** * @param string $tag */ private function htmlEndHandler($tag) { global $wt_report, $wt_reportStack; if ($tag === "tempdoc") { return; } $this->print_data = array_pop($this->print_data_stack); $this->current_element = $wt_report; $wt_report = array_pop($wt_reportStack); if (!is_null($wt_report)) { $wt_report->addElement($this->current_element); } else { $wt_report = $this->current_element; } } /** * Handle <Input> */ private function inputStartHandler() { // Dummy function, to prevent the default HtmlStartHandler() being called } /** * Handle </Input> */ private function inputEndHandler() { // Dummy function, to prevent the default HtmlEndHandler() being called } /** * Handle <Report> */ private function reportStartHandler() { // Dummy function, to prevent the default HtmlStartHandler() being called } /** * Handle </Report> */ private function reportEndHandler() { // Dummy function, to prevent the default HtmlEndHandler() being called } /** * XML <titleStartHandler> start element handler */ private function titleStartHandler() { $this->report_title = true; } /** * XML </titleEndHandler> end element handler */ private function titleEndHandler() { $this->report_title = false; } /** * XML <descriptionStartHandler> start element handler */ private function descriptionStartHandler() { $this->report_description = true; } /** * XML </descriptionEndHandler> end element handler */ private function descriptionEndHandler() { $this->report_description = false; } }