From 7feed93a560182d80a5305650b016bc1b2db7542 Mon Sep 17 00:00:00 2001
From: Mike Macgirvin <mike@macgirvin.com>
Date: Wed, 28 Jul 2010 16:28:39 -0700
Subject: added invitation module

---
 mod/invite.php | 63 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 mod/invite.php

(limited to 'mod')

diff --git a/mod/invite.php b/mod/invite.php
new file mode 100644
index 000000000..c63eb568b
--- /dev/null
+++ b/mod/invite.php
@@ -0,0 +1,63 @@
+<?php
+
+
+function invite_post(&$a) {
+	if(! local_user()) {
+		notice( t('Permission denied.') . EOL);
+		return;
+	}
+
+
+	$recips = explode("\n",$_POST['recipients']);
+	$message = $_POST['message'];
+
+	$total = 0;
+
+	foreach($recips as $recip) {
+
+		$recip = trim($recip);
+
+		if(!eregi('[A-Za-z0-9._%-]+@[A-Za-z0-9._%-]+\.[A-Za-z]{2,6}', $recip)) {
+	                notice(  $recip . t(' : ') . t('Not a valid email address.') . EOL);
+			continue;
+		}
+
+                $res = mail($recip, t('Please join my network on ') . $a->config['sitename'], $message, "From: " . $a->user['email']);
+		if($res) {
+			$total ++;
+		}
+		else {
+			notice( $recip . t(' : ') . t('Message delivery failed.') . EOL);
+		}
+
+	}
+	notice( $total . t(' messages sent.') . EOL);
+
+
+
+}
+
+
+function invite_content(&$a) {
+	if(! local_user()) {
+		notice( t('Permission denied.') . EOL);
+		return;
+	}
+
+	$tpl = file_get_contents('view/invite.tpl');
+	
+	$o = replace_macros($tpl, array(
+		'$invite' => t('Send invitations'),
+		'$addr_text' => t('Enter email addresses, one per line:'),
+		'$msg_text' => t('Your message:'),
+		'$default_message' => t('Please join my social network on ') . $a->config['sitename'] . t("\r\n") . t("\r\n")
+			. t('To accept this invitation, please visit:') . t("\r\n") . t("\r\n") . $a->get_baseurl()
+			. t("\r\n") . t("\r\n") . t('Once you have registered, please make an introduction via my profile page at:') 
+			. t("\r\n") . t("\r\n") . $a->get_baseurl() . '/profile/' . $a->user['nickname'] ,
+		'$submit' => t('Submit')
+	));
+
+	return $o;
+
+
+}
\ No newline at end of file
-- 
cgit v1.2.3