$_title_yetlist, 'body' => '');
// Diff
$pages = array_diff(get_existpages(CACHE_DIR, '.ref'), get_existpages());
if (empty($pages)) {
$retval['body'] = $_err_notexist;
return $retval;
}
$empty = TRUE;
// Load .ref files and Output
$script = get_base_uri();
$refer_regex = '/' . $non_list . '|^' . preg_quote($whatsdeleted, '/') . '$/S';
asort($pages, SORT_STRING);
foreach ($pages as $file=>$page) {
$refer = array();
foreach (file(CACHE_DIR . $file) as $line) {
list($_page) = explode("\t", rtrim($line));
$refer[] = $_page;
}
// Diff
$refer = array_diff($refer, preg_grep($refer_regex, $refer));
if (! empty($refer)) {
$empty = FALSE;
$refer = array_unique($refer);
sort($refer, SORT_STRING);
$r_refer = '';
$link_refs = array();
foreach ($refer as $_refer) {
$r_refer = pagename_urlencode($_refer);
$link_refs[] = '' .
htmlsc($_refer) . '';
}
$link_ref = join(' ', $link_refs);
unset($link_refs);
$s_page = htmlsc($page);
if (PKWK_READONLY) {
$href = $s_page;
} else {
// Dangling link
$href = '' . $s_page . '' . $_symbol_noexists .
'';
}
$retval['body'] .= '' . $href . ' (' . $link_ref . ')' . "\n";
}
}
if ($empty) {
$retval['body'] = $_err_notexist;
return $retval;
}
if ($retval['body'] != '')
$retval['body'] = '' . "\n" . $retval['body'] . '
' . "\n";
return $retval;
}