root/trunk/wp_iminr.php

<?php
/*
Copyright © 2007 Yann Lugrin (email: yann.lugrin@sans-savoir.net)

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; only version 2 of the
License.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

/*
Plugin Name: iMinR for Wordpress
Plugin URI: http://dev.sans-savoir.net/trac/wp_iminr
Description: Enable <a href="http://www.iminr.com">iMinR</a> in your Blog.
Author: Yann Lugrin
Version: 0.1.2
Author URI: http://www.sans-savoir.net
*/

require_once(dirname(__FILE__) . '/lib/nusoap.php');

// print current tracker without other tags
function iMinR () {
    wp_iminr_insert_tracker();
}

// print current tracker with meta tags
function wp_iminr_tracker_in_meta() {
    wp_iminr_insert_tracker('meta');
}

// print current tracker with footer tags
function wp_iminr_tracker_in_footer() {
    wp_iminr_insert_tracker('footer');
}

// insert tracker code or "desable" comment
function wp_iminr_insert_tracker($location='') {
    global $wp_iminr_tracker_inserted;
    
    if (!$wp_iminr_tracker_inserted) {
        $account_id = wp_iminr_get_option('account_id');
        if ($account_id != '' && wp_iminr_enable_for_user()) {
            echo "<!-- iMinR for WordPress is enable -->\n";
            $wp_iminr_tracker_inserted = true;
            
            if (!isset($_SERVER['HTTPS']) || strtolower($_SERVER['HTTPS']) != 'on') {
                $tracker = "<script type=\"text/javascript\" language=\"javascript\" src=\"http://tag.iminr.com/audit/tag.aspx?id=$account_id\"></script>";
            } else {
                $tracker = "<script type=\"text/javascript\" language=\"javascript\" src=\"https://tags.iminr.com/audit/tag.aspx?id=$account_id\"></script>";
            }
            
            switch ($location) {
            case 'meta':
                echo wp_iminr_get_option('tracker_in_meta_before') . $tracker . wp_iminr_get_option('tracker_in_meta_after');
                break;
            case 'footer':
                echo wp_iminr_get_option('tracker_in_footer_before') . $tracker . wp_iminr_get_option('tracker_in_footer_after');
                break;
            default:
                echo $tracker;
            }
        } elseif ($account_id != '' && !wp_iminr_enable_for_user()) {
            echo "<!-- iMinR for WordPress is desable for current user -->\n";
        } else {
            echo "<!-- iMinR for WordPress is desable because account id isn\'t set -->\n";
        }
    }
}

// insert variables in header
function wp_iminr_variables_in_header() {
    global $wp_iminr_variables;
    
    $wp_iminr_variables['wp_comments'] = 1;
    $wp_iminr_variables['wp_comment_posts'] = 'Mon article pour iMinR';
    $wp_iminr_variables['wp_comment_authors'] = 'Yann';
    
    if (count($wp_iminr_variables)) {
        echo "<!-- iMinR for WordPress -->\n";
        echo '<script language="javascript">';
        echo 'var iminr_cv = "";';
        foreach ($wp_iminr_variables as $name => $value) {
            echo "iminr_cv += \"$name=$value; \";";
        }
        echo '</script>';
    }
}

// track new comment
function wp_iminr_comment($id) {
    global $wp_iminr_variables;
    
    $wp_iminr_variables['wp_comments'] = 1;
    $wp_iminr_variables['wp_comment_posts'] = 'Mon article pour iMinR';
    $wp_iminr_variables['wp_comment_authors'] = 'Yann';
}

// track new trackback
function wp_iminr_trackback($id) {
    global $wp_iminr_variables;
}

// track new pingback
function wp_iminr_pingback($id) {
    wp_iminr_trackback($id);
}

