thh/yapfaq
1
0
Fork 0
Code Issues 1 Pull requests Packages Projects Releases Activity

Code optimisation (verbose output).

Browse source 
Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2010-04-08 08:00:04 +02:00
parent 6b42155376
commit 366322b2c8
1 changed files with 4 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
yapfaq.pl
View file

@ -118,9 +118,7 @@ sub readconfig{
my ($File, $Config, $Faq) = @_; my ($File, $Config, $Faq) = @_;
my ($LastEntry, $Error, $i) = ('','',0); my ($LastEntry, $Error, $i) = ('','',0);
if($Options{'v'}) { print "Reading configuration.\n" if($Options{'v'});
print "Reading configuration.\n";
}
open FH, "<$$File" or die "$0: E: Can't open $$File: $!"; open FH, "<$$File" or die "$0: E: Can't open $$File: $!";
while (<FH>) { while (<FH>) {
@ -184,9 +182,7 @@ sub postfaq {
my ($ActName,$File,$From,$Subject,$NG,$Fup2,$MIDF,$ExtraHeaders,$Sender,$TDY,$TDM,$TDD,$ReplyTo,$Supersedes,$Expire) = @_; my ($ActName,$File,$From,$Subject,$NG,$Fup2,$MIDF,$ExtraHeaders,$Sender,$TDY,$TDM,$TDD,$ReplyTo,$Supersedes,$Expire) = @_;
my (@Header,@Body,$MID,$InRealBody,$LastModified); my (@Header,@Body,$MID,$InRealBody,$LastModified);
if($Options{'v'}) { print "$$ActName: Preparing to post.\n" if($Options{'v'});
print "$$ActName: Preparing to post.\n";
}
#Prepare MID: #Prepare MID:
$$TDM = ($$TDM < 10 && $$TDM !~ /^0/) ? "0" . $$TDM : $$TDM; $$TDM = ($$TDM < 10 && $$TDM !~ /^0/) ? "0" . $$TDM : $$TDM;
@ -262,17 +258,13 @@ sub postfaq {
my @Article = ($UsePGP)?@{signpgp(\@Header, \@Body)}:(@Header, "\n", @Body); my @Article = ($UsePGP)?@{signpgp(\@Header, \@Body)}:(@Header, "\n", @Body);
if($Options{'v'}) { print "$$ActName: Posting article ...\n" if($Options{'v'});
print "$$ActName: Posting article ...\n";
}
post(\@Article); post(\@Article);
# Test mode? # Test mode?
return if($Options{'t'}); return if($Options{'t'});
if($Options{'v'}) { print "$$ActName: Save status information.\n" if($Options{'v'});
print "$$ActName: Save status information.\n";
}
open (FH, ">$$File.cfg") or die "$0: E: Can't open $$File.cfg: $!"; open (FH, ">$$File.cfg") or die "$0: E: Can't open $$File.cfg: $!";
print FH "##;; Lastpost: $day.$month.$year\n"; print FH "##;; Lastpost: $day.$month.$year\n";