projects
/
usenet
/
yapfaq.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change: Don't output line number if .cfg file can't be opened.
[usenet/yapfaq.git]
/
yapfaq.pl
diff --git
a/yapfaq.pl
b/yapfaq.pl
index
f7e2e55
..
517eac1
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 it
s 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 #################################
@@
-77,7
+79,7
@@
foreach (@Config) {
}
close FH;
} else {
}
close FH;
} else {
- warn "Couldn't open $File.cfg: $!";
+ warn "Couldn't open $File.cfg: $!
\n
";
}
$SupersedeMID = "" unless $Supersede;
}
$SupersedeMID = "" unless $Supersede;
@@
-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;
This page took
0.011258 seconds
and
4
git commands to generate.