Fix: Accept case-insensitive Last-modified pseudo header.

[usenet/yapfaq.git] / yapfaq.pl

diff --git a/yapfaq.pl b/yapfaq.pl
index f7e2e55..b89be9a 100644 (file)
--- a/yapfaq.pl
+++ b/yapfaq.pl
@@ -17,7 +17,7 @@ my $NNTPUser = "";
 my $NNTPPass = "";
 my $Sender = "";
 my $ConfigFile = "yapfaq.cfg";
-my $UsePGP = 1;
+my $UsePGP = 0;
 
 ################################## PGP-Config #################################
 
@@ -161,7 +161,7 @@ sub postfaq {
     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;