readconfig(): Add file name to verbose output.

[usenet/yapfaq.git] / yapfaq.pl

diff --git a/yapfaq.pl b/yapfaq.pl
index dd5e57b..9819864 100644 (file)
--- a/yapfaq.pl
+++ b/yapfaq.pl
@@ -1,6 +1,6 @@
 #! /usr/bin/perl -W
 #
 #! /usr/bin/perl -W
 #

-# yapfaq Version 0.6 by Thomas Hochstein
+# yapfaq Version 0.7 by Thomas Hochstein

 # (Original author: Marc Brockschmidt)
 #
 # This script posts any project described in its config-file. Most people
 # (Original author: Marc Brockschmidt)
 #
 # This script posts any project described in its config-file. Most people


@@ -12,7 +12,7 @@
 # It can be redistributed and/or modified under the same terms under 
 # which Perl itself is published.
 
 # It can be redistributed and/or modified under the same terms under 
 # which Perl itself is published.
 

-my $Version = "0.6.2";
+my $Version = "0.8-prelease";

 
 my $RCFile = '.yapfaqrc';
 my @ValidConfVars = ('NNTPServer','NNTPUser','NNTPPass','Sender','ConfigFile',
 
 my $RCFile = '.yapfaqrc';
 my @ValidConfVars = ('NNTPServer','NNTPUser','NNTPPass','Sender','ConfigFile',


@@ -20,7 +20,7 @@ my @ValidConfVars = ('NNTPServer','NNTPUser','NNTPPass','Sender','ConfigFile',
                      'PathtoPGPPass','pgpbegin','pgpend','pgptmpf','pgpheader');
 
 ################################### Defaults ##################################
                      'PathtoPGPPass','pgpbegin','pgpend','pgptmpf','pgpheader');
 
 ################################### Defaults ##################################

-my %Config = (NNTPServer => "localhost",
+my %Config = (NNTPServer => "",

               NNTPUser   => "",
               NNTPPass   => "",
               Sender     => "",
               NNTPUser   => "",
               NNTPPass   => "",
               Sender     => "",


@@ -166,7 +166,7 @@ sub readconfig{
   my ($File, $Config, $Faq) = @_;
   my ($LastEntry, $Error, $i) = ('','',0);
 
   my ($File, $Config, $Faq) = @_;
   my ($LastEntry, $Error, $i) = ('','',0);
 

-  print "Reading configuration.\n" if($Options{'v'});
+  print "Reading configuration from $$File.\n" if($Options{'v'});

 
   open FH, "<$$File" or die "$0: E: Can't open $$File: $!";
   while (<FH>) {
 
   open FH, "<$$File" or die "$0: E: Can't open $$File: $!";
   while (<FH>) {