. */ namespace Fisharebest\Webtrees; use Fisharebest\Algorithm\MyersDiff; use Fisharebest\Webtrees\Controller\PageController; use Fisharebest\Webtrees\Functions\FunctionsEdit; use PDO; /** * Defined in session.php * * @global Tree $WT_TREE */ global $WT_TREE; define('WT_SCRIPT_NAME', 'admin_site_change.php'); require './includes/session.php'; $controller = new PageController; $controller ->restrictAccess(Auth::isManager($WT_TREE)) ->setPageTitle(I18N::translate('Changes')); $earliest = Database::prepare("SELECT IFNULL(DATE(MIN(change_time)), CURDATE()) FROM `##change`")->execute(array())->fetchOne(); $latest = Database::prepare("SELECT IFNULL(DATE(MAX(change_time)), CURDATE()) FROM `##change`")->execute(array())->fetchOne(); // Filtering $action = Filter::get('action'); $from = Filter::get('from', '\d\d\d\d-\d\d-\d\d', $earliest); $to = Filter::get('to', '\d\d\d\d-\d\d-\d\d', $latest); $type = Filter::get('type', 'accepted|rejected|pending'); $oldged = Filter::get('oldged'); $newged = Filter::get('newged'); $xref = Filter::get('xref', WT_REGEX_XREF); $user = Filter::get('user'); $search = Filter::get('search'); $search = isset($search['value']) ? $search['value'] : null; $statuses = array( 'accepted' => /* I18N: the status of an edit accepted/rejected/pending */ I18N::translate('accepted'), 'rejected' => /* I18N: the status of an edit accepted/rejected/pending */ I18N::translate('rejected'), 'pending' => /* I18N: the status of an edit accepted/rejected/pending */ I18N::translate('pending'), ); if (Auth::isAdmin()) { // Administrators can see all logs $gedc = Filter::get('gedc'); } else { // Managers can only see logs relating to this gedcom $gedc = $WT_TREE->getName(); } $sql_select = "SELECT SQL_CACHE SQL_CALC_FOUND_ROWS change_id, change_time, status, xref, old_gedcom, new_gedcom, IFNULL(user_name, '') AS user_name, IFNULL(gedcom_name, '') AS gedcom_name" . " FROM `##change`" . " LEFT JOIN `##user` USING (user_id)" . // user may be deleted " LEFT JOIN `##gedcom` USING (gedcom_id)"; // gedcom may be deleted $where = " WHERE 1"; $args = array(); if ($search) { $where .= " AND (old_gedcom LIKE CONCAT('%', :search_1, '%') OR new_gedcom LIKE CONCAT('%', :search_2, '%'))"; $args['search_1'] = $search; $args['search_2'] = $search; } if ($from) { $where .= " AND change_time >= :from"; $args['from'] = $from; } if ($to) { $where .= " AND change_time < TIMESTAMPADD(DAY, 1 , :to)"; // before end of the day $args['to'] = $to; } if ($type) { $where .= " AND status = :status"; $args['status'] = $type; } if ($oldged) { $where .= " AND old_gedcom LIKE CONCAT('%', :old_ged, '%')"; $args['old_ged'] = $oldged; } if ($newged) { $where .= " AND new_gedcom LIKE CONCAT('%', :new_ged, '%')"; $args['new_ged'] = $newged; } if ($xref) { $where .= " AND xref = :xref"; $args['xref'] = $xref; } if ($user) { $where .= " AND user_name LIKE CONCAT('%', :user, '%')"; $args['user'] = $user; } if ($gedc) { $where .= " AND gedcom_name LIKE CONCAT('%', :gedc, '%')"; $args['gedc'] = $gedc; } switch ($action) { case 'delete': $sql_delete = "DELETE `##change` FROM `##change`" . " LEFT JOIN `##user` USING (user_id)" . // user may be deleted " LEFT JOIN `##gedcom` USING (gedcom_id)"; // gedcom may be deleted Database::prepare($sql_delete . $where)->execute($args); break; case 'export': header('Content-Type: text/csv'); header('Content-Disposition: attachment; filename="webtrees-changes.csv"'); $rows = Database::prepare($sql_select . $where . ' ORDER BY change_id')->execute($args)->fetchAll(); foreach ($rows as $row) { echo '"', $row->change_time, '",', '"', $row->status, '",', '"', $row->xref, '",', '"', str_replace('"', '""', $row->old_gedcom), '",', '"', str_replace('"', '""', $row->new_gedcom), '",', '"', str_replace('"', '""', $row->user_name), '",', '"', str_replace('"', '""', $row->gedcom_name), '"', "\n"; } return; case 'load_json': $start = Filter::getInteger('start'); $length = Filter::getInteger('length'); $order = Filter::getArray('order'); if ($order) { $order_by = " ORDER BY "; foreach ($order as $key => $value) { if ($key > 0) { $order_by .= ','; } // Datatables numbers columns 0, 1, 2 // MySQL numbers columns 1, 2, 3 switch ($value['dir']) { case 'asc': $order_by .= (1 + $value['column']) . " ASC "; break; case 'desc': $order_by .= (1 + $value['column']) . " DESC "; break; } } } else { $order_by = " ORDER BY 1 DESC"; } if ($length) { Auth::user()->setPreference('admin_site_change_page_size', $length); $limit = " LIMIT :limit OFFSET :offset"; $args['limit'] = $length; $args['offset'] = $start; } else { $limit = ""; } // This becomes a JSON list, not array, so need to fetch with numeric keys. $rows = Database::prepare($sql_select . $where . $order_by . $limit)->execute($args)->fetchAll(PDO::FETCH_OBJ); // Total filtered/unfiltered rows $recordsFiltered = (int) Database::prepare("SELECT FOUND_ROWS()")->fetchOne(); $recordsTotal = (int) Database::prepare("SELECT COUNT(*) FROM `##change`")->fetchOne(); $data = array(); $algorithm = new MyersDiff; foreach ($rows as $row) { $old_lines = preg_split('/[\n]+/', $row->old_gedcom, -1, PREG_SPLIT_NO_EMPTY); $new_lines = preg_split('/[\n]+/', $row->new_gedcom, -1, PREG_SPLIT_NO_EMPTY); $differences = $algorithm->calculate($old_lines, $new_lines); $diff_lines = array(); foreach ($differences as $difference) { switch ($difference[1]) { case MyersDiff::DELETE: $diff_lines[] = '~~' . $difference[0] . '~~'; break; case MyersDiff::INSERT: $diff_lines[] = '' . $difference[0] . ''; break; default: $diff_lines[] = $difference[0]; } } // Only convert valid xrefs to links $record = GedcomRecord::getInstance($row->xref, Tree::findByName($gedc)); $data[] = array( $row->change_id, $row->change_time, I18N::translate($row->status), $record ? '' . $record->getXref() . '' : $row->xref, '

