Enable self-generated Related Links on the Story Page

Captain Joined: Jan 17, 2003 Posts: 629 Location: Europe

Open article.php and change

Code:

$boxtitle = ""._RELATED."";
$boxstuff = "";
$sql = "select name, url from ".$prefix."_related where tid=$topic";
$result = $db->sql_query($sql);
while ($row = $db->sql_fetchrow($result)) {
$name = $row[name];
$url = $row[url];
$boxstuff .= "<big>&</big>&<a href=\"$url\" target=\"new\">$name</a> \n";
}

to

Code:

$boxtitle = ""._RELATED."";
$boxstuff = "";
unset($location);
$links = array();
$hrefs = array();
$pos = 0;
while (!(($pos = strpos($bodytext,"<",$pos)) === false)) {
$pos++;
$endpos = strpos($bodytext,">",$pos);
$tag = substr($bodytext,$pos,$endpos-$pos);
$tag = trim($tag);
if (isset($location)) {
if (!strcasecmp(strtok($tag," "),"/A")) {
$link = substr($bodytext,$linkpos,$pos-1-$linkpos);
$links[] = $link;
$hrefs[] = $location;
unset($location);
}
$pos = $endpos+1;
} else {
if (!strcasecmp(strtok($tag," "),"A")) {
 if (eregi("HREF[ \t\n\r\v]*=[ \t\n\r\v]*\"([^\"]*)\"",$tag,$regs));
 else if (eregi("HREF[ \t\n\r\v]*=[ \t\n\r\v]*([^ \t\n\r\v]*)",$tag,$regs));
 else $regs[1] = "";
 if ($regs[1]) {
 $location = $regs[1];
 }
 $pos = $endpos+1;
 $linkpos = $pos;
} else {
 $pos = $endpos+1;
}
}
}

for ($i=0; $i<sizeof($links); $i++) {
if (strlen($links[$i]) > 20 AND !ereg(" ", $links[$i])) {
$alttext = "$links[$i]";
$links[$i] = substr($links[$i],0,19) . '';
} else {
$alttext = "";
}

Demo:
http://www.orientalgate.org/article378.html