vendor/pear/mail_mime/scripts/phail.php

   1 #!@prefix@/bin/php -Cq
   2 <?php
   3 /**
   4 * PHAIL - stands for PHP Mail
   5 * @author Tomas V.V.Cox <cox@idecnet.com>
   6 */
   7 require_once 'Mail.php';
   8 require_once 'Mail/mime.php';
   9 require_once 'Console/Getopt.php';
  10
  11 $argv = Console_Getopt::readPHPArgv();
  12 $opts = Console_Getopt::getOpt($argv, 'f:c:s:t:a:b:');
  13 if (PEAR::isError($opts)) {
  14     usage($opts->getMessage());
  15 }
  16
  17 PEAR::setErrorHandling(PEAR_ERROR_DIE);
  18 $mime = new Mail_mime;
  19 foreach ($opts[0] as $opt) {
  20     $param = $opt[1];
  21     switch ($opt[0]) {
  22         case 'f':
  23             $headers['From'] = $param; break;
  24         case 'c':
  25             $headers['Cc'] = $param; break;
  26         case 's':
  27             $headers['Subject'] = $param; break;
  28         case 't':
  29             $to = $param; break;
  30         case 'a':
  31             $mime->addAttachment($param); break;
  32         case 'b':
  33             $isfile = @is_file($param) ? true : false;
  34             $mime->setTXTBody($param, $isfile); break;
  35     }
  36 }
  37
  38 $mbody   = $mime->get();
  39 $headers = $mime->headers($headers);
  40 $mail    = Mail::factory('mail');
  41 $mail->send($to, $headers, $mbody);
  42
  43 function usage($error)
  44 {
  45     die($error);
  46 }
  47 ?>