root/wp-email/trunk/wp-email.php

<?php
/*
Plugin Name: WP-EMail
Plugin URI: http://lesterchan.net/portfolio/programming/php/
Description: Allows people to recommand/send your WordPress blog's post/page to a friend.
Version: 2.31
Author: Lester 'GaMerZ' Chan
Author URI: http://lesterchan.net
*/


/*  
    Copyright 2008  Lester Chan  (email : lesterchan@gmail.com)

    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; either version 2 of the License, or
    (at your option) any later version.

    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
*/


### Define: Show Email Remarks In Logs?
define('EMAIL_SHOW_REMARKS', true);


### Load WP-Config File If This File Is Called Directly
if (!function_exists('add_action')) {
    $wp_root = '../../..';
    if (file_exists($wp_root.'/wp-load.php')) {
        require_once($wp_root.'/wp-load.php');
    } else {
        require_once($wp_root.'/wp-config.php');
    }
}


### Use WordPress 2.6 Constants
if (!defined('WP_CONTENT_DIR')) {
    define( 'WP_CONTENT_DIR', ABSPATH.'wp-content');
}
if (!defined('WP_CONTENT_URL')) {
    define('WP_CONTENT_URL', get_option('siteurl').'/wp-content');
}
if (!defined('WP_PLUGIN_DIR')) {
    define('WP_PLUGIN_DIR', WP_CONTENT_DIR.'/plugins');
}
if (!defined('WP_PLUGIN_URL')) {
    define('WP_PLUGIN_URL', WP_CONTENT_URL.'/plugins');
}


### Create Text Domain For Translations
add_action('init', 'email_textdomain');
function email_textdomain() {
    if (!function_exists('wp_print_styles')) {
        load_plugin_textdomain('wp-email', 'wp-content/plugins/wp-email');
    } else {
        load_plugin_textdomain('wp-email', false, 'wp-email');
    }
}


### E-Mail Table Name
global $wpdb;
$wpdb->email = $wpdb->prefix.'email';


### Function: E-Mail Administration Menu
add_action('admin_menu', 'email_menu');
function email_menu() {
    if (function_exists('add_menu_page')) {
        add_menu_page(__('E-Mail', 'wp-email'), __('E-Mail', 'wp-email'), 'manage_email', 'wp-email/email-manager.php');
    }
    if (function_exists('add_submenu_page')) {
        add_submenu_page('wp-email/email-manager.php', __('Manage E-Mail', 'wp-email'), __('Manage E-Mail', 'wp-email'), 'manage_email', 'wp-email/email-manager.php');
        add_submenu_page('wp-email/email-manager.php', __('E-Mail Options', 'wp-email'), __('E-Mail Options', 'wp-email'),  'manage_email', 'wp-email/email-options.php');
        add_submenu_page('wp-email/email-manager.php', __('Uninstall WP-EMail', 'wp-email'), __('Uninstall WP-EMail', 'wp-email'),  'manage_email', 'wp-email/email-uninstall.php');
    }
}


