aboutsummaryrefslogtreecommitdiff
path: root/mod/invitefriends
diff options
context:
space:
mode:
Diffstat (limited to 'mod/invitefriends')
-rw-r--r--mod/invitefriends/actions/invite.php117
-rw-r--r--mod/invitefriends/index.php25
-rw-r--r--mod/invitefriends/languages/en.php42
-rw-r--r--mod/invitefriends/manifest.xml10
-rw-r--r--mod/invitefriends/start.php31
-rw-r--r--mod/invitefriends/views/default/invitefriends/form.php18
-rw-r--r--mod/invitefriends/views/default/invitefriends/formitems.php33
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