INN commit: branches/2.4/control/modules (ihave.pl sendsys.pl)
INN Commit
Russ_Allbery at isc.org
Sun Jan 11 12:07:11 UTC 2009
Date: Sunday, January 11, 2009 @ 04:07:11
Author: iulius
Revision: 8286
* ihave control messages did not work (Perl error because of the use
of an unsupported syntax).
* sendsys control messages send the newsfeeds file (and not the
newsgroups file).
Modified:
branches/2.4/control/modules/ihave.pl
branches/2.4/control/modules/sendsys.pl
------------+
ihave.pl | 8 ++++----
sendsys.pl | 2 +-
2 files changed, 5 insertions(+), 5 deletions(-)
Modified: ihave.pl
===================================================================
--- ihave.pl 2009-01-11 12:06:55 UTC (rev 8285)
+++ ihave.pl 2009-01-11 12:07:11 UTC (rev 8286)
@@ -41,14 +41,14 @@
close GREPHIST;
if (-s $tempfile) {
- my $inews = open("$inn::inews -h")
+ open(INEWS, "| $inn::inews -h")
or logdie('Cannot run inews: ' . $!);
- print $inews "Newsgroups: to.$site\n"
+ print INEWS "Newsgroups: to.$site\n"
. "Subject: cmsg sendme $inn::pathhost\n"
. "Control: sendme $inn::pathhost\n\n";
open(TEMPFILE, $tempfile) or logdie("Cannot open $tempfile: $!");
- print $inews $_ while <TEMPFILE>;
- close $inews or die $!;
+ print INEWS $_ while <TEMPFILE>;
+ close INEWS or die $!;
close TEMPFILE;
}
unlink $tempfile;
Modified: sendsys.pl
===================================================================
--- sendsys.pl 2009-01-11 12:06:55 UTC (rev 8285)
+++ sendsys.pl 2009-01-11 12:07:11 UTC (rev 8286)
@@ -26,7 +26,7 @@
my $mail = sendmail("sendsys $sender");
print $mail <<END;
$sender has requested that you send a copy
-of your newsgroups file.
+of your newsfeeds file.
If this is acceptable, type:
$inn::mailcmd -s "sendsys reply from $inn::pathhost" $replyto < $inn::newsfeeds
More information about the inn-committers
mailing list