GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-19 10:29:30 +01:00
Code Issues Projects Releases Wiki Activity

Update man.pl to use newer manpage, and minor formatting fixes

Browse Source
This commit is contained in:
Pragmatic Software 2014-04-07 05:12:00 +00:00
parent 7367e4f18c
commit f347c6d1e3
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PBot/VERSION.pm
View File

@ -13,7 +13,7 @@ use warnings;
# These are set automatically by the build/commit script # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 541, BUILD_REVISION => 542,
BUILD_DATE => "2014-04-06", BUILD_DATE => "2014-04-06",
}; };

8
modules/man.pl
View File

@ -26,7 +26,7 @@ my $get_text;
do { do {
# $text = get("http://www.freebsd.org/cgi/man.cgi?query=$manpage&sektion=$section&apropos=0&manpath=FreeBSD+6.2-RELEASE&format=ascii"); # $text = get("http://www.freebsd.org/cgi/man.cgi?query=$manpage&sektion=$section&apropos=0&manpath=FreeBSD+6.2-RELEASE&format=ascii");
$get_text = get("http://www.freebsd.org/cgi/man.cgi?query=$manpage&sektion=$section&apropos=0&manpath=SuSE+Linux%2Fi386+8.2&format=ascii"); $get_text = get("http://www.freebsd.org/cgi/man.cgi?query=$manpage&sektion=$section&apropos=0&manpath=SuSE+Linux%2Fi386+11.3&format=ascii");
$text = substr($get_text, 0, 5000); $text = substr($get_text, 0, 5000);
@ -73,9 +73,9 @@ if($text =~ m/DESCRIPTION(.*?)$manpage(.*?)\./si) {
$foo =~ s/\s+/ /g; $foo =~ s/\s+/ /g;
$foo =~ s/^\s+//; $foo =~ s/^\s+//;
if($foo =~ /^NOTE/) { if($foo =~ /^NOTE/) {
$description = "$foo$manpage $bar"; $description = "$foo$manpage$bar";
} else { } else {
$description = "$manpage $bar"; $description = "$manpage$bar";
} }
$description =~ s/\-\s+//g; $description =~ s/\-\s+//g;
} }
@ -90,7 +90,7 @@ if ($get_text =~ m/^CONFORMING TO.*?^\s+The\s$manpage\s.*conforms to\s(.*?)$/ms)
} }
$result = ""; $result = "";
$result .= "$name - " if (not defined $includes); $result .= "$name - " if (not defined $includes and defined $name);
$result .= "Includes: $includes - " if (defined $includes); $result .= "Includes: $includes - " if (defined $includes);
$result .= "$prototype - " if (defined $prototype); $result .= "$prototype - " if (defined $prototype);