<?php

/*

Plugin Name: ggis Subscribe

Plugin URI: http://dvector.com/oracle/category/ggissubscribe/

Description: Manages subscriptions to email lists. Simply add [-ggis-subscribe-] to your post.

Author: Gary Dalton

Version: 0.9

Author URI: http://dvector.com/oracle/

*/

/*  Copyright 2008 Gary Dalton  (email : PLUGIN AUTHOR EMAIL)

    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

*/

// Pre-2.6 compatibility

if ( ! defined( 'WP_CONTENT_URL' ) )

      define( 'WP_CONTENT_URL', get_option( 'siteurl' ) . '/wp-content' );

if ( ! defined( 'WP_CONTENT_DIR' ) )

      define( 'WP_CONTENT_DIR', ABSPATH . 'wp-content' );

if ( ! defined( 'WP_PLUGIN_URL' ) )

      define( 'WP_PLUGIN_URL', WP_CONTENT_URL. '/plugins' );

if ( ! defined( 'WP_PLUGIN_DIR' ) )

      define( 'WP_PLUGIN_DIR', WP_CONTENT_DIR . '/plugins' );

/*

*	START CLASS

*/

if (!class_exists("ggisSubscribe")) {

	class ggisSubscribe {

		/*

			formAction - URL to post form to.

			maillist - Which mailing list the subscription is for. [validated]

				listname@npexchange.org

			action - Subscribe or unsubscribe [validated]

			email - Email address to manage [validated

			name - Subscriber's name [optional] [validated]

			nextpage - Go to this URL after processing subscription.[validated]

				http://example.com

			formurl - URL with full subscribe/unsubscribe form[validated]

				http://example.com

			listmanager - Software managing the mailing list

				ezmlm, mailman

		*/

//		var $formAction = 'http://dvector.com/ggis_wp-subscribe.php';

		var $formAction = '';

		var $maillist;

		var $nextpage;

		var $formurl;

		var $managerdefault = 'ezmlm';

		var $managertypes = array('ezmlm', 'mailman');

		var $adminOptionsName = 'ggisSubscribeAdminOptions';

		function ggisSubscribe() { //constructor

//			$this->formAction = 'http://dvector.com/ggis_wp-subscribe.php';

//			$this->formAction = WP_PLUGIN_URL . '/ggis_wp-subscribe.php';

		}

		function addHeaderCode(){

			echo '<!-- ggisSubscribe Plugin - Copyright 2008 - GGIS -->';

		}

		// OUTPUT FUNCTIONS

		var $processing_unit_tag;

		var $processing_within;

		var $unit_count;

		var $widget_count;

		var $regex;

		function the_content_filter($content) {

			$this->processing_within = 'p' . get_the_ID();

			$this->unit_count = 0;

			$regex = '/\[-\s*ggis-subscribe\s*(\d+)?\s*(".*")?\s*-\]/';

//			$regex = '/\[-\s*ggis-subscribe\s+(\d+)(?:\s+.*?)?\s*-\]/'; // [-ggis-subscribe 1 -]

//			$regex = '/<!--\s*ggis-subscribe\s+(\d+)\s+(.*)\s*-->/';

			return preg_replace_callback($regex, array(&$this, 'the_content_filter_callback'), $content);

			$this->processing_within = null;

		}

		function widget_text_filter($content) {

			$this->widget_count += 1;

			$this->processing_within = 'w' . $this->widget_count;

			$this->unit_count = 0;

			$regex = '/\[-\s*ggis-subscribe\s*(\d+)?\s*(".*")?\s*-\]/';	

			return preg_replace_callback($regex, array(&$this, 'the_content_filter_callback'), $content);

			$this->processing_within = null;

		}

		function the_content_filter_callback($matches) {

			// GET AND SET VARIABLES

			$list_select = '';

			$listonly = NULL;

			$options = unserialize( get_option( 'ggis-Subscribe'));

			$options['maillists'] = explode( ',', $options['maillists'] );

			$id = (int) $matches[1];

			// DETERMINE FORM TYPE

			if ( $id == 1 ){

				$listonly = str_replace( '"', '', $matches[2]);

				if ( !is_email( $listonly) ){

					$id = 0;

				}

			}else {

				$id = 0;

			}

			// FORM HEADERS

			$this->unit_count += 1;

			$unit_tag = 'ggis-subscribe-f' . $id . '-' . $this->processing_within . '-o' . $this->unit_count;

			$this->processing_unit_tag = $unit_tag;

			$form = '<div class="ggis-subscribe-form" id="' . $unit_tag . '">';

			$form .= '<form action="' . $this->formAction . '" method="post" class="ggis-subscribe-form">';

			$form .= '<input type="hidden" name="formtype" id="formtype" value="ggis-subscribe-form">';

			$form .= '<input type="hidden" name="nextpage" id="nextpage" class="ggis-subscribe-form" value="'. $options['nextpage'] . '">';

			$form .= '<input type="hidden" name="formurl" id="formurl" class="ggis-subscribe-form" value="'. $options['formurl'] . '">';

			// CREATE EITHER A HIDDEN FIELD OR SELECT BOX FOR MAILING LIST

			if ( $id == 1 ){

				$list_select .= '<input type="hidden" name="maillist" id="maillist" class="ggis-subscribe-form" value="'. $listonly . '">';

			}else{

				if ( count( $options['maillists']) == 1 ){

					$list_select .= '<input type="hidden" name="maillist" id="maillist" class="ggis-subscribe-form" value="'. $options['maillists'][0] . '">';

				} else{

					$list_select .= 'Which list?<br>

									<select name="maillist">';

					foreach( $options['maillists'] as $key=>$list ){

						$list_select .= '<option value="' . $list . '"';

						if ( $key == 0 ){

							$list_select .= ' SELECTED';

						}

						$list_select .= ">$list</option>";

					}

					$list_select .= '</select>';

				}

			}

			if ( $id == 0){

				// LONG FORM

				$form .= '<fieldset><legend>Subscription Management</legend>

						<p class="ggis-subscribe-form">';

				$form .= $list_select;

				$form .= '</p><p>&nbsp;Action:<br>

						&nbsp;&nbsp;<input type="radio" name="action" id="subscribe" value="subscribe" checked="checked" /> Subscribe<br>

						&nbsp;&nbsp;<input type="radio" name="action" id="unsubscribe" value="unsubscribe" /> Unsubscribe</p>

						<p>&nbsp;Your Email:<br>

						&nbsp;<input type="text" name="ggis-subscribe-email" id="ggis-subscribe-email" class="ggis-subscribe-email" size="40" maxlength="100" /></p>

						</fieldset>

						<input type="submit" name="Submit" value="Submit" />

						</p>';

			} elseif ( $id == 1 ) {

				// SHORT FORM

				$form .= $list_select;

				$form .= '<input type="hidden" name="action" id="subscribe" class="ggis-subscribe-form" value="subscribe">';

				$form .= '<p><input type="text" name="ggis-subscribe-email" id="ggis-subscribe-email" maxlength="100" class="ggis-subscribe-email" value="your email"/>

						<input type="submit" name="Subscribe" value="Subscribe" /></p>';

			}

			// FORM FOOTERS

			$form .= '</form>';			

			$form .= '</div>';

			$this->processing_unit_tag = null;

			return $form;

		}

		// ADMIN MENUS

		var $adminform = '';

		function ggis_admin_add_pages() {

			add_options_page('ggisSubscribe', 'ggisSubscribe', 'manage_options', basename(__FILE__), array(&$this, 'ggissubscribe_options'));

		}

		function form_ggissubscribe_options(){

			$form = '';

			$options = unserialize( get_option( 'ggis-Subscribe'));

			$list_select .= 'Which list manager?<br>

							<select name="ggissubscribe_managertype">';

			foreach( $this->managertypes as $manager ){

				$list_select .= '<option value="' . $manager . '"';

				if ( isset( $options['managertype']) ){

					if ( $manager == $options['managertype'] ){

						$list_select .= ' SELECTED';

					}

				}elseif ( $manager == $managerdefault ){

					$list_select .= ' SELECTED';

				}

				$list_select .= ">$manager</option>";

			}

			$list_select .= '</select>';

			$form .= '<form method="post">';

			$form .= wp_nonce_field('ggis-subscribe-update-options_base');

			$form .= '<fieldset><legend>Mailing List Options</legend>

						<p>All fields are required.</p>

						<p>';

			$form .= $list_select;

			$form .= '</p>

						<p>

						Mailing List Address (comma separated)<br />

						example: maillist@npexchange.org,list2@npexchange.org<br />';

			$form .= '<textarea cols="60" rows="4" name="ggissubscribe_maillists">'. $options['maillists'] .'</textarea>';

			$form .= '</p>

						<p>

						URL of page to go to upon success<br />

						example: http://your.blog/name/thank_you/<br />';

			$form .= '<input type="text"  size="60" name="ggissubscribe_nextpage" value="'. $options['nextpage'] . '" />';

			$form .= '</p>

						<p>

						URL of page containing the full subscription management form<br />

						example: http://your.blog/name/manage_subscriptions/<br />';

			$form .= '<input type="text"  size="60" name="ggissubscribe_formurl" value="' . $options['formurl'] . '">';

			$form .= '</p>

						<input type="hidden" name="action" value="update" />

						<input type="hidden" name="page_options" value="ggissubscribe_maillists,ggissubscribe_nextpage,ggissubscribe_formurl" />

						<p class="submit">';

			$form .= '<input type="submit" name="submit" value="Save Changes" /></p>

						</fieldset>';

			return $form;

		}

		function ggissubscribe_options() {

			$this->adminform .= '<div class="wrap"><h2>ggis Subscribe</h2>';

			if ( $_POST['submit'] ){

				$this->adminform .= $this->update_ggissubscribe_options();

			}

			$this->adminform .= $this->form_ggissubscribe_options();

			$this->adminform .= '</div>';

			echo $this->adminform;

		}

		function update_ggissubscribe_options(){

			$maillists = NULL;

			$msg = '';

			$options = NULL;

			check_admin_referer('ggis-subscribe-update-options_base');

			if ( $_POST['ggissubscribe_managertype'] ) {

				$options['managertype'] = $_POST['ggissubscribe_managertype'];

			} else {

				$msg .= '<p>Manager type is required.</p>';

			}

			if ( $_POST['ggissubscribe_maillists'] ) {

				$maillists = explode(',', $_POST['ggissubscribe_maillists']);

				foreach ( $maillists as $key => $val ){

					$val = trim( strtolower( $val));

					$maillists[$key] = $val;

					if ( !is_email( $val) ){

						$msg .= "<p>Please enter a valid email address for the mailing list. Your invalid entry was $val</p>";

						unset( $maillists[$key]);

					}

				}

				$options['maillists'] = implode( ',', $maillists);

			} else {

				$msg .= '<p>Mailing list entries are required.</p>';

			}

			if ( $_POST['ggissubscribe_nextpage'] ) {

				if ( !$this->is_url_valid( $_POST['ggissubscribe_nextpage'])){

					$msg .= '<p>Please enter a valid next page. Your invalid entry was ' . $_POST['ggissubscribe_nextpage'] .'</p>';

					unset( $_POST['ggissubscribe_nextpage']);

				}

				$options['nextpage'] = $_POST['ggissubscribe_nextpage'];

			} else {

				$msg .= '<p>Next page is required.</p>';

			}

			if ( $_POST['ggissubscribe_formurl'] ) {

				if ( !$this->is_url_valid( $_POST['ggissubscribe_formurl'])){

					$msg .= '<p>Please enter a valid form URL. Your invalid entry was ' . $_POST['ggissubscribe_formurl'] .'</p>';

					unset( $_POST['ggissubscribe_formurl']);

				}

				$options['formurl'] = $_POST['ggissubscribe_formurl'];

			} else {

				$msg .= '<p>Form URL is required.</p>';

			}

			if ( $msg <> '' ){

				$msg = '<div id="message" class="error fade">'. $msg . '</div>';

			}

			if ( !is_null( $options) ){

				update_option( 'ggis-Subscribe', serialize( $options));

				$msg .= '<div id="message" class="updated fade"><p>Options saved.</p></div>';

			}

			return $msg;

		}

		// Verify string for valid URL format

		function is_url_valid($url){			

		    $url = @parse_url($url);

		    if (!$url) {

		        return false;

		    }

		    $url = array_map('trim', $url);

		    $url['port'] = (!isset($url['port'])) ? 80 : (int)$url['port'];

		    $path = (isset($url['path'])) ? $url['path'] : '/';

		    $path .= (isset($url['query'])) ? "?$url[query]" : '';

		    if (isset($url['host']) AND $url['host'] != gethostbyname($url['host'])) {

		        if (PHP_VERSION >= 5) {

		            $headers = implode('', get_headers("$url[scheme]://$url[host]:$url[port]$path"));

		        }

		        else {

		            $fp = fsockopen($url['host'], $url['port'], $errno, $errstr, 30);

		            if (!$fp)

		            {

		                return false;

		            }

		            fputs($fp, "HEAD $path HTTP/1.1\r\nHost: $url[host]\r\n\r\n");

		            $headers = fread($fp, 4096);

		            fclose($fp);

		        }

		        return (bool)preg_match('#^HTTP/.*\s+[(200)]+\s#i', $headers);

		    }

		    return false;

		}

	/*

	*	START formSubmitProcess FUNCTION

	*/

		function formSubmitProcess(){

		/*

		*	Handles form subscription submissions to ezmlm-idx.

		*	These are sent via email.

		*		formtype - indicates that form is for this plugin [validated]

		*			ggis-subscribe-form

		*		maillist - Which mailing list the subscription is for. [validated]

		*			listname@npexchange.org

		*		action - Subscribe or unsubscribe [validated]

		*		email - Email address to manage [validated

		*		name - Subscriber's name [optional] [validated]

		*		nextpage - Go to this URL after processing subscription.[validated]

		*			http://example.com

		*		formurl - URL with full subscribe/unsubscribe form[validated]

		*			http://example.com

		*		message - Any error messages plus comments to be output for visitor. [internal]

		*		mailto - Fully formatted email address to process request. [internal]

		*		errmsg - Message array for the user when some of the input valuse are invalid. [internal]

		*/

			if ( !isset($_POST['formtype']) ){

				return;

			}

			// SET INITIAL VALUES

			$_GET = array();	//flush GET

			$formtype = 'ggis-subscribe-form';

			$maillist = NULL;

			$action = NULL;

			$email = NULL;

			$name = NULL;

			$nextpage = NULL;

			$formurl = NULL;

			$message = '';

			$mailto = NULL;

			$errmsg = array(

				'action'	=> '<p>That action does not exist. Please contact the site owner.</p>',

				'email'	=> '<p>The email address you entered is not valid.</p>',

				'name'	=> '<p>The name you entered is not valid.</p>',

				'nexturl'	=> '<p>The Next URL is not valid. Please contact the site owner.</p>',

				'formurl'	=> '<p>The Form URL is not valid. Please contact the site owner.</p>'

				);

			$ar_mailing = NULL;

			$options = unserialize( get_option( 'ggis-Subscribe'));

			if ( $_POST['formtype'] != $formtype ) return;

			// POPULATE VALUES FROM POST

			if( isset( $_POST['maillist'] ) )	$maillist = strtolower($_POST['maillist']);

			if( isset( $_POST['action'] ) )	$action	=	strtolower($_POST['action']);

			if( isset( $_POST['ggis-subscribe-email'] ) )	$email	=	strtolower($_POST['ggis-subscribe-email']);

			if( isset( $_POST['name'] ) )	$name	=	$_POST['name'];

			if( isset( $_POST['nextpage'] ) )	$nextpage	=	$_POST['nextpage'];

			if( isset( $_POST['formurl'] ) )	$formurl	=	$_POST['formurl'];

			$_POST = array();	// flush POST

			// VALIDATION

			if (!(in_array($action, array('subscribe', 'unsubscribe')))){

				$message .= $errmsg['action'];

			}

			if (!(is_email($email))){

				$message .= $errmsg['email'];

			}

			if (!(empty($name) || is_name_valid($name))){

				$message .= $errmsg['name'];	

			}

			if (!($this->is_url_valid($nextpage))){

				$message .= $errmsg['nexturl'];

			}

			if (!($this->is_url_valid($formurl))){