Pulled in the interface changes.

git-svn-id: http://code.elgg.org/elgg/trunk@5257 36083f99-b078-4883-b0ff-0f9b5a30f544

7 files changed, 276 insertions, 0 deletions

diff --git a/mod/invitefriends/actions/invite.php b/mod/invitefriends/actions/invite.php
new file mode 100644
index 000000000..7e0bd54b8
--- /dev/null
+++ b/mod/invitefriends/actions/invite.php
@@ -0,0 +1,117 @@
+<?php
+
+	/**
+	 * Elgg invite action
+	 * 
+	 * @package ElggFile
+	 * @author Curverider Ltd
+	 * @copyright Curverider Ltd 2008-2010
+	 * @license http://www.gnu.org/licenses/old-licenses/gpl-2.0.html GNU Public License version 2
+	 * @link http://elgg.org/
+	 */
+
+	global $CONFIG;
+	
+	gatekeeper();
+	
+	$emails = get_input('emails');
+	$emailmessage = get_input('emailmessage');
+
+	$emails = trim($emails);
+	if (strlen($emails) > 0) {
+		$emails = preg_split('/\\s+/', $emails, -1, PREG_SPLIT_NO_EMPTY);
+	}
+	
+	if (!is_array($emails) || count($emails) == 0) {
+		register_error(elgg_echo('invitefriends:failure'));
+		forward($_SERVER['HTTP_REFERER']);
+	}
+	
+	$error = FALSE;
+	$bad_emails = array();
+	foreach($emails as $email) {
+				
+		$email = trim($email);
+		if (empty($email)) {
+			continue;
+		}
+	
+		// send out other email addresses	
+		if (!is_email_address($email)) {
+			$error = TRUE;
+			$bad_emails[] = $email;
+			continue;
+		}
+		
+		$link = $CONFIG->wwwroot . 'pg/register?friend_guid=' . $_SESSION['guid'] . '&invitecode=' . generate_invite_code($_SESSION['user']->username);
+		$message = sprintf(elgg_echo('invitefriends:email'),
+							$CONFIG->site->name,
+							$_SESSION['user']->name,
+							$emailmessage,
+							$link
+						);
+
+		// **** this should be replaced by a core function for sending emails to people who are not members
+		$site = get_entity($CONFIG->site_guid);
+		// If there's an email address, use it - but only if its not from a user.
+		if (($site) && (isset($site->email))) {
+			// Has the current site got a from email address?
+			$from = $site->email;
+		} else if (isset($from->url))  {
+			// If we have a url then try and use that.
+			$breakdown = parse_url($from->url);
+			$from = 'noreply@' . $breakdown['host']; // Handle anything with a url
+		} else {
+			// If all else fails, use the domain of the site.
+			$from = 'noreply@' . get_site_domain($CONFIG->site_guid);
+		}
+	
+		if (is_callable('mb_internal_encoding')) {
+			mb_internal_encoding('UTF-8');
+		}
+		$site = get_entity($CONFIG->site_guid);
+		$sitename = $site->name;
+		if (is_callable('mb_encode_mimeheader')) {
+			$sitename = mb_encode_mimeheader($site->name,"UTF-8", "B");
+		}
+	
+		$header_eol = "\r\n";
+		if ((isset($CONFIG->broken_mta)) && ($CONFIG->broken_mta)) {
+			// Allow non-RFC 2822 mail headers to support some broken MTAs
+			$header_eol = "\n";
+		}
+	
+		$from_email = "\"$sitename\" <$from>";
+		if (strtolower(substr(PHP_OS, 0 , 3)) == 'win') {
+			// Windows is somewhat broken, so we use a different format from header
+			$from_email = "$from";
+		}
+	
+		$headers = "From: $from_email{$header_eol}"
+			. "Content-Type: text/plain; charset=UTF-8; format=flowed{$header_eol}"
+			. "MIME-Version: 1.0{$header_eol}"
+			. "Content-Transfer-Encoding: 8bit{$header_eol}";
+	
+		$subject = sprintf(elgg_echo('invitefriends:subject'), $CONFIG->site->name);
+		if (is_callable('mb_encode_mimeheader')) {
+			$subject = mb_encode_mimeheader($subject,"UTF-8", "B");
+		}
+	
+		// Format message
+		$message = html_entity_decode($message, ENT_COMPAT, 'UTF-8'); // Decode any html entities
+		$message = strip_tags($message); // Strip tags from message
+		$message = preg_replace("/(\r\n|\r)/", "\n", $message); // Convert to unix line endings in body
+		$message = preg_replace("/^From/", ">From", $message); // Change lines starting with From to >From
+
+		mail($email, $subject, wordwrap($message), $headers);							
+	}
+
+	if ($error) {
+		register_error(sprintf(elgg_echo('invitefriends:email_error'), implode(', ', $bad_emails)));
+	} else {	
+		system_message(elgg_echo('invitefriends:success'));
+	}
+
+	forward($_SERVER['HTTP_REFERER']);
+
+?>
diff --git a/mod/invitefriends/index.php b/mod/invitefriends/index.php
new file mode 100644
index 000000000..19471bbed
--- /dev/null
+++ b/mod/invitefriends/index.php
@@ -0,0 +1,25 @@
+<?php
+
+/**
+	 * Elgg invite page
+	 * 
+	 * @package ElggFile
+	 * @author Curverider Ltd
+	 * @copyright Curverider Ltd 2008-2010
+	 * @license http://www.gnu.org/licenses/old-licenses/gpl-2.0.html GNU Public License version 2
+	 * @link http://elgg.org/
+	 */
+
+	require_once(dirname(dirname(dirname(__FILE__))) . '/engine/start.php');
+	
+	gatekeeper();
+	
+	set_context('friends');
+	set_page_owner($_SESSION['guid']);
+	
+	$body = elgg_view('invitefriends/form');
+	$body = elgg_view_layout('two_column_left_sidebar','',$body);
+
+	page_draw(elgg_echo('friends:invite'),$body);
+	
+?>
\ No newline at end of file
diff --git a/mod/invitefriends/languages/en.php b/mod/invitefriends/languages/en.php
new file mode 100644
index 000000000..357ceeeea
--- /dev/null
+++ b/mod/invitefriends/languages/en.php
@@ -0,0 +1,42 @@
+<?php
+
+	/**
+	 * Elgg invite page
+	 * 
+	 * @package ElggFile
+	 * @author Curverider Ltd
+	 * @copyright Curverider Ltd 2008-2010
+	 * @license http://www.gnu.org/licenses/old-licenses/gpl-2.0.html GNU Public License version 2
+	 * @link http://elgg.org/
+	 */
+
+	$english = array(
+
+		'friends:invite' => 'Invite friends',
+		'invitefriends:introduction' => 'To invite friends to join you on this network, enter their email addresses below (one per line):',
+		'invitefriends:message' => 'Enter a message they will receive with your invitation:',
+		'invitefriends:subject' => 'Invitation to join %s',
+	
+		'invitefriends:success' => 'Your friends were invited.',
+		'invitefriends:email_error' => 'Invitations were sent, but the following addresses are not valid: %s',
+		'invitefriends:failure' => 'Your friends could not be invited.',
+	
+		'invitefriends:message:default' => '
+Hi,
+
+I want to invite you to join my network here on %s.',
+		'invitefriends:email' => '
+You have been invited to join %s by %s. They included the following message:
+
+%s
+
+To join, click the following link:
+
+%s
+
+You will automatically add them as a friend when you create your account.',
+	
+	);
+					
+	add_translation("en",$english);
+?>
diff --git a/mod/invitefriends/manifest.xml b/mod/invitefriends/manifest.xml
new file mode 100644
index 000000000..1228edd58
--- /dev/null
+++ b/mod/invitefriends/manifest.xml
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<plugin_manifest>
+        <field key="author" value="Curverider" />
+        <field key="version" value="1.7" />
+        <field key="description" value="Friend invite page" />
+        <field key="website" value="http://www.elgg.org/" />
+        <field key="copyright" value="(C) Curverider 2008-2010" />
+        <field key="licence" value="GNU Public License version 2" />
+        <field key="elgg_version" value="2010030101" />
+</plugin_manifest>
diff --git a/mod/invitefriends/start.php b/mod/invitefriends/start.php
new file mode 100644
index 000000000..b7cd9868d
--- /dev/null
+++ b/mod/invitefriends/start.php
@@ -0,0 +1,31 @@
+<?php
+
+	/**
+	 * Elgg invite page
+	 * 
+	 * @package ElggFile
+	 * @author Curverider Ltd
+	 * @copyright Curverider Ltd 2008-2010
+	 * @license http://www.gnu.org/licenses/old-licenses/gpl-2.0.html GNU Public License version 2
+	 * @link http://elgg.org/
+	 */
+
+	function invitefriends_pagesetup() {
+		
+		// Menu options
+			global $CONFIG;
+			if (get_context() == "friends" || 
+				get_context() == "friendsof" || 
+				get_context() == "collections") {
+					
+					add_submenu_item(elgg_echo('friends:invite'),$CONFIG->wwwroot."mod/invitefriends/",'invite');
+					
+				}
+		
+	}
+
+	global $CONFIG;
+	register_action('invitefriends/invite', false, $CONFIG->pluginspath . 'invitefriends/actions/invite.php');
+	register_elgg_event_handler('pagesetup','system','invitefriends_pagesetup',1000);
+
+?>
\ No newline at end of file
diff --git a/mod/invitefriends/views/default/invitefriends/form.php b/mod/invitefriends/views/default/invitefriends/form.php
new file mode 100644
index 000000000..ef66c1e84
--- /dev/null
+++ b/mod/invitefriends/views/default/invitefriends/form.php
@@ -0,0 +1,18 @@
+<?php
+	/**
+	 * Elgg invite page
+	 * 
+	 * @package ElggFile
+	 * @author Curverider Ltd
+	 * @copyright Curverider Ltd 2008-2010
+	 * @license http://www.gnu.org/licenses/old-licenses/gpl-2.0.html GNU Public License version 2
+	 * @link http://elgg.org/
+	 */
+	echo elgg_view('input/form', array(
+			'action' => $vars['url'] . 'action/invitefriends/invite',
+			'body' => elgg_view('invitefriends/formitems'),
+			'method' => 'post'
+		)
+	);
+
+?>
diff --git a/mod/invitefriends/views/default/invitefriends/formitems.php b/mod/invitefriends/views/default/invitefriends/formitems.php
new file mode 100644
index 000000000..0db562d50
--- /dev/null
+++ b/mod/invitefriends/views/default/invitefriends/formitems.php
@@ -0,0 +1,33 @@
+<?php
+
+	/**
+	 * Elgg invite page
+	 * 
+	 * @package ElggFile
+	 * @author Curverider Ltd
+	 * @copyright Curverider Ltd 2008-2010
+	 * @license http://www.gnu.org/licenses/old-licenses/gpl-2.0.html GNU Public License version 2
+	 * @link http://elgg.org/
+	 */
+
+?>
+
+<div class="contentWrapper notitle">
+<p><label>
+	<?php echo elgg_echo('invitefriends:introduction'); ?>
+</label>
+<textarea class="input-textarea" name="emails" ></textarea></p>
+<p><label>
+	<?php echo elgg_echo('invitefriends:message'); ?>
+</label>
+<textarea class="input-textarea" name="emailmessage" ><?php
+
+	echo sprintf(elgg_echo('invitefriends:message:default'),$CONFIG->site->name);
+
+?></textarea></p>
+<?php
+
+	echo elgg_view('input/submit', array('value' => elgg_echo('send')));
+
+?>
+</div>
\ No newline at end of file