X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=blobdiff_plain;f=yapfaq.pl;h=6e3032c353b17fc79c1aca79943c1a0265faf29d;hp=685395ace777232dc4f05648f9a8698efb3c127c;hb=b16eb1aec41bc80a9f09f63fdd217433145632dc;hpb=bdbb9d7043b46b337971a45bc41934c5679490cc
diff --git a/yapfaq.pl b/yapfaq.pl
index 685395a..6e3032c 100644
--- a/yapfaq.pl
+++ b/yapfaq.pl
@@ -1,6 +1,6 @@
#! /usr/bin/perl -W
#
-# yapfaq Version 0.7 by Thomas Hochstein
+# yapfaq Version 0.8.1 by Thomas Hochstein
# (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.
-our $VERSION = "0.8-prelease";
+our $VERSION = "0.9-prelease";
# Please do not change this setting!
# You may override the default .rc file (.yapfaqrc) by using "-c .rc file"
@@ -66,7 +66,7 @@ if (-f $RCFile) {
warn "$0: W: .rc file $RCFile does not exist!\n";
}
-$Options{'s'} = $Config{'Program'} if (!defined($Options{'s'}));
+$Options{'s'} = $Config{'Program'} if (defined($Config{'Program'}) && $Config{'Program'} && !defined($Options{'s'}));
# read configuration (configured FAQs)
my @Config;
@@ -263,7 +263,7 @@ sub postfaq {
s/\r//;
push (@Body, $_), next if $InRealBody;
$InRealBody++ if /^$/;
- $LastModified = $1 if /^Last-modified: (\S+)$/i;
+ $LastModified = $1 if /^Last-modified:\s*(\S+)\s*$/i;
push @Body, $_;
}
close FH;
@@ -807,13 +807,19 @@ the last post of that FAQ.
=head1 BUGS
-Many, I'm sure.
+Please report any bugs or feature request to the author or use the
+bug tracker at L!
=head1 SEE ALSO
L will have the current
version of this program.
+This program is maintained using the Git version control system. You
+may clone L to check out the
+current development tree or browse it on the web via
+L.
+
=head1 AUTHOR
Thomas Hochstein