Mercurial > hg > rc1
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); +} +?>