' . preg_replace_callback('/@(' . WT_REGEX_XREF . ')@/', function ($match) use ($gedc) { $record = GedcomRecord::getInstance($match[1], Tree::findByName($gedc)); return $record ? '' . $match[0] . '' : $match[0]; }, implode("\n", $diff_lines) ) . '

', $row->user_name, $row->gedcom_name, ); } header('Content-type: application/json'); // See http://www.datatables.net/usage/server-side echo json_encode(array( 'draw' => Filter::getInteger('draw'), 'recordsTotal' => $recordsTotal, 'recordsFiltered' => $recordsFiltered, 'data' => $data, )); return; } $controller ->pageHeader() ->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL) ->addExternalJavascript(WT_DATATABLES_BOOTSTRAP_JS_URL) ->addExternalJavascript(WT_MOMENT_JS_URL) ->addExternalJavascript(WT_BOOTSTRAP_DATETIMEPICKER_JS_URL) ->addInlineJavascript(' jQuery(".table-site-changes").dataTable( { processing: true, serverSide: true, ajax: "' . WT_BASE_URL . WT_SCRIPT_NAME . '?action=load_json&from=' . $from . '&to=' . $to . '&type=' . $type . '&oldged=' . rawurlencode($oldged) . '&newged=' . rawurlencode($newged) . '&xref=' . rawurlencode($xref) . '&user=' . rawurlencode($user) . '&gedc=' . rawurlencode($gedc) . '", ' . I18N::datatablesI18N(array(10, 20, 50, 100, 500, 1000, -1)) . ', sorting: [[ 0, "desc" ]], pageLength: ' . Auth::user()->getPreference('admin_site_change_page_size', 10) . ', columns: [ /* change_id */ { visible: false }, /* Timestamp */ { sort: 0 }, /* Status */ { }, /* Record */ { }, /* Data */ {sortable: false}, /* User */ { }, /* Family tree */ { } ] }); jQuery("#from, #to").parent("div").datetimepicker({ format: "YYYY-MM-DD", minDate: "' . $earliest . '", maxDate: "' . $latest . '", locale: "' . WT_LOCALE . '", useCurrent: false, icons: { time: "fa fa-clock-o", date: "fa fa-calendar", up: "fa fa-arrow-up", down: "fa fa-arrow-down", previous: "fa fa-arrow-' . (I18N::direction() === 'rtl' ? 'right' : 'left') . '", next: "fa fa-arrow-' . (I18N::direction() === 'rtl' ? 'left' : 'right') . '", today: "fa fa-trash-o", clear: "fa fa-trash-o" } }); '); $users_array = array(); foreach (User::all() as $tmp_user) { $users_array[$tmp_user->getUserName()] = $tmp_user->getUserName(); } ?>

getPageTitle() ?>

getPageTitle() ?>