### Function: E-Mail htaccess ReWrite Rules
add_filter('generate_rewrite_rules', 'email_rewrite');
function email_rewrite($wp_rewrite) {
    $email_link = get_permalink();
    $page_uris = $wp_rewrite->page_uri_index();
    $uris = $page_uris[0];
    if(substr($email_link, -1, 1) != '/' && substr($wp_rewrite->permalink_structure, -1, 1) != '/') {
        $email_link_text = '/email';
        $email_popup_text = '/emailpopup';
    } else {
        $email_link_text = 'email';
        $email_popup_text = 'emailpopup';
    }
    // WP-EMail Standalone Post Rules
    $rewrite_rules = $wp_rewrite->generate_rewrite_rule($wp_rewrite->permalink_structure.$email_link_text, EP_PERMALINK);
    $rewrite_rules = array_slice($rewrite_rules, 4, 1);
    $r_rule = array_keys($rewrite_rules);
    $r_rule = array_shift($r_rule);
    $r_rule = str_replace('/trackback', '', $r_rule);
    $r_link = array_values($rewrite_rules);
    $r_link = array_shift($r_link);
    $r_link = str_replace('tb=1', 'email=1', $r_link);
    $wp_rewrite->rules = array_merge(array($r_rule => $r_link), $wp_rewrite->rules);
    // WP-Email Standalone Page Rules    
    if(is_array($uris)) {
        $email_page_rules = array();
        foreach ($uris as $uri => $pagename) {            
            $wp_rewrite->add_rewrite_tag('%pagename%', "($uri)", 'pagename=');
            $rewrite_rules = $wp_rewrite->generate_rewrite_rules($wp_rewrite->get_page_permastruct().'/emailpage', EP_PAGES);
            $rewrite_rules = array_slice($rewrite_rules, 4, 1);
            $r_rule = array_keys($rewrite_rules);
            $r_rule = array_shift($r_rule);
            $r_rule = str_replace('/trackback', '', $r_rule);
            $r_link = array_values($rewrite_rules);
            $r_link = array_shift($r_link);
            $r_link = str_replace('tb=1', 'email=1', $r_link);
            $email_page_rules = array_merge($email_page_rules, array($r_rule => $r_link));
        }
        $wp_rewrite->rules = array_merge($email_page_rules, $wp_rewrite->rules);
    }

    // WP-EMail Popup Post Rules
    $rewrite_rules = $wp_rewrite->generate_rewrite_rule($wp_rewrite->permalink_structure.$email_popup_text, EP_PERMALINK);
    $rewrite_rules = array_slice($rewrite_rules, 4, 1);
    $r_rule = array_keys($rewrite_rules);
    $r_rule = array_shift($r_rule);
    $r_rule = str_replace('/trackback', '', $r_rule);
    $r_link = array_values($rewrite_rules);
    $r_link = array_shift($r_link);
    $r_link = str_replace('tb=1', 'emailpopup=1', $r_link);
    $wp_rewrite->rules = array_merge(array($r_rule => $r_link), $wp_rewrite->rules);
    if(is_array($uris)) {
        $email_page_rules = array();
        foreach ($uris as $uri => $pagename) {            
            $wp_rewrite->add_rewrite_tag('%pagename%', "($uri)", 'pagename=');
            $rewrite_rules = $wp_rewrite->generate_rewrite_rules($wp_rewrite->get_page_permastruct().'/emailpopuppage', EP_PAGES);
            $rewrite_rules = array_slice($rewrite_rules, 4, 1);
            $r_rule = array_keys($rewrite_rules);
            $r_rule = array_shift($r_rule);
            $r_rule = str_replace('/trackback', '', $r_rule);
            $r_link = array_values($rewrite_rules);
            $r_link = array_shift($r_link);
            $r_link = str_replace('tb=1', 'emailpopup=1', $r_link);
            $email_page_rules = array_merge($email_page_rules, array($r_rule => $r_link));
        }
        $wp_rewrite->rules = array_merge($email_page_rules, $wp_rewrite->rules);
    }
}


### Function: E-Mail Public Variables
add_filter('query_vars', 'email_variables');
function email_variables($public_query_vars) {
    $public_query_vars[] = 'email';
    $public_query_vars[] = 'emailpopup';
    return $public_query_vars;
}


### Function: E-Mail Javascript
add_action('wp_head', 'email_js');
function email_js() {
    $email_max = intval(get_option('email_multiple'));
    echo "\n".'<!-- Start Of Script Generated By WP-EMail 2.31 -->'."\n";
    echo '<script type="text/javascript">'."\n";
    echo '/* <![CDATA[ */'."\n";
    echo "\t".'var email_ajax_url = \''.WP_PLUGIN_URL.'/wp-email/wp-email.php'."';\n";
    echo "\t".'var email_max_allowed = \''.$email_max.'\';'."\n";
    echo "\t".'var email_verify = \''.$_SESSION['email_verify'].'\';'."\n";
    echo "\t".'var email_text_error = \''.js_escape(__('The Following Error Occurs:', 'wp-email')).'\';'."\n";
    echo "\t".'var email_text_name_invalid = \''.js_escape(__('- Your Name is empty/invalid', 'wp-email')).'\';'."\n";
    echo "\t".'var email_text_email_invalid = \''.js_escape(__('- Your Email is empty/invalid', 'wp-email')).'\';'."\n";
    echo "\t".'var email_text_remarks_invalid = \''.js_escape(__('- Your Remarks is invalid', 'wp-email')).'\';'."\n";
    echo "\t".'var email_text_friend_names_empty = \''.js_escape(__('- Friend Name(s) is empty', 'wp-email')).'\';'."\n";
    echo "\t".'var email_text_friend_name_invalid = \''.js_escape(__('- Friend Name is empty/invalid:', 'wp-email')).'\';'."\n";
    echo "\t".'var email_text_max_friend_names_allowed = \''.js_escape(sprintf(__('- Maximum %s Friend Name(s) allowed', 'wp-email'), $email_max)).'\';'."\n";
    echo "\t".'var email_text_friend_emails_empty = \''.js_escape(__('- Friend Email(s) is empty', 'wp-email')).'\';'."\n";
    echo "\t".'var email_text_friend_email_invalid = \''.js_escape(__('- Friend Email is invalid:', 'wp-email')).'\';'."\n";
    echo "\t".'var email_text_max_friend_emails_allowed = \''.js_escape(sprintf(__('- Maximum %s Friend Email(s) allowed', 'wp-email'), $email_max)).'\';'."\n";
    echo "\t".'var email_text_friends_tally = \''.js_escape(__('- Friend Name(s) count does not tally with Friend Email(s) count', 'wp-email')).'\';'."\n";
    echo "\t".'var email_text_image_verify_empty = \''.js_escape(__('- Image Verification is empty', 'wp-email')).'\';'."\n";
    echo '/* ]]> */'."\n";
    echo '</script>'."\n";
    wp_register_script('wp-email', WP_PLUGIN_URL.'/wp-email/email-js-packed.js', false, '2.31');
    wp_print_scripts(array('sack', 'wp-email'));
    if(@file_exists(TEMPLATEPATH.'/email-css.css')) {
        echo '<link rel="stylesheet" href="'.get_stylesheet_directory_uri().'/email-css.css" type="text/css" media="screen" />'."\n";    
    } else {
        echo '<link rel="stylesheet" href="'.WP_PLUGIN_URL.'/wp-email/email-css.css" type="text/css" media="screen" />'."\n";
    }    
    echo '<!-- End Of Script Generated By WP-EMail 2.31 -->'."\n";
}


