';
$data[] = array(
mediaFileInfo($media_folder, $media_path, $unused_file) . $delete_link,
$img,
$create_form,
);
}
break;
default:
throw new \DomainException('Invalid action');
}
header('Content-type: application/json');
// See http://www.datatables.net/usage/server-side
echo json_encode(array(
'draw' => Filter::getInteger('draw'), // String, but always an integer
'recordsTotal' => $recordsTotal,
'recordsFiltered' => $recordsFiltered,
'data' => $data,
));
return;
}
/**
* A unique list of media folders, from all trees.
*
* @return string[]
*/
function all_media_folders() {
return Database::prepare(
"SELECT SQL_CACHE setting_value, setting_value" .
" FROM `##gedcom_setting`" .
" WHERE setting_name='MEDIA_DIRECTORY' AND gedcom_id > 0" .
" GROUP BY 1" .
" ORDER BY 1"
)->execute(array())->fetchAssoc();
}
/**
* Generate a list of media paths (within a media folder) used by all media objects.
*
* @param string $media_folder
*
* @return string[]
*/
function media_paths($media_folder) {
$media_paths = Database::prepare(
"SELECT SQL_CACHE LEFT(m_filename, CHAR_LENGTH(m_filename) - CHAR_LENGTH(SUBSTRING_INDEX(m_filename, '/', -1))) AS media_path" .
" FROM `##media`" .
" JOIN `##gedcom_setting` ON (m_file = gedcom_id AND setting_name = 'MEDIA_DIRECTORY')" .
" WHERE setting_value = :media_folder" .
" AND m_filename NOT LIKE 'http://%'" .
" AND m_filename NOT LIKE 'https://%'" .
" GROUP BY 1" .
" ORDER BY 1"
)->execute(array(
'media_folder' => $media_folder,
))->fetchOneColumn();
if (!$media_paths || reset($media_paths) != '') {
// Always include a (possibly empty) top-level folder
array_unshift($media_paths, '');
}
return array_combine($media_paths, $media_paths);
}
/**
* Search a folder (and optional subfolders) for filenames that match a search pattern.
*
* @param string $dir
* @param bool $recursive
* @param string $filter
*
* @return string[]
*/
function scan_dirs($dir, $recursive, $filter) {
$files = array();
// $dir comes from the database. The actual folder may not exist.
if (is_dir($dir)) {
foreach (scandir($dir) as $path) {
if (is_dir($dir . $path)) {
// What if there are user-defined subfolders “thumbs” or “watermarks”?
if ($path != '.' && $path != '..' && $path != 'thumbs' && $path != 'watermark' && $recursive) {
foreach (scan_dirs($dir . $path . '/', $recursive, $filter) as $subpath) {
$files[] = $path . '/' . $subpath;
}
}
} elseif (!$filter || stripos($path, $filter) !== false) {
$files[] = $path;
}
}
}
return $files;
}
/**
* Fetch a list of all files on disk
*
* @param string $media_folder Location of root folder
* @param string $media_path Any subfolder
* @param string $subfolders Include or exclude subfolders
* @param string $filter Filter files whose name contains this test
*
* @return string[]
*/
function all_disk_files($media_folder, $media_path, $subfolders, $filter) {
return scan_dirs(WT_DATA_DIR . $media_folder . $media_path, $subfolders == 'include', $filter);
}
/**
* Fetch a list of all files on in the database.
*
* The subfolders parameter is not implemented. However, as we
* currently use this function as an exclusion list, it is harmless
* to always include sub-folders.
*
* @param string $media_folder
* @param string $media_path
* @param string $subfolders
* @param string $filter
*
* @return string[]
*/
function all_media_files($media_folder, $media_path, $subfolders, $filter) {
return Database::prepare(
"SELECT SQL_CACHE SQL_CALC_FOUND_ROWS TRIM(LEADING :media_path_1 FROM m_filename) AS media_path, 'OBJE' AS type, m_titl, m_id AS xref, m_file AS ged_id, m_gedcom AS gedrec, m_filename" .
" FROM `##media`" .
" JOIN `##gedcom_setting` ON (m_file = gedcom_id AND setting_name = 'MEDIA_DIRECTORY')" .
" JOIN `##gedcom` USING (gedcom_id)" .
" WHERE setting_value = :media_folder" .
" AND m_filename LIKE CONCAT(:media_path_2, '%')" .
" AND (SUBSTRING_INDEX(m_filename, '/', -1) LIKE CONCAT('%', :filter_1, '%')" .
" OR m_titl LIKE CONCAT('%', :filter_2, '%'))" .
" AND m_filename NOT LIKE 'http://%'" .
" AND m_filename NOT LIKE 'https://%'"
)->execute(array(
'media_path_1' => $media_path,
'media_folder' => $media_folder,
'media_path_2' => Filter::escapeLike($media_path),
'filter_1' => Filter::escapeLike($filter),
'filter_2' => Filter::escapeLike($filter),
))->fetchOneColumn();
}
/**
* Generate some useful information and links about a media file.
*
* @param string $media_folder
* @param string $media_path
* @param string $file
*
* @return string
*/
function mediaFileInfo($media_folder, $media_path, $file) {
$html = '
';
$html .= '
' . I18N::translate('Filename') . '
';
$html .= '
' . Filter::escapeHtml($file) . '
';
$full_path = WT_DATA_DIR . $media_folder . $media_path . $file;
if ($file && file_exists($full_path)) {
try {
$size = filesize($full_path);
$size = (int) (($size + 1023) / 1024); // Round up to next KB
$size = /* I18N: size of file in KB */ I18N::translate('%s KB', I18N::number($size));
$html .= '
' . I18N::translate('This media file exists, but cannot be accessed.') . '
';
}
} else {
$html .= '';
$html .= '
' . I18N::translate('This media file does not exist.') . '
';
}
return $html;
}
/**
* Generate some useful information and links about a media object.
*
* @param Media $media
*
* @return string HTML
*/
function mediaObjectInfo(Media $media) {
$xref = $media->getXref();
$gedcom = $media->getTree()->getName();
$html =
'