<?php
/******************************************************************************************************************
 
Plugin Name:    common-themes.php

Plugin URI: http://heftagaub.wordpress.com/

Description: WordPress plugin that remap your themes directory to the directory of your choice. Includes an admin
             option page to allow you to set which directory to point to. This is a particularly handy plugin if
             you want to have multiple instances of wordpress or wordpressmu that share a common theme directory.

Version: 0.42.1

Author: Brad Hefta-Gaub

Author URI: http://heftagaub.wordpress.com/

Copyright: (c) 2007 Brad Hefta-Gaub

License:    

            THE WORK IS PROVIDED UNDER THE TERMS OF THIS CREATIVE COMMONS PUBLIC LICENSE ("CCPL" OR 
            "LICENSE"). THE WORK IS PROTECTED BY COPYRIGHT AND/OR OTHER APPLICABLE LAW. ANY USE 
            OF THE WORK OTHER THAN AS AUTHORIZED UNDER THIS LICENSE OR COPYRIGHT LAW IS PROHIBITED.

                            Attribution-NonCommercial-ShareAlike 3.0 Unported
                            
            You are free:

                * to Share — to copy, distribute and transmit the work
                * to Remix — to adapt the work

            Under the following conditions:

                * Attribution. You must attribute the work in the manner specified by the author or 
                  licensor (but not in any way that suggests that they endorse you or your use of the work).
                  
                * Noncommercial. You may not use this work for commercial purposes.
                
                * Share Alike. If you alter, transform, or build upon this work, you may distribute 
                  the resulting work only under the same or similar license to this one.

                * For any reuse or distribution, you must make clear to others the license terms of 
                  this work. The best way to do this is with a link to this web page.
                  
                * Any of the above conditions can be waived if you get permission from the copyright holder.
                
                * Nothing in this license impairs or restricts the author's moral rights.


            The complete license can be found here: http://creativecommons.org/licenses/by-nc-sa/3.0/legalcode


            My reasoning behind this license choice is as follows:

                * I intend for these posts to be informative and educational. They are not intended to 
                  be fully functioning implementations. They are intended to represent reusable ideas. 
                  Therefore, you shouldn’t need more than this license to learn from what I’m presenting here.
                  
                * If you are planning on using this as is, then I would like you to give me the appropriate 
                  level of credit. And if you see me on the street, please introduce yourself and say "Thanks Man!"
                  
                * If you are want to use this code as is for commercial purposes, then, well, contact me. 
                  I make my living as a technologist, and if you’re making money off my hard work, then I want 
                  some control over that. That being said, I don’t mind teaching you what I’ve learned, and 
                  so please feel free to read my code, learn from it, and go about your business as you see fit.
                  But you can't use this code for commercial purposes without contacting me first.

            If you like this code, and you run into me in person, then you should say, "Hey Zappo, that 
            was cool code, I learned something from it, it helped me out. Thanks!", and offer to buy 
            me a beer or a coffee depending on what we're both in the mood for at the time. 
            
            You may not remove this copyright and license message.
            
            THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING 
            BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
            NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, 
            DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 
            OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

History:    
            0.42.1 - Fixed small bug related to having theme names which match some other directory in
                     your path. Odd case, but it happened to me.

            0.42   - Original Version

*******************************************************************************************************************/

// Insert the zappo_common_theme_root() sink into the filter list for 'theme_root'
add_filter('theme_root', 'zappo_common_theme_root');

// Insert the zappo_common_theme_root_uri() sink into the filter list for 'theme_root_uri'
add_filter('theme_root_uri', 'zappo_common_theme_root_uri',1,2);

// Insert the zappo_common_theme_menus() sink into the plugin hook list for 'admin_menu'
add_action('admin_menu', 'zappo_common_theme_menus');

/**************************************************************************************
 * function:      zappo_common_theme_root()
 *
 * description:   called when the theme directory is requested, we use it to remap
 *                the theme directory to the setting from the options.
 */
function zappo_common_theme_root($thedir) 
{
	$theme_root = get_option('theme_root');
	$theme_root_is_abs_path = get_option('theme_root_is_abs_path');

    if ($theme_root)
    {
        return ($theme_root_is_abs_path ? "" : ABSPATH) . $theme_root;
    } 
    return $thedir;
}

/**************************************************************************************
 * function:      zappo_common_theme_root_uri()
 *
 * description:   called when the theme root URI is requested, we use it to remap
 *                the theme directory to the setting from the options.
 */
function zappo_common_theme_root_uri($the_uri,$the_base_uri) 
{
	$theme_root_uri = "/wp-content/themes"; //get_option('theme_root_uri');

    if ($theme_root_uri)
    {
        return $theme_root_uri;
    } 
    return $thedir;
}

