IcculusNews_dotqmail.pl
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
80
81
#!/usr/bin/perl -w
use strict;
use warnings;
# The ever important debug-spew-enabler...
my $debug = 0;
# most of these can be altered at runtime with command line options.
my $newshost = 'localhost';
my $newsauthor = 'postmaster';
my $postingagent = '/usr/local/bin/IcculusNews_post.pl';
my $queuenum = 1;
my $newspass = undef;
my $newspassfile = '/etc/IcculusNews_mailgatewaypass.txt';
my $portnum = 263;
my $newssubj = undef;
#-----------------------------------------------------------------------------#
# The rest is probably okay without you laying yer dirty mits on it. #
#-----------------------------------------------------------------------------#
# the mainline.
if ((not defined $newspass) && (not defined $ENV{'ICCNEWS_POST_PASS'})) {
if (defined $newspassfile) {
open(FH, $newspassfile) or die("failed to open $newspassfile: $!\n");
$newspass = <FH>;
chomp($newspass);
$newspass =~ s/\A\s*//;
$newspass =~ s/\s*\Z//;
close(FH);
}
}
for (my $i = 0; $i < scalar(@ARGV); $i++) {
my $arg = $ARGV[$i];
$debug = 1, next if ($arg eq '--debug');
$newshost = $ARGV[++$i], next if ($arg eq '--host');
$queuenum = $ARGV[++$i], next if ($arg eq '--queue');
$portnum = $ARGV[++$i], print("!!! FIXME: --port is ignored right now.\n"), next if ($arg eq '--port');
$newsauthor = $ARGV[++$i], next if ($arg eq '--user');
$newssubj = $ARGV[++$i], next if ($arg eq '--subj');
$postingagent = $ARGV[++$i], next if ($arg eq '--agent');
#$username = $arg, next if (not defined $username);
#$subject = $arg, next if (not defined $subject);
#$text = $arg, next if (not defined $text);
#etc.
print("Unknown argument \"$arg\".\n");
}
print(" reading from STDIN...\n") if $debug;
my $t = '';
$t .= $_ while (<STDIN>);
if (not defined $newssubj) {
if ($t =~ /^Subject:\s?(.*?)$/m) {
$newssubj = $1;
}
}
$newssubj = "Posting to IcculusNews mail gateway" if (not defined $newssubj);
print(" posting to IcculusNews's submission queue...\n") if $debug;
$ENV{'ICCNEWS_POST_PASS'} = $newspass if defined $newspass;
my $rc = open(PH, "|'$postingagent' '$newshost' '$newsauthor' '$queuenum' '$newssubj' -");
if (not $rc) {
print(" No pipe to IcculusNews: $!\n");
} else {
print PH "<i>$ENV{'SENDER'} sent us the following email:" .
"</i>\n<p>\n<pre>$t</pre>\n</p>\n";
close(PH);
print(" posted to submission queue.\n") if $debug;
}
exit 99; # prevent further qmail delivery with successful status.
# end of IcculusNews_dotqmail.pl ...