projects
/
usenet
/
yapfaq.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
-h: Replace version/usage information with man page.
[usenet/yapfaq.git]
/
yapfaq.pl
diff --git
a/yapfaq.pl
b/yapfaq.pl
index
5b7160a
..
888a4f5
100644
(file)
--- a/
yapfaq.pl
+++ b/
yapfaq.pl
@@
-61,7
+61,7
@@
my ($TDY, $TDM, $TDD) = Today(); #TD: Today's date
my %Options;
getopts('hvpdt:f:', \%Options);
if ($Options{'h'}) {
my %Options;
getopts('hvpdt:f:', \%Options);
if ($Options{'h'}) {
-
print "$0 v $Version\nUsage: $0 [-hvpd] [-t <newsgroups>] [-f <faq>]\n"
;
+
exec ('perldoc', $0)
;
exit(0);
};
my ($Faq) = $Options{'f'} if ($Options{'f'});
exit(0);
};
my ($Faq) = $Options{'f'} if ($Options{'f'});
@@
-305,7
+305,7
@@
sub post {
my $NewsConnection = Net::NNTP->new($NNTPServer, Reader => 1)
or die "$0: E: Can't connect to news server '$NNTPServer'!\n";
my $NewsConnection = Net::NNTP->new($NNTPServer, Reader => 1)
or die "$0: E: Can't connect to news server '$NNTPServer'!\n";
- $NewsConnection->authinfo ($NNTPUser, $NNTPPass);
+ $NewsConnection->authinfo ($NNTPUser, $NNTPPass)
if (defined($NNTPUser))
;
$NewsConnection->post();
$NewsConnection->datasend (@$ArticleR);
$NewsConnection->dataend();
$NewsConnection->post();
$NewsConnection->datasend (@$ArticleR);
$NewsConnection->dataend();
@@
-697,7
+697,7
@@
was posted and the second being the message ID of that incarnation.
=item B<-h> (help)
=item B<-h> (help)
-Print
out version and usage information on B<yapfaq>
and exit.
+Print
this man page
and exit.
=item B<-v> (verbose)
=item B<-v> (verbose)
This page took
0.010828 seconds
and
4
git commands to generate.