1 files changed, 82 insertions, 0 deletions
diff --git a/site/source/functions/cats_mail.php b/site/source/functions/cats_mail.php
new file mode 100644
index 0000000..38c0aa9
--- /dev/null
+++ b/site/source/functions/cats_mail.php
@@ -0,0 +1,82 @@
+<?php
+
+# CATS Online Registration System
+# Copyright (C) 2004 Adam Beaumont, Thomas Cort, Patrick McLean, Scott Stoddard
+#
+# 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
+
+# executes the required sequence of SMTP commands to send a basic [authenticated] email
+function cats_mail($to,$from,$subject,$body) {
+  $mailer = new cats_smtp();
+
+  $result = $mailer->connect();
+
+  if (!$result->success()) {
+    return $result;
+  } 
+
+  $result = $mailer->cmd_helo();
+
+  if (!$result->success()) {
+    echo "HELO FAILED!";
+    return $result;
+  } 
+
+  $result = $mailer->cmd_auth();
+
+  if (!$result->success()) {
+    echo "AUTH FAILED!";
+    return $result;
+  } 
+
+  $result = $mailer->cmd_mail_from($from);
+
+  if (!$result->success()) {
+    echo "MAIL FROM FAILED";
+    return $result;
+  } 
+
+  $result = $mailer->cmd_rcpt_to($to);
+
+  if (!$result->success()) {
+    echo "RCPT TO FAILED";
+    return $result;
+  } 
+
+  $result = $mailer->cmd_data($from,$to,$subject,$body);
+
+  if (!$result->success()) {
+    echo "DATA FAILED";
+    return $result;
+  } 
+
+  $result = $mailer->cmd_quit();
+
+  if (!$result->success()) {
+    echo "QUIT FAILED";
+    return $result;
+  } 
+
+  $mailer->disconnect();
+  return new return_result(true);
+}
+
+# test code
+#$smtp_host = "cs.ubishops.ca";
+#$r = cats_mail("tcort@cs.ubishops.ca","tcort@cs.ubishops.ca","Final Last Tests","Hey Tom,
+#Dag, yo. This email api is r0x0r. U r a  1337 h4x0r. w00t!
+#Mr Deeds");
+
+?>