<?php 
/* 
Author:             Sebastian 
Copyright:          sebastians-pamphlets.com
Written:            August 2007  
Version:            0.1

Guarantees:         Absolutely none. Use it as is at your own risk.

License:            Use and modify it as you like, but please link
                    to a page of your choice at 
                    http://sebastians-pamphlets.com/
                    and choose a nice anchor text.

                    Don't distribute the script, please link here instead.
                    If you made really good changes, drop me a message and 
                    possibly I'll link out to your version and offer a 
                    download of your version here. Or I adapt your stuff 
                    and you get the credits.

Purpose:            Lists all WordPress categories as sitemaps in variations.

Documentation:      http://sebastians-pamphlets.com/free-wordpress-add-on-categorized-sitemaps/

Flaws:              Not widely tested. It works here, folks wanted
                    me to share it, that's it.

Input parameters:   Via query string

                    definitions=TRUE
                    - prints the category descriptions, if there are any. Example:    
                      http://sebastians-pamphlets.com/links/categories/?definitions=TRUE
                      
                    show_posts=TRUE
                    - lists all posts by category. Example:  
                      http://sebastians-pamphlets.com/links/categories/?show_posts=TRUE

                    cat=categoryname
                    - lists all posts of one category on a single page. Example:
                    http://sebastians-pamphlets.com/links/categories/?cat=risky-linkage

                    Some combinations work too, but don't spread your content
                    over too many URLs:
                    http://sebastians-pamphlets.com/links/categories/?show_posts=TRUE&definitions=TRUE    

Prerequisites:      WordPress version 2.2.2, I don't know whether it works with other versions or not.
                    You need a plugin to execute PHP code within the content of posts + pages.    
                    You must hack header.php, page.php ... as described. 
                    If you didn't implement my SEO tweaks in your template, chances are it doesn't work.
                    http://sebastians-pamphlets.com/how-to-seo-sanitize-a-wordpress-theme/
                    http://sebastians-pamphlets.com/how-to-feed-old-wordpress-posts-with-link-love/

Changelog:          0.1 First release September/07/2007    
 
*/

// customize if necessary:
//$blogLocaction = "sebastians-pamphlets.com"; // "www.yourserver.com", "www.yourserver.com/blog" ...
//$rssIconPath   = "/img/feed-icon-16x16.gif"; // get a 16*16 rss icon somewhere and upload it you your server, then change this path which is relative to the domain's root
$rssIconWidth  = 16;
$rssIconHeight = 16;
// Better don't change anything below if you're not familiar with WP, PHP, and SQL


if (!isset($blogLocaction)) {
    $blogLocaction = get_bloginfo('url'); 
    $blogLocaction = str_replace("http://", "", $blogLocaction);
    $blogLocaction = str_replace("https://", "", $blogLocaction);
    if (substr($blogLocaction, -1, 1) == "/") {
        $blogLocaction = substr($blogLocaction, 0, strlen($blogLocaction) - 1);
    }
}
if (!isset($rssIconPath)) {
    $rssIconPath = get_bloginfo('url'); 
    $urlArr = parse_url($rssIconPath);
    $rssIconPath = $urlArr["path"];
    if (substr($rssIconPath, 0, 1) != "/") {
        $rssIconPath = "/$rssIconPath";
    }
    if (substr($rssIconPath, -1, 1) == "/") {
        $rssIconPath = substr($rssIconPath, 0, strlen($rssIconPath) - 1);
    }
    $rssIconPath  .= "/wp-includes/images/rss.png";
    $rssIconWidth  = 14;
    $rssIconHeight = 14;
}


// print category descriptions
$definitions = FALSE;
if (isset($_GET["definitions"])) {
    $definitions = $_GET["definitions"];
    if ($definitions != TRUE && $definitions != FALSE) {
        $definitions = FALSE;
    }
    else {
        $definitionsQueryString = "definitions=TRUE";
    }
}

