Update header/introduction, bump version/copyright information.

[usenet/yapfaq.git] / yapfaq.pl

diff --git a/yapfaq.pl b/yapfaq.pl
index f7e2e55..06734ff 100644 (file)
--- a/yapfaq.pl
+++ b/yapfaq.pl
@@ -1,23 +1,25 @@
 #! /usr/bin/perl -W
 #
 #! /usr/bin/perl -W
 #

-# yapfaq Version 0.5b by Marc 'HE' Brockschmidt
+# yapfaq Version 0.6 by Thomas Hochstein
+# (Original author: Marc Brockschmidt)

 #
 #

-# This script posts any project described in it's config-file. Most persons
+# This script posts any project described in its config-file. Most people

 # will use it in combination with cron(8).
 # 
 # Copyright (C) 2003 Marc Brockschmidt <marc@marcbrockschmidt.de>
 # will use it in combination with cron(8).
 # 
 # Copyright (C) 2003 Marc Brockschmidt <marc@marcbrockschmidt.de>

+# Copyright (c) 2010 Thomas Hochstein <thh@inter.net>

 #
 # 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.5b";
+my $Version = "0.6-unreleased";

 
 my $NNTPServer = "";
 my $NNTPUser = "";
 my $NNTPPass = "";
 my $Sender = "";
 my $ConfigFile = "yapfaq.cfg";
 
 my $NNTPServer = "";
 my $NNTPUser = "";
 my $NNTPPass = "";
 my $Sender = "";
 my $ConfigFile = "yapfaq.cfg";

-my $UsePGP = 1;
+my $UsePGP = 0;

 
 ################################## PGP-Config #################################
 
 
 ################################## PGP-Config #################################
 


@@ -161,7 +163,7 @@ sub postfaq {
     s/\r//;
     push (@Body, $_), next if $InRealBody;
     $InRealBody++ if /^$/;
     s/\r//;
     push (@Body, $_), next if $InRealBody;
     $InRealBody++ if /^$/;

-    $LastModified = $1 if /^Last-modified: (\S+)$/;
+    $LastModified = $1 if /^Last-modified: (\S+)$/i;

     push @Body, $_;
   }
   close FH;
     push @Body, $_;
   }
   close FH;