### Function: Display E-Mail Link
function email_link($email_post_text = '', $email_page_text = '', $echo = true) {
    global $id;
    $output = '';
    $using_permalink = get_option('permalink_structure');
    $email_options = get_option('email_options');
    $email_style = intval($email_options['email_style']);
    $email_type = intval($email_options['email_type']);
    if(empty($email_post_text)) {
        $email_text = stripslashes($email_options['post_text']);
    } else {
        $email_text = $email_post_text;
    }
    $email_icon = WP_PLUGIN_URL.'/wp-email/images/'.$email_options['email_icon'];
    $email_link = get_permalink();
    $email_html = stripslashes($email_options['email_html']);
    $onclick = '';
    // Fix For Static Page
    if(get_option('show_on_front') == 'page' && is_page()) {
        if(intval(get_option('page_on_front')) > 0) {
            $email_link = _get_page_link();
        }
    }
    switch($email_type) {
        // E-Mail Standalone Page
        case 1:
            if(!empty($using_permalink)) {
                if(substr($email_link, -1, 1) != '/') {
                    $email_link= $email_link.'/';
                }
                if(is_page()) {
                    if(empty($email_page_text)) {
                        $email_text = stripslashes($email_options['page_text']);
                    } else {
                        $email_text = $email_page_text;
                    }
                    $email_link = $email_link.'emailpage/';
                } else {
                    $email_link = $email_link.'email/';
                }
            } else {
                if(is_page()) {
                    if(empty($email_page_text)) {
                        $email_text = stripslashes($email_options['page_text']);
                    } else {
                        $email_text = $email_page_text;
                    }
                }
                $email_link = $email_link.'&amp;email=1';
            }
            break;
        // E-Mail Popup
        case 2:
            if(!empty($using_permalink)) {
                if(substr($email_link, -1, 1) != '/') {
                    $email_link= $email_link.'/';
                }
                if(is_page()) {
                    if(empty($email_page_text)) {
                        $email_text = stripslashes($email_options['page_text']);
                    } else {
                        $email_text = $email_page_text;
                    }
                    $email_link = $email_link.'emailpopuppage/';
                } else {
                    $email_link = $email_link.'emailpopup/';
                }
            } else {
                if(is_page()) {
                    if(empty($email_page_text)) {
                        $email_text = stripslashes($email_options['page_text']);
                    } else {
                        $email_text = $email_page_text;
                    }
                }
                $email_link = $email_link.'&amp;emailpopup=1';
            }
            $onclick = ' onclick="email_popup(this.href); return false;" ';
            break;
    }
    unset($email_options);
    switch($email_style) {
        // Icon + Text Link
        case 1:
            $output = '<a href="'.$email_link.'"'.$onclick.' title="'.$email_text.'" rel="nofollow"><img class="WP-EmailIcon" src="'.$email_icon.'" alt="'.$email_text.'" title="'.$email_text.'" style="border: 0px;" /></a>&nbsp;<a href="'.$email_link.'"'.$onclick.' title="'.$email_text.'" rel="nofollow">'.$email_text.'</a>';
            break;
        // Icon Only
        case 2:
            $output = '<a href="'.$email_link.'"'.$onclick.' title="'.$email_text.'" rel="nofollow"><img class="WP-EmailIcon" src="'.$email_icon.'" alt="'.$email_text.'" title="'.$email_text.'" style="border: 0px;" /></a>';
            break;
        // Text Link Only
        case 3:
            $output = '<a href="'.$email_link.'"'.$onclick.' title="'.$email_text.'" rel="nofollow">'.$email_text.'</a>';
            break;
        case 4:
            $email_html = str_replace("%EMAIL_URL%", $email_link, $email_html);
            $email_html = str_replace("%EMAIL_POPUP%", $onclick, $email_html);
            $email_html = str_replace("%EMAIL_TEXT%", $email_text, $email_html);
            $email_html = str_replace("%EMAIL_ICON_URL%", $email_icon, $email_html);
            $output = $email_html;
            break;
    }
    if($echo) {
        echo $output."\n";
    } else {
        return $output;
    }
}


