/usr/lib/news/bin/innmail is in inn2 2.5.2+20110413-1build1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 79 | #! /usr/bin/perl -w
use lib '/usr/share/perl5'; use INN::Config;
# 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 8291 2009-01-17 08:23:25Z iulius $
# Description: A simple replacement for UCB Mail to avoid nasty security
# problems.
#
$0 =~ s!.*/!! ;
require 5.001 ;
use Getopt::Std;
use vars qw($opt_h);
die "$0: No \$INN::Config::mta variable defined.\n"
if ! defined ($INN::Config::mta);
$sm = $INN::Config::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 ( !defined($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::Config::mta) =~ s!\s.*!!;
die "$0: MTA variable definition is changed after substitution\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 ;
|