This file is indexed.

/usr/lib/news/bin/innmail is in inn2 2.6.1-2.

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 9216 2011-07-05 18:30:57Z iulius $
# Description:  A simple replacement for UCB Mail to avoid nasty security
#		problems. 
# 

use strict;
use Getopt::Std;

$0 =~ s!.*/!!;

die "$0: No \$INN::Config::mta variable defined.\n" 
    if ! defined ($INN::Config::mta);

my $sm = $INN::Config::mta;

die "$0: MTA path is not absolute\n" unless ($sm =~ m!^/!);

my $usage = "usage: $0 -s subject addresses\n\n" .
    "Reads stdin for message body\n";

my (%opt, @addrs);
getopts ("s:h", \%opt) || 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);
}

my @smarr = split(/\s+/, $sm);

(my $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.
my $pid = open my $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;