INN commit: trunk/control/modules (checkgroups.pl ihave.pl sendsys.pl)

[INN Commit]

    Date: Sunday, January 11, 2009 @ 04:06:55
  Author: iulius
Revision: 8285

* add a blank line in the mail output of checkgroups control messages.
* 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:
  trunk/control/modules/checkgroups.pl
  trunk/control/modules/ihave.pl
  trunk/control/modules/sendsys.pl

----------------+
 checkgroups.pl |    2 +-
 ihave.pl       |    8 ++++----
 sendsys.pl     |    2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

Modified: checkgroups.pl
===================================================================
--- checkgroups.pl	2009-01-11 10:35:57 UTC (rev 8284)
+++ checkgroups.pl	2009-01-11 12:06:55 UTC (rev 8285)
@@ -27,7 +27,7 @@
 
     if ($action eq 'mail') {
         my $mail = sendmail("checkgroups by $sender");
-        print $mail "$sender posted the following checkgroups message:\n";
+        print $mail "$sender posted the following checkgroups message:\n\n";
         print $mail map { s/^~/~~/; "$_\n" } @headers;
         print $mail <<END;
 

Modified: ihave.pl
===================================================================
--- ihave.pl	2009-01-11 10:35:57 UTC (rev 8284)
+++ ihave.pl	2009-01-11 12:06:55 UTC (rev 8285)
@@ -42,14 +42,14 @@
         close GREPHIST;
 
         if (-s $tempfile) {
-            my $inews = open("$INN::Config::inews -h")
+            open(INEWS, "| $INN::Config::inews -h")
                 or logdie('Cannot run inews: ' . $!);
-            print $inews "Newsgroups: to.$site\n"
+            print INEWS "Newsgroups: to.$site\n"
                . "Subject: cmsg sendme $INN::Config::pathhost\n"
                . "Control: sendme $INN::Config::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 10:35:57 UTC (rev 8284)
+++ sendsys.pl	2009-01-11 12:06:55 UTC (rev 8285)
@@ -30,7 +30,7 @@
         my $mail = sendmail("sendsys $sender");
         print $mail <<END;
 $sender has requested that you send a copy
-of your $INN::Config::pathdb/newsgroups file.
+of your $INN::Config::newsfeeds file.
 
 If this is acceptable, type:
   $INN::Config::mailcmd -s "sendsys reply from $INN::Config::pathhost" $replyto < $INN::Config::newsfeeds