// get option from the WordPress options database table or return the default value
function wp_iminr_get_option($option_name) {
    // get options from the database
    $wp_iminr_options = get_option('wp_iminr_options');
    
    // if no options in database or not this specific option
    // create default options array
    if (!$wp_iminr_options || !array_key_exists($option_name, $wp_iminr_options) ) {
        $wp_iminr_default_options = array();
        
        // defaults values
        $wp_iminr_default_options['wsap_uri'] = 'http://www.iminr.com/mining/wsMining.asmx?WSDL';
        
        $wp_iminr_default_options['account_id'] = '';
        
        $wp_iminr_default_options['enable_tracker'] = false;
        $wp_iminr_default_options['tracker_in_meta'] = true;
        $wp_iminr_default_options['tracker_in_meta_before']  = '<li>';
        $wp_iminr_default_options['tracker_in_meta_after'] = '</li>';
        $wp_iminr_default_options['tracker_in_footer'] = false;
        $wp_iminr_default_options['tracker_in_footer_before'] = '<br />';
        $wp_iminr_default_options['tracker_in_footer_after'] = '';
        $wp_iminr_default_options['desable_for_roles'] = array('administrator');
        
        $wp_iminr_default_options['enable_wp_comments'] = false;
        $wp_iminr_default_options['enable_wp_comment_posts'] = false;
        $wp_iminr_default_options['enable_wp_comment_authors'] = false;
        $wp_iminr_default_options['enable_wp_trackbacks'] = false;
        $wp_iminr_default_options['enable_wp_trackback_posts'] = false;
        $wp_iminr_default_options['enable_wp_trackback_origins'] = false;
        
        $wp_iminr_default_options['error_variables'] = array();
        
        // add default options to the database unless options already exist
        add_option('wp_iminr_options', $wp_iminr_default_options, 'Settings for iMinR for WordPress plugin');
        
        // return default option
        return $wp_iminr_default_options[$option_name];
    } else {
        // return option found in database
        return $wp_iminr_options[$option_name];
    }
}

// add options page to administration menu
function wp_iminr_admin() {
    if (function_exists('add_options_page')) {
        add_options_page(__('iMinR for WorldPress'), 'iMinR', 8, basename(__FILE__), 'wp_iminr_options');
    }
}

