function wpresponder_init_method()
 {
     //load the scripts only for the administrator.
     global $current_user;
     global $db_checker;
     $activationDate = get_option("_wpr_NEWAGE_activation");
     if (empty($activationDate) || !$activationDate) {
         $timeNow = time();
         update_option("_wpr_NEWAGE_activation", $timeNow);
         /*
          * Because of the lack of tracking that was done in previous versions
          * of the blog category subscriptions, this version will deliver
          * blog posts to blog category subscribers ONLY after this date 
          * This was done to prevent triggering a full delivery of all 
          * blog posts in all categories to the respective category subscribers
          * on upgrade to this version.
          * I came up with the lousy name. Was a good idea at the time. 
          */
     }
     if (isset($_GET['wpr-optin']) && $_GET['wpr-optin'] == 1) {
         require "optin.php";
         exit;
     }
     if (isset($_GET['wpr-optin']) && $_GET['wpr-optin'] == 2) {
         require "verify.php";
         exit;
     }
     //a subscriber is trying to confirm their subscription.
     if (isset($_GET['wpr-confirm']) && $_GET['wpr-confirm'] != 2) {
         include "confirm.php";
         exit;
     }
     if (isset($_GET['wpr-vb'])) {
         $vb = intval($_GET['wpr-vb']);
         if (isset($_GET['wpr-vb']) && $vb > 0) {
             require "broadcast_html_frame.php";
             exit;
         }
     }
     require WPR_PLUGIN_DIR . "/proxy.php";
     do_action("_wpr_init");
     $admin_page_definitions = $GLOBALS['admin_pages_definitions'];
     foreach ($admin_page_definitions as $item) {
         if (isset($item['legacy']) && $item['legacy'] === 0) {
             $slug = str_replace("_wpr/", "", $item['menu_slug']);
             $actionName = "_wpr_" . $slug . "_handle";
             $handler = "_wpr_" . $slug . "_handler";
             add_action($actionName, $handler);
         }
     }
     _wpr_attach_cron_actions_to_functions();
     add_action('admin_menu', 'wpr_admin_menu');
     /*
      * This is needed until all the pages are migrated to the
      * MVC format. 
      */
     if (isset($_GET['page']) && (preg_match("@^wpresponder/.*@", $_GET['page']) || preg_match("@^_wpr/.*@", $_GET['page']))) {
         _wpr_handle_post();
         _wpr_run_controller();
     }
     //a visitor is trying to subscribe.
     $directory = str_replace(basename(__FILE__), "", __FILE__);
     $containingdirectory = basename($directory);
     $url = get_bloginfo("url");
     wp_register_script("jqueryui-full", "{$url}/?wpr-file=jqui.js");
     wp_register_script("wpresponder-tabber", "{$url}/?wpr-file=tabber.js");
     wp_register_script("wpresponder-ckeditor", "/" . PLUGINDIR . "/" . $containingdirectory . "/ckeditor/ckeditor.js");
     wp_register_script("wpresponder-addedit", "/" . PLUGINDIR . "/" . $containingdirectory . "/script.js");
     /*
      * The following code ensures that the WP Responder's crons are always scheduled no matter what
      * Sometimes the crons go missing from cron's registry. Only the great zeus knows why that happens. 
      * The following code ensures that the crons are always scheduled immediately after they go missing. 
      * It also unenqueues duplicate crons that get enqueued when the plugin is deactivated and then reactivated.
      */
     //run the single instances every day once:
     $last_run_esic = intval(_wpr_option_get("_wpr_ensure_single_instances_of_crons_last_run"));
     $timeSinceLast = time() - $last_run_esic;
     if ($timeSinceLast > WPR_ENSURE_SINGLE_INSTANCE_CHECK_PERIODICITY) {
         do_action("_wpr_ensure_single_instances_of_crons");
         $currentTime = time();
         _wpr_option_set("_wpr_ensure_single_instances_of_crons_last_run", $currentTime);
     }
     if (isset($_GET['wpr-confirm']) && $_GET['wpr-confirm'] == 2) {
         include "confirmed.php";
         exit;
     }
     if (isset($_GET['wpr-manage'])) {
         include "manage.php";
         exit;
     }
     if (isset($_GET['wpr-admin-action'])) {
         switch ($_GET['wpr-admin-action']) {
             case 'preview_email':
                 include "preview_email.php";
                 exit;
                 break;
             case 'view_recipients':
                 include "view_recipients.php";
                 exit;
                 break;
             case 'filter':
                 include "filter.php";
                 exit;
                 break;
             case 'delete_mailout':
                 include "delmailout.php";
                 exit;
                 break;
             case '':
                 break;
         }
     }
     if (isset($_GET['wpr-template'])) {
         include "templateproxy.php";
         exit;
     }
     add_action('admin_init', 'wpr_enqueue_admin_scripts');
     add_action('admin_menu', 'wpresponder_meta_box_add');
     //count all non-WP Autoresponder emails so that the hourly limit can be suitably adjusted
     add_filter("wp_mail", "_wpr_non_wpr_email_sent");
     add_action('edit_post', "wpr_edit_post_save");
     add_action('load-post-new.php', 'wpr_enqueue_post_page_scripts');
     add_action('admin_action_edit', 'wpr_enqueue_post_page_scripts');
     add_action('publish_post', "wpr_add_post_save");
 }
function _wpr_ensure_single_instance_of_cron_is_registered()
{
    /*
     * The following code ensures that the WP Responder's crons are always scheduled no matter what
     * Sometimes the crons go missing from cron's registry. Only the great zeus knows why that happens.
     * The following code ensures that the crons are always scheduled immediately after they go missing.
     * It also unenqueues duplicate crons that get enqueued when the plugin is deactivated and then reactivated.
     */
    $last_run_esic = intval(_wpr_option_get("_wpr_ensure_single_instances_of_crons_last_run"));
    $timeSinceLast = time() - $last_run_esic;
    if ($timeSinceLast > WPR_ENSURE_SINGLE_INSTANCE_CHECK_PERIODICITY) {
        do_action("_wpr_ensure_single_instances_of_crons");
        $currentTime = time();
        _wpr_option_set("_wpr_ensure_single_instances_of_crons_last_run", $currentTime);
    }
}