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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
#! /usr/bin/perl
# fixscript will replace this line with require innshellvars.pl
# Author: James Brister <brister@vix.com> -- berkeley-unix --
# Start Date: Fri, 25 Apr 1997 14:11:23 +0200
# Project: INN
# File: innmail.pl
# RCSId: $Id: innmail.in 2677 1999-11-15 06:33:13Z rra $
# Description: A simple replacement for UCB Mail to avoid nasty security
# problems.
#
$0 =~ s!.*/!! ;
require 5.001 ;
require 'getopts.pl' ;
die "$0: No \$inn::mta variable defined.\n"
if ! defined ($inn::mta);
$sm = $inn::mta ;
die "$0: MTA path is not absolute\n" unless ($sm =~ m!^/!) ;
$usage = "usage: $0 -s subject addresses\n\n" .
"Reads stdin for message body\n" ;
&Getopts ("s:h") || die $usage ;
die $usage if $opt_h ;
if ( !$opt_s ) {
warn "No subject given. Hope that's ok\n" ;
$opt_s = "NO SUBJECT" ;
} else {
$opt_s =~ s/\n+\Z//;
}
# fix up any addresses.
foreach ( @ARGV ) {
s![^-a-zA-Z0-9+_.@%]!!g ;
push (@addrs,$_) if ($_ ne "") ;
}
die "$0: No addresses specified\n\n$usage" unless @addrs ;
if ($sm =~ m!%s!) {
$sm = sprintf $sm,join (' ',@addrs);
} else {
$sm .= " " . join(' ', @addrs);
}
@smarr = split(/\s+/,$sm);
($t = $inn::mta) =~ s!\s.*!!;
die "$0: MTA variable definition is changed after subsitution\n"
if ($t ne $smarr[0]);
die "$0: MTA excutable doesn't appear to exist: $smarr[0]\n"
if ! -x $smarr[0];
# startup mta without using the shell
$pid = open (MTA,"|-") ;
if ($pid == 0) {
exec (@smarr) || die "$0: exec of $sm failed: $!\n" ;
} elsif ($pid < 0) {
die "$0: Fork failed: $!\n" ;
}
print MTA "To: ", join (",\n\t",@addrs), "\n" ;
print MTA "Subject: $opt_s\n" ;
print MTA "\n" ;
while (<STDIN>) {
print MTA $_ ;
}
close (MTA) ;
exit ;
|