// options page for administration
function wp_iminr_options() {
    if (isset($_POST['info_update'])) {
        ?><div class="updated"><p><strong><?php
        // process submitted form
        $wp_iminr_options = get_option('wp_iminr_options');
        
        $wp_iminr_options['account_id'] =  $_POST['account_id'];
        
        $wp_iminr_options['enable_tracker'] = ($_POST['enable_tracker'] == 'true' ? true : false);
        $wp_iminr_options['tracker_in_meta'] = ($_POST['tracker_in'] == 'meta' ? true : false);
        $wp_iminr_options['tracker_in_meta_before'] =  $_POST['tracker_in_meta_before'];
        $wp_iminr_options['tracker_in_meta_after'] =  $_POST['tracker_in_meta_after'];
        $wp_iminr_options['tracker_in_footer'] = ($_POST['tracker_in'] == 'footer' ? true : false);
        $wp_iminr_options['tracker_in_footer_before'] =  $_POST['tracker_in_footer_before'];
        $wp_iminr_options['tracker_in_footer_after'] =  $_POST['tracker_in_footer_after'];
        $wp_iminr_options['desable_for_roles'] = ($_POST['desable_for_roles'] == NULL ? array() : $_POST['desable_for_roles']);
        
        $wp_iminr_options['enable_wp_comments'] = ($_POST['enable_wp_comments'] == 'true' ? true : false);
        $wp_iminr_options['enable_wp_comment_posts'] = ($_POST['enable_wp_comment_posts'] == 'true' ? true : false);
        $wp_iminr_options['enable_wp_comment_authors'] = ($_POST['enable_wp_comment_authors'] == 'true' ? true : false);
        $wp_iminr_options['enable_wp_trackbacks'] = ($_POST['enable_wp_trackbacks'] == 'true' ? true : false);
        $wp_iminr_options['enable_wp_trackback_posts'] = ($_POST['enable_wp_trackback_posts'] == 'true' ? true : false);
        $wp_iminr_options['enable_wp_trackback_origins'] = ($_POST['enable_wp_trackback_origins'] == 'true' ? true : false);
        
        update_option('wp_iminr_options', $wp_iminr_options);
        
        _e('Options saved', 'wp_iminr')
        ?></strong></p></div><?php
    }
    ?>
<div class="wrap">
    <form action="" method="post">
        <h2><?php _e('iMinR for WordPress'); ?></h2>
        <fieldset class="options" id="general">
        <legend><?php _e('General settings', 'wp_iminr') ?></legend>
        
        <table width="100%" cellspacing="2" cellpadding="5" class="editform">
            <tr>
                <th valign="top" style="white-space: nowrap"><label for="account_id"><?php _e('Account ID', 'wp_iminr') ?></label></th>
                <td valign="top">
                    <input type="text" name="account_id" id="account_id" value="<?php echo wp_iminr_get_option('account_id'); ?>" size="50" />
                    <br /><small><?php _e('Enter your iMinR account ID.', 'wp_iminr') ?></small>
                </td>
            </tr>
        </table>
        
        </fieldset>
        <fieldset class="options" id="integration">
            <legend><?php _e('Tracker integration', 'wp_iminr') ?></legend>
            <p><?php _e('Enable tracker inclusion or copy this code in your template to activate iMinR for this site: <code>&lt;?php iMinR(); ?></code> ', 'wp_iminr') ?></p>

            <table width="100%" cellspacing="2" cellpadding="5" class="editform">
                <tr>
                    <th valign="top" style="white-space: nowrap"><label for="enable_tracker"><?php _e('Enable tracker', 'wp_iminr') ?></label></th>
                    <td valign="top" width="100%">
                        <input type="checkbox" name="enable_tracker" id="enable_tracker" value="true" <?php if (wp_iminr_get_option('enable_tracker')) echo 'checked="checked"'; ?> />
                        <br /><small><?php _e('By unchecking this checkbox tracker will be not included on the page.', 'wp_iminr') ?></small>
                    </td>
                </tr>
                <tr>
                    <th valign="top" style="white-space: nowrap"><label for="tracker_in_meta"><?php _e('Add in sidebar', 'wp_iminr') ?></label></th>
                    <td valign="top" width="100%">
                        <input type="radio" name="tracker_in" id="tracker_in_meta" value="meta" <?php if (wp_iminr_get_option('tracker_in_meta')) echo 'checked="checked"'; ?> />
                        <small><?php _e('By checking this radio button tracker will be included in meta (if template implemente this option).', 'wp_iminr') ?></small>
                        <br /><input type="text" name="tracker_in_meta_before" id="tracker_in_meta_before" value="<?php echo htmlspecialchars(wp_iminr_get_option('tracker_in_meta_before')); ?>" size="25" style="text-align: right;" />
                        <img src="" alt="iMinR" />
                        <input type="text" name="tracker_in_meta_after" id="tracker_in_meta_after" value="<?php echo htmlspecialchars(wp_iminr_get_option('tracker_in_meta_after')); ?>" size="25" />
                        <br /><small><?php _e('This tags inclose iMinR javascript, useful with logo.', 'wp_iminr') ?></small>
                    </td>
                </tr>
                <tr>
                    <th valign="top" style="white-space: nowrap"><label for="tracker_in_footer"><?php _e('Add in footer', 'wp_iminr') ?></label></th>
                    <td valign="top" width="100%">
                        <input type="radio" name="tracker_in" id="tracker_in_footer" value="footer" <?php if (wp_iminr_get_option('tracker_in_footer')) echo 'checked="checked"'; ?> />
                        <small><?php _e('By checking this radio button tracker will be included in footer.', 'wp_iminr') ?></small>
                        <br />
                        <input type="text" name="tracker_in_footer_before" id="tracker_in_footer_before" value="<?php echo htmlspecialchars(wp_iminr_get_option('tracker_in_footer_before')); ?>" size="25" style="text-align: right;" />
                        <img src="" alt="iMinR" />
                        <input type="text" name="tracker_in_footer_after" id="tracker_in_footer_after" value="<?php echo htmlspecialchars(wp_iminr_get_option('tracker_in_footer_after')); ?>" size="25" />
                        <br /><small><?php _e('This tags inclose iMinR javascript, useful with logo.', 'wp_iminr') ?></small>
                    </td>
                </tr>
                <tr>
                    <th valign="top" style="white-space: nowrap"><?php _e('Desable for roles', 'wp_iminr') ?></th>
                    <td valign="top" width="100%">
                        <select name="desable_for_roles[]" id="desable_for_roles" multiple="multiple">
                        <?php wp_iminr_roles_options_for_select(wp_iminr_get_option('desable_for_roles')); ?>
                        </select>
                        <br /><small><?php _e('Desable tracker for selected roles. Use CTRL+Click to select multiple entries', 'wp_iminr') ?></small>
                    </td>
            </table>
        
        </fieldset>
        <fieldset class="options" id="variables">
            <legend><?php _e('Enable statistics for comment', 'wp_iminr') ?></legend>
            <p><?php _e('Create variables with iMinR interface before checking the checkbox.', 'wp_iminr') ?></p>
            
            <table width="100%" cellspacing="2" cellpadding="5" class="editform">
                <tr>
                    <th valign="top" style="white-space: nowrap"><label for="enable_wp_comments"><?php _e('wp_comments (integer)', 'wp_iminr') ?></label></th>
                    <td valign="top" width="100%">
                        <input type="checkbox" name="enable_wp_comments" id="enable_wp_comments" value="true" <?php if (wp_iminr_get_option('enable_wp_comments')) echo 'checked="checked"'; ?> />
                        <br /><small><?php _e('Comment count', 'wp_iminr') ?></small>
                    </td>
                </tr>
                <tr>
                    <th valign="top" style="white-space: nowrap"><label for="enable_wp_comment_posts"><?php _e('wp_comment_posts (text)', 'wp_iminr') ?></label></th>
                    <td valign="top" width="100%">
                        <input type="checkbox" name="enable_wp_comment_posts" id="enable_wp_comment_posts" value="true" <?php if (wp_iminr_get_option('enable_wp_comment_posts')) echo 'checked="checked"'; ?> />
                        <br /><small><?php _e('Comment per post', 'wp_iminr') ?></small>
                    </td>
                </tr>
                <tr>
                    <th valign="top" style="white-space: nowrap"><label for="enable_wp_comment_authors"><?php _e('wp_comment_authors (text)', 'wp_iminr') ?></label></th>
                    <td valign="top" width="100%">
                        <input type="checkbox" name="enable_wp_comment_authors" id="enable_wp_comment_authors" value="true" <?php if (wp_iminr_get_option('enable_wp_comment_authors')) echo 'checked="checked"'; ?> />
                        <br /><small><?php _e('Comment pet author', 'wp_iminr') ?></small>
                    </td>
                </tr>
                <tr>
                    <th valign="top" style="white-space: nowrap"><label for="enable_wp_trackbacks"><?php _e('wp_trackbacks (integer)', 'wp_iminr') ?></label></th>
                    <td valign="top" width="100%">
                        <input type="checkbox" name="enable_wp_trackbacks" id="enable_wp_trackbacks" value="true" <?php if (wp_iminr_get_option('enable_wp_trackbacks')) echo 'checked="checked"'; ?> />
                        <br /><small><?php _e('Trackback/Pingback count', 'wp_iminr') ?></small>
                    </td>
                </tr>
                <tr>
                    <th valign="top" style="white-space: nowrap"><label for="enable_wp_trackback_posts"><?php _e('wp_trackback_posts (text)', 'wp_iminr') ?></label></th>
                    <td valign="top" width="100%">
                        <input type="checkbox" name="enable_wp_trackback_posts" id="enable_wp_trackback_posts" value="true" <?php if (wp_iminr_get_option('enable_wp_trackback_posts')) echo 'checked="checked"'; ?> />
                        <br /><small><?php _e('Trackback/Pingback per post', 'wp_iminr') ?></small>
                    </td>
                </tr>
                <tr>
                    <th valign="top" style="white-space: nowrap"><label for="enable_wp_trackback_origins"><?php _e('wp_trackback_origins (text)', 'wp_iminr') ?></label></th>
                    <td valign="top" width="100%">
                        <input type="checkbox" name="enable_wp_trackback_origins" id="enable_wp_trackback_origins" value="true" <?php if (wp_iminr_get_option('enable_wp_trackback_origins')) echo 'checked="checked"'; ?> />
                        <br /><small><?php _e('Trackback/Pingback per domain', 'wp_iminr') ?></small>
                    </td>
                </tr>
            </table>
        
        </fieldset>
        
        <div class="submit">
            <input type="submit" name="info_update" value="<?php _e('Update options', 'wp_iminr') ?>" />
        </div></form>
</div><?php
}