// list all posts per category
$show_posts = FALSE;
if (isset($_GET["show_posts"])) {
    $show_posts = $_GET["show_posts"];
    if ($show_posts != TRUE && $show_posts != FALSE) {
        $show_posts = FALSE;
    }
}

$arrPhpSelf = explode("?", $_SERVER["REQUEST_URI"]);
$thisRelUri = $arrPhpSelf[0];
$showPostsQueryString = "show_posts=TRUE";
if ($show_posts) {    
    $thisQueryString = "";
    if ($definitions) {
        $thisQueryString .= "?" .$definitionsQueryString;
    }
    $postsLink = "<a href=\"$thisRelUri$thisQueryString\">hide posts</a>";
}
else {   
    if ($definitions) {
        $showPostsQueryString .= "&amp;" .$definitionsQueryString;
    }
    $postsLink = "<a href=\"$thisRelUri?$showPostsQueryString\">show posts</a>";
}

GLOBAL $wpdb;

$catNameArray = array();
$catNameQuery = "SELECT cat_name, category_nicename 
                 FROM wp_categories
                 WHERE wp_categories.category_count > 0";
$catNameResults = $wpdb->get_results("$catNameQuery");
foreach ($catNameResults as $catNameRow) {
    $catNameItem                      = array();    
    $catNameItem["cat_name"]          = $catNameRow->cat_name;    
    $catNameItem["category_nicename"] = $catNameRow->category_nicename;    
    $catNameArray[]                   = $catNameItem;
} // foreach


function linkDesc ($string, $catNameArray, $oneCatID, $thisRelUri) {
    if (count($catNameArray) < 1) 
         return $string;
    $baseUrl = "#cat-";
    if ($oneCatID) $baseUrl = $thisRelUri ."?cat=";
    foreach ($catNameArray as $catNameItem) {
        $search   = $catNameItem["cat_name"];
        $replace1 = "<a href=\"$baseUrl" 
                   .strtolower($catNameItem["category_nicename"]) 
                   ."\">";                   
        $replace2 = "</a>";        
        $string   = preg_replace("/($search)([\"'\s,\.\-_:\/=\q\!\?\(\)<>~\[\]])/i", $replace1 ."\\1" .$replace2 ."\\2", $string); 
    } // foreach
    return $string;
} // end function linkDesc

$html = "<ol>Categories ($postsLink):"; // may be overwritten if one category


// one category
$oneCatID = FALSE.
$cat      = "";
$catWhere = "";
if (isset($_GET["cat"])) {
    $cat = trim($_GET["cat"]);
    if ($cat) {     
           $oneCatID = TRUE;
           $catWhere = " WHERE wp_categories.category_nicename = '$cat' ";
           $show_posts = TRUE;
           $html = "<ul>";
    }
} // got category slug


