From 024dc6c09817da701cff275a29d41ae2d4d777e9 Mon Sep 17 00:00:00 2001
From: Evan Prodromou <evan@prodromou.name>
Date: Sat, 14 Jun 2008 23:02:02 -0400
Subject: email notification on new subscriptions

darcs-hash:20080615030202-84dde-ebed7919c227ce280dc818f301e15001eb8b5926.gz
---
 lib/mail.php | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 lib/mail.php

(limited to 'lib/mail.php')

diff --git a/lib/mail.php b/lib/mail.php
new file mode 100644
index 000000000..6656964ab
--- /dev/null
+++ b/lib/mail.php
@@ -0,0 +1,57 @@
+<?php
+/*
+ * Laconica - a distributed open-source microblogging tool
+ * Copyright (C) 2008, Controlez-Vous, Inc.
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 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 Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+if (!defined('LACONICA')) { exit(1); }
+
+require_once('Mail.php');
+
+function mail_backend() {
+	static $backend = NULL; 
+	
+	if (!$backend) {
+		global $config;
+		$backend = Mail::factory($config['mail']['backend'],
+								 ($config['mail']['params']) ? $config['mail']['params'] : array());
+		if (PEAR::isError($backend)) {
+			common_server_error($backend->getMessage(), 500);
+		}
+	}
+	return $backend;
+}
+
+# XXX: use Mail_Queue... maybe
+
+function mail_send($recipients, $headers, $body) {
+	$backend = mail_backend();
+	assert($backend); # throws an error if it's bad
+	$sent = $backend->send($recipients, $headers, $body);
+	if (PEAR::isError($sent)) {
+		common_server_error($sent->getMessage(), 500);
+	}
+}
+
+function mail_notify_from() {
+	global $config;
+	if ($config['mail']['notifyfrom']) {
+		return $config['mail']['notifyfrom'];
+	} else {
+		return 'Do Not Reply <nobody@'.$config['site']['server'].'>';
+	}
+}
+ 
\ No newline at end of file
-- 
cgit v1.2.3-54-g00ecf