// print roles in options for select
function wp_iminr_roles_options_for_select( $default = array() ) {
    global $wp_roles;
    if (!is_array($default)) {
        $default = array($default);
    }
    
    foreach( $wp_roles->role_names as $role => $name ) {
        if (in_array($role, $default)) {
            $selected = 'selected="selected"';
        } else {
            $selected = '';
        }
      echo "\n\t<option $selected value='$role'>$name</option>";
    }
}

// Return true if tracker isn't desable for current user role
function wp_iminr_enable_for_user() {
    $user = wp_get_current_user();
    foreach( $user->roles as $role ) {
        if (in_array($role, wp_iminr_get_option('desable_for_roles'))) {
            return false;
        }
    }
    return true;
}

// **************
// initialization
$wp_iminr_variables = array();

// load texts for localization
load_plugin_textdomain('wp_iminr','wp-content/plugins/wp_iminr/lang');

// admin menu
add_action('admin_menu', 'wp_iminr_admin');

// tracker inclusion
if ( wp_iminr_get_option('enable_tracker') && wp_iminr_get_option('tracker_in_meta') ) {
    add_action('wp_meta', 'wp_iminr_tracker_in_meta');
} elseif ( wp_iminr_get_option('enable_tracker') && wp_iminr_get_option('tracker_in_footer') ) {
    add_action('wp_footer', 'wp_iminr_tracker_in_footer');
}
add_action('wp_head', 'wp_iminr_variables_in_header');

// WP tracking
add_action('comment_post', 'wp_iminr_comment');
add_action('trackback_post', 'wp_iminr_trackback');
add_action('pingback_post', 'wp_iminr_pingback');

?>