blob: 21a2b8e30c8df715d09caaae8e90d04b48e22ef1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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);
}
?>
|