/**************************************************************************************
 * function:      zappo_common_theme_menus()
 *
 * description:   called when the admin menus are created, we use it to add our options
 *                page the menues.
 */
function zappo_common_theme_menus() 
{
    /*
     * If we are in a WordPressMu install, then this function will exist, and we will
     * make a point of only adding are menu to the admin's menu. Otherwise we are in a
     * WordPress install, and we will go ahead and add it to the options menu.
     */
    if (function_exists('is_site_admin'))
    {
        if (is_site_admin())
        {
            // Add a new menu under Options:
            add_options_page('Theme Root Options', 'Theme Root Options', 8, 'theme-options', 'zappo_common_theme_options_page');
        }
    }
    else
    {
        // Add a new menu under Options:
        add_options_page('Theme Root Options', 'Theme Root Options', 8, 'theme-options', 'zappo_common_theme_options_page');
    }    
}

/**************************************************************************************
 * function:      zappo_common_theme_options_page()
 * description:   Isn't it clear? This is our option page. 
 */
function zappo_common_theme_options_page() 
{
?>
    <div class='wrap'>

    <h2><?php _e('Theme Root Options') ?></h2>
    <form method="post" action="options.php">
        <?php wp_nonce_field('update-options') ?>
        <p class="submit"><input type="submit" name="Submit" value="<?php _e('Update Options &raquo;') ?>" /></p>
        <fieldset class="options">
            <legend><?php _e('Theme Directory Root'); ?></legend>
            <table class="editform optiontable">
                <tr valign="top">
                    <th scope="row"><?php _e('Themes are found in this folder'); ?>:</th>
                    <td>
                        <input name="theme_root" type="text" id="theme_root" class="code" 
                            value="<?php echo attribute_escape(get_theme_root()); ?>" size="40" />
                        <br />
                        <?php _e('Default is <code>wp-content/themes</code>'); ?>
                    </td>
                </tr>

                <tr valign="top">
                    <th scope="row"><?php _e('This folders URI is'); ?>:</th>
                    <td>
                        <input name="theme_root_uri" type="text" id="theme_root_uri" class="code" 
                            value="<?php echo attribute_escape(get_theme_root_uri()); ?>" size="40" />
                        <br />
                        <?php _e('Default is <code>wp-content/themes</code>'); ?>
                    </td>
                </tr>

                <tr>
                    <td></td>
                    <td>
                        <label for="theme_root_is_abs_path">
                            <input name="theme_root_is_abs_path" type="checkbox" id="theme_root_is_abs_path" value="1" <?php checked('1', get_option('theme_root_is_abs_path')); ?> />
                            <?php _e('This path is absolute. (If not checked then this path will be relative to the installation of WordPress.'); ?>
                        </label>
                    </td>
                </tr>
            </table>
        </fieldset>

        <p class="submit">
            <input type="hidden" name="action" value="update" />
            <input type="hidden" name="page_options" value="theme_root,theme_root_uri,theme_root_is_abs_path" />
            <input type="submit" name="Submit" value="<?php _e('Update Options &raquo;') ?>" />
        </p>
    </form>


    </div>
<?php
}


/**************************************************************************************
 * NOTE: This is a chunk of PHP that exists in the "global" context. It will basically
 * be executed on every page. We are using it to fix a small bug in themes.php.
 *
 * description:   this intercepts the request for themes.php and handles a quick 
 *                replacement of bogus themes URI.
 */
// 
if(strstr($_SERVER['PHP_SELF'], 'wp-admin/themes.php') !== FALSE) 
{
    ob_start("zappo_common_theme_root_bug_fix_to_themes_php");
}

/**************************************************************************************
 * function:      zappo_common_theme_root_bug_fix_to_themes_php()
 * description:   this is out ob_start() callback function, it replaces bogus theme 
 *                URIs.
 */
function zappo_common_theme_root_bug_fix_to_themes_php($input)
{
    // Bugs on lines 41 and 79 in themes.php create the following bad URL for the current theme
    $ct = current_theme_info();
    
    // Ok, this is kinda strange, so I'll explain. If you have a theme that has the same name as
    // some directory in your path, then the str_replace of just basename($ct->stylesheet_dir)
    // would actually cause trouble. So In order to get just the last one (which is the actual
    // theme name), I've added this "key".
    $key="{key:".uniqid(rand(),true)."}";
    $bad_uri = str_replace(basename($ct->stylesheet_dir).$key,"",(get_option('siteurl') . '/' . $ct->stylesheet_dir . $key));
    
    // This is what we want....
    $good_uri = get_theme_root_uri()."/";
    
    // Let's do a str_replace() to fix it.
    $output = str_replace($bad_uri,$good_uri,$input);
    
    return $output;
}

?>