### Function: Short Code For Inserting Email Links Into Posts/Pages
add_shortcode('email_link', 'email_link_shortcode');
function email_link_shortcode($atts) {
    if(!is_feed()) {
        return email_link('', '', false);
    } else {
        return __('Note: There is an email link embedded within this post, please visit this post to email it.', 'wp-email');
    }
}


### Function: Snippet Words
if(!function_exists('snippet_words')) {
    function snippet_words($text, $length = 0) {
        $words = split(' ', $text); 
        return join(" ",array_slice($words, 0, $length)).'...';
    }
}


### Function: Snippet Text
if(!function_exists('snippet_text')) {
    function snippet_text($text, $length = 0) {
        $text = html_entity_decode($text, ENT_QUOTES, get_option('blog_charset'));
         if (strlen($text) > $length) {
            return htmlentities(substr($text,0,$length), ENT_COMPAT, get_option('blog_charset')).'...';
         } else {
            return htmlentities($text, ENT_COMPAT, get_option('blog_charset'));
         }
    }
}


### Function: Add E-Mail Filters
function email_addfilters() {
    global $emailfilters_count;
    if(get_option('k2version') === false) {
        $loop_count = 0;
    } else {
        $loop_count = 1;
    }
    if(intval($emailfilters_count) == $loop_count) {
        add_filter('the_title', 'email_title');
        add_filter('the_content', 'email_form', '', false, false);
    }
    $emailfilters_count++;
}


### Function: Remove E-Mail Filters
function email_removefilters() {
    remove_filter('the_title', 'email_title');
    remove_filter('the_content', 'email_form');
}


### Function: E-Mail Page Title
function email_pagetitle($page_title) {
    $page_title = '&raquo; '.__('E-Mail', 'wp-email').$page_title;
    return $page_title;
}


### Function: E-Mail Post ID
if(!function_exists('get_the_id')) {
    function get_the_id() {
        global $id;
        return $id;
    }
}


### Function: Get E-Mail Title
function email_get_title() {
    global $post;
    $post_title = $post->post_title;
    if(!empty($post->post_password)) {
        $post_title = sprintf(__('Protected: %s', 'wp-email'), $post_title);
    } elseif($post->post_status == 'private') {
        $post_title = sprintf(__('Private: %s', 'wp-email'), $post_title);
    }
    return $post_title;
}


### Function: E-Mail Title
function email_title($page_title) {
    if(in_the_loop()) {
        $post_title = email_get_title();
        $post_author = the_author('', false);            
        $post_date = get_the_time(get_option('date_format').' ('.get_option('time_format').')', '', '', false);
        $post_category = email_category();            
        $post_category_alt = strip_tags($post_category);
        $template_title = stripslashes(get_option('email_template_title'));
        $template_title = str_replace("%EMAIL_POST_TITLE%", $post_title, $template_title);
        $template_title = str_replace("%EMAIL_POST_AUTHOR%", $post_author, $template_title);
        $template_title = str_replace("%EMAIL_POST_DATE%", $post_date, $template_title);
        $template_title = str_replace("%EMAIL_POST_CATEGORY%", $post_category, $template_title);
        $template_title = str_replace("%EMAIL_BLOG_NAME%", get_bloginfo('name'), $template_title);
        $template_title = str_replace("%EMAIL_BLOG_URL%", get_bloginfo('url'), $template_title);
        $template_title = str_replace("%EMAIL_PERMALINK%", get_permalink(), $template_title);
        return $template_title;
    } else {
        return $page_title;
    }
}


### Function: E-Mail Category
function email_category($separator = ', ', $parents='') {
    return get_the_category_list($separator, $parents);
}


### Function: E-Mail Content
function email_content() {
    $content = get_email_content();
    $email_snippet = intval(get_option('email_snippet'));
    if($email_snippet > 0) {
        return snippet_words($content , $email_snippet);
    } else {
        return $content;
    }
}


### Function: E-Mail Alternate Content
function email_content_alt() {
    remove_filter('the_content', 'wptexturize');
    $content = get_email_content