diff vendor/pear/mail_mime/scripts/phail.php @ 0:1e000243b222

vanilla 1.3.3 distro, I hope
author Charlie Root
date Thu, 04 Jan 2018 15:50:29 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vendor/pear/mail_mime/scripts/phail.php	Thu Jan 04 15:50:29 2018 -0500
@@ -0,0 +1,47 @@
+#!@prefix@/bin/php -Cq
+<?php
+/**
+* PHAIL - stands for PHP Mail
+* @author Tomas V.V.Cox <cox@idecnet.com>
+*/
+require_once 'Mail.php';
+require_once 'Mail/mime.php';
+require_once 'Console/Getopt.php';
+
+$argv = Console_Getopt::readPHPArgv();
+$opts = Console_Getopt::getOpt($argv, 'f:c:s:t:a:b:');
+if (PEAR::isError($opts)) {
+    usage($opts->getMessage());
+}
+
+PEAR::setErrorHandling(PEAR_ERROR_DIE);
+$mime = new Mail_mime;
+foreach ($opts[0] as $opt) {
+    $param = $opt[1];
+    switch ($opt[0]) {
+        case 'f':
+            $headers['From'] = $param; break;
+        case 'c':
+            $headers['Cc'] = $param; break;
+        case 's':
+            $headers['Subject'] = $param; break;
+        case 't':
+            $to = $param; break;
+        case 'a':
+            $mime->addAttachment($param); break;
+        case 'b':
+            $isfile = @is_file($param) ? true : false;
+            $mime->setTXTBody($param, $isfile); break;
+    }
+}
+
+$mbody   = $mime->get();
+$headers = $mime->headers($headers);
+$mail    = Mail::factory('mail');
+$mail->send($to, $headers, $mbody);
+
+function usage($error)
+{
+    die($error);
+}
+?>