<?php

/* Our own example of a resource indexing program - this code goes through our
directories of blog articles, longer technical pieces, and source code examples
and produced a dynamic index.  For production use with as many reources as we
have, I would recommend cacheing the results! */

# -------------------------  Set up a table to jump around the page
# The page will be a long one, so we need navigation within the page!

$jumper = <<<JUMP
A - Linux, Apache httpd and Tomcat; web deployment
C - C and C++ programming
G - General Well House Consultants topics
H - PHP programming and use
J - Java programmming and use including Servlets and JSP
M - Well House Manor; hotel and events
P - Perl programming and use
Q - General programming subjects
R - Ruby programming and use
S - Databases and the MySQL database in particular
T - Tcl, Tcl/Tk, wish and Expect programming and use
U - Lua programming and use
W - Web site programming and techniques
Y - Python programming and use
Z - Miscellany
JUMP;

$jumptab = "<table><tr><td width=40 bgcolor=#FFFFDD>&nbsp;</td><td>";
$jumptab .= "<a href=#top>top</a> - top of page<br>";
$jumptab .= "<a href=#new>new</a> - new articles not yet categorised<br>";
foreach (explode("\n",$jumper) as $sector){
        list($kl,$stuff) = explode(" - ",trim($sector));
        $sbn[$kl] = $stuff;
        $jumptab .= "<a href=#$kl>$kl</a> - $stuff<br>";
        }
$jumptab .= "<a href=#end>end</a> - end of page";
$jumptab .= "</td></tr></table><br>";

# -------------------------  Read Module names

$mnt[Z999] = "new and uncategorised articles";
foreach (file("$_SERVER[DOCUMENT_ROOT]/resources/mtable.txt") as $mname) {
        $mkey = substr($mname,0,4);
        $mnt[$mkey] = substr($mname,4);
        }

# -------------------------  Find longer articles

foreach (file("$_SERVER[DOCUMENT_ROOT]/solutions/rtable.txt") as $mname) {
        $fol = explode(" ",$mname);
        $desc = implode(" ",array_slice($fol,2));
        $rtab[$fol[0]] .= "[<a href=$fol[1] target=pix>article</a>] $desc<br>";
        }

# ------------------------ Go through blog articles

mysql_connect("localhost","wellho","xxxxxxxx");
mysql_select_db("wellho");

$art_tab = array();   // Read in the article to module table
foreach (file("$_SERVER[DOCUMENT_ROOT]/../include/bloglinks.txt") as $bll) {
        list ($art,$mod) = explode(" ",trim($bll));
        $art_tab[$art] .= "$mod:";
        }

// all articles, starting with most recent
$aindex = array();
$q = mysql_query("select * from mt_entry order by entry_id desc");
// add each article to all relevant indexes
while ($row = mysql_fetch_assoc($q)) {
        $pn = $row[entry_id]."_".preg_replace('/[^a-z0-9]+/i','-',$row[entry_title]);
        $html = "<a href=/mouth/$pn.html target=pix>[$row[entry_id]]</a> $row[entry_title]<br>";
        $addunits = explode(":",$art_tab[$row[entry_id]]);
        if (count($addunits) < 2) { $addunits = array("Z999","");
                }
        foreach ($addunits as $inmod) {
                if ($inmod == "") continue;
                $aindex[$inmod] .= $html;
        }
}
ksort($aindex);

# ------------------------ Source code examples

foreach (array_keys($aindex) as $mod) {
        $dc = "$_SERVER[DOCUMENT_ROOT]/../trainee/".strtolower($mod);
        $sce = @opendir($dc);
        while ($item = @readdir($sce)) {
                $fl = @fopen("$dc/$item","r");
                $ttl = "";
                while ($line = @fgets($fl)) {
                        if (substr($line,0,3) == "#%%") {
                                $ttl = substr($line,3);
                                continue;
                        }
                }
                if ($ttl) $source[$mod] .=
                        "[<a href=http://www.wellho.net/resources/ex.php4?item=".
                        strtolower($mod)."/$item target=pix>source</a>] $ttl<br>";
                }
        }

// ------------------------- Create main output report

$result = "";
foreach (array_keys($aindex) as $mod) {
        $keyletter = substr($mod,0,1);
        if ($keyletter != $oldkey) {
                $result .= $jumptab;
                $result .= "<h3><a name=$keyletter>$keyletter</a>: $sbn[$keyletter]</h3>";
                $oldkey = $keyletter;
                }
        if ($mod == "Z999") {
                $result .= "<i><a name=new>These articles have not yet been categorised</i><br>";
                }
        $result .= "<a href=http://www.wellho.net/resources/$mod.html>Module ".
                "$mod</a> - $mnt[$mod]<br>";
        $result .= "$aindex[$mod]";
        $result .= "$rtab[$mod]";
        $result .= "$source[$mod]<br>";
        }
$result .= $jumptab;

$ttl = "Global Blog Index";

// -------------------- Staff use ONLY - add in a report of unblogged modules!

include ("$_SERVER[DOCUMENT_ROOT]/../include/stafflogin.v8");
if (pwtest()) {
$misslist = array();
foreach (array_keys($mnt) as $chk) {
        if ($aindex[$chk] == "") {
                array_push($misslist,"<a href=/resources/$chk.html>$chk</a> $mnt[$chk]");
        }
}
$missed = "No blog articles on: <br>".implode("<br>",$misslist)."<br>";
} else {
$missed = "";
}

# Following is the template into which the results are saved
///////////////////////////////////////////////////////////////////////////
?>
<html><head>
<title><?= $ttl ?></title>
<h2><a name=top>Horse's Mouth blog articles - sorted by subject</a></h2>
This is a global index of over 2000 short technical and general articles
written as <a href=http://www.wellho.net/horse/">"The Horse's Mouth"
blog </a> by Graham Ellis of Well House Consultants, sorted by subject.
We have also listed longer articles and source code examples that relate
to the same topic, for your convenience. <i>Note that we do not list
modules on which no blog articles have been written</i><br>
<?= $result ?>
<?= $missed ?>
<a name=end>&copy; Graham Ellis, Well House Consultants</a>
</body></html>