You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.7 KiB
48 lines
1.7 KiB
<?php
|
|
|
|
// (c) Copyright by authors of the Tiki Wiki CMS Groupware Project
|
|
//
|
|
// All Rights Reserved. See copyright.txt for details and a complete list of authors.
|
|
// Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
|
|
// $Id$
|
|
|
|
// This rather simple set of PHP lines fill in for a missing Tiki
|
|
// feature. It exports links between pages in Tiki in a format that
|
|
// can be fed to TGBrowser to get those nice browsable graphs.
|
|
require_once('tiki-setup.php');
|
|
|
|
// Check if user is admin. If he is not, just die. Note that I wrote
|
|
// this since I do not know too much about Tiki permission system, so
|
|
// I would kindly ask a wizard to enlarge this. (filmil)
|
|
if ($tiki_p_admin != 'y') {
|
|
$smarty->assign(
|
|
'msg',
|
|
tra("This feature is for admins only") . ": show_raw_links"
|
|
);
|
|
$smarty->display("error.tpl");
|
|
die;
|
|
}
|
|
|
|
// Otherwise do the following:
|
|
// 1. Find all Wiki pages
|
|
// 2. For each Wiki page P, find all pages that it points to
|
|
// 3. Print first the name of the page P, then one after the other,
|
|
// all pages that it points to.
|
|
|
|
header("Content-Type: text/plain; charset=utf-8");
|
|
$query = "select `pageName` from `tiki_pages`";
|
|
$result = $tikilib->query($query, []);
|
|
while ($res = $result->fetchRow()) {
|
|
$resnew = str_replace(" ", '+', $res); // Must do this since
|
|
// TGBrowser will get confused
|
|
$put = "";
|
|
$query2 = "select `toPage`, `fromPage` from `tiki_links` where `fromPage`='" .
|
|
$res["pageName"] . "'";
|
|
$result2 = $tikilib->query($query2, []);
|
|
$put = $put . $resnew["pageName"] . " ";
|
|
while ($res2 = $result2->fetchRow()) {
|
|
$res2 = str_replace(" ", '+', $res2);
|
|
$put = $put . $res2["toPage"] . " ";
|
|
}
|
|
echo $put . "\n";
|
|
}
|