$catQuery = "SELECT * FROM wp_categories $catWhere ORDER BY cat_name";
$catResults = $wpdb->get_results("$catQuery");
foreach ($catResults as $catRow) {
    $cat_ID                = $catRow->cat_ID;    
    $cat_name              = $catRow->cat_name;    
    $category_nicename     = $catRow->category_nicename;    
    $category_description  = $catRow->category_description;    
    $category_parent       = $catRow->category_parent;    
    $category_count        = $catRow->category_count;    
    $cat_link_count        = $catRow->link_count;    

    $cat_no_of_posts       = 0;
    $postHtml              = "";

    // get and count posts
    /* ! lazy approach, optimize it for trafficked pages by using the post counter in the category table when $show_posts is false ! */
    $postQuery = "SELECT wp_post2cat.*, 
                         wp_posts.ID,
                         wp_posts.post_title,
                         wp_posts.post_name,
                         wp_posts.comment_count
                  FROM wp_post2cat
                  LEFT OUTER JOIN wp_posts ON (wp_posts.ID = wp_post2cat.post_id)
                  WHERE wp_post2cat.category_id = $cat_ID
                    AND wp_posts.post_status = 'publish'
                    AND wp_posts.post_type   = 'post'
                  ORDER BY wp_posts.post_date DESC";
    $postResults = $wpdb->get_results("$postQuery");
    foreach ($postResults as $postRow) {
        $post_ID                = $postRow->ID;
        $post_title             = $postRow->post_title;
        $post_name              = $postRow->post_name;
        $comment_count          = $postRow->comment_count;
        // change if you've different permalinks:
        $post_url = "http://$blogLocaction/" .$post_name ."/";
        
        $cat_no_of_posts        = $cat_no_of_posts + 1;
        $postHtml .= "<li><a href=\"$post_url\">$post_title</a>";
        if ($comment_count > 0) {
            if ($comment_count > 1) {
                $postHtml .= " ($comment_count comments)";
            }
            else {
                $postHtml .= " ($comment_count comment)";
            }    
        }
        $postHtml .= "</li>\n";

    } // foreach posts of category

    if (!empty($postHtml)) $postHtml = "<ul>" .$postHtml ."</ul>\n";
    if ($cat_no_of_posts > 0) {
        $catUrl     = get_category_link($cat_ID);
        /*
        http://example.com/wp-rss2.php?cat=42
        or
        http://example.com/category/categoryname/feed
        */
        // redirects to feedburner: $catFeedUrl = "http://$blogLocaction/wp-rss2.php?cat=" .$cat_ID; 
        $catFeedUrl = $catUrl ."feed";
        $catName = $cat_name;
        if (empty($catName)) $catName = $category_nicename;
        $catTitleText = trim(strip_tags($category_description)); 
        $catTitleText = str_replace("\"", "'", $catTitleText); 
        $catDesc      = linkDesc($category_description, $catNameArray, $oneCatID, $thisRelUri);
        $catUCName    = strtoupper($catName) ."<br />";
        $catDomId     = "cat-" .strtolower($category_nicename);
        if ($oneCatID) {                   
            $html .= "<li><a href=\"$thisRelUri\">List all categories</a> <a href=\"$thisRelUri?$showPostsQueryString\">with links to all posts</a></li>\n";
        }
        if ($oneCatID && $catTitleText) {                       
            $html .= "<li><strong>$catUCName$catDesc</strong></li>\n";
        }
        if ($oneCatID) {
            $oneCatLink = "";
        }
        else {
            $oneCatUrl  = $thisRelUri ."?cat=" .strtolower($category_nicename); 
            $oneCatLink = "&nbsp;(<a href=\"$oneCatUrl\" title=\"All posts tagged under $catName\">$catName overview</a>)&nbsp;";            
        }
        if ($definitions) {
            $prnDefinition = "<strong>$catUCName$catDesc</strong><br />";
        }
        $html .= "<li id=\"$catDomId\">$prnDefinition<strong><a href=\"$catUrl\" title=\"$catTitleText\">$catName</a></strong>&nbsp;$oneCatLink&nbsp;<a href=\"$catFeedUrl\"><img src=\"http://$blogLocaction$rssIconPath\" border=\"0\" width=\"$rssIconWidth\" height=\"$rssIconHeight\" alt=\"$catName feed\" style=\"margin-right:4px;\" />$cat_no_of_posts posts.</a>\n";
 
        if ($show_posts) $html .= $postHtml;
        $html .= "</li>\n";

    } // cat has posts    


} // foreach categories

if ($oneCatID) $html .= "</ul>\n";
else           $html .= "</ol>\n";

if (!stristr($blogLocaction, "sebastians-pamphlets")) {
    // you can suppress this link when you link out to my blog under credits or whereever. 
    $html .= "<p style=\"font-size:80%; text-align:right; margin-top:30px;\"><a href=\"http://sebastians-pamphlets.com/\">Sitemap courtesy of Sebastian</a></p>\n";
}

print $html;

?>