GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Minor clean-up of bash faq

This commit is contained in:
Pragmatic Software 2021-05-23 16:19:21 -07:00
parent cbc10751e0
commit 7134010f98
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
modules/bashfaq.pl vendored
View File

@ -7,7 +7,7 @@
my $query = "@ARGV";
print "Usage: faq <id or search text>\n" and exit 0 if not length $query;
my (%faq, $id, $rcpt, $output);
my (%faq, $match);
open(FILE, "< bashfaq.txt") or print "Can't open Bash FAQ: $!" and exit 1;
@ -26,23 +26,21 @@ if ($query =~ / >/) {
}
if (exists $faq{$query}) {
$id = $query;
$output = $faq{$id};
$match = $query;
} else {
foreach my $key (keys %faq) {
if ($faq{$key} =~ /$query/i) {
$id = $key;
$output = $faq{$key};
$match = $key;
last;
}
}
}
if (defined $output) {
$id = sprintf "%03d", $id;
$output = "https://mywiki.wooledge.org/BashFAQ/$id -- $output\n";
$output = "$rcpt: $output" if length $rcpt;
print $output;
if ($match) {
my $id = sprintf "%03d", $match;
my $output = "https://mywiki.wooledge.org/BashFAQ/$id -- $faq{$match}";
print "$rcpt: " if $rcpt;
print "$output\n";
} else {
print "No matches found at https://mywiki.wooledge.org/BashFAQ\n";
}