X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=blobdiff_plain;f=yapfaq.pl;h=9819864c31f49f5d8fd285a0edae07d7b9707b4a;hp=50928277f62f6c05974e72e89055c2e5a843d147;hb=b802358a609325e98df470b14827ff01a06f47ee;hpb=ace701c4a66620857f468a138c29caeef8e9183d

diff --git a/yapfaq.pl b/yapfaq.pl
index 5092827..9819864 100644
--- a/yapfaq.pl
+++ b/yapfaq.pl
@@ -12,7 +12,7 @@
 # It can be redistributed and/or modified under the same terms under 
 # which Perl itself is published.
 
-my $Version = "0.7";
+my $Version = "0.8-prelease";
 
 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 ##################################
-my %Config = (NNTPServer => "localhost",
+my %Config = (NNTPServer => "",
               NNTPUser   => "",
               NNTPPass   => "",
               Sender     => "",
@@ -166,7 +166,7 @@ sub readconfig{
   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>) {