Fix rmkit man page

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@14233 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
bp-sawyers 2012-11-02 16:23:14 +00:00
parent afcce5d64e
commit 5a68f84799
2 changed files with 5 additions and 12 deletions

View File

@ -1,17 +1,12 @@
=head1 NAME
Usage:
rmkit [-h|--help]
rmkit [-f|--force] [-V|--verbose] <kitlist>]
B<addkit> - Remove Kits from xCAT
B<rmkit> - Remove Kits from xCAT
=head1 SYNOPSIS
B<addkit> [-h|--help]
B<rmkit> [-h|--help]
B<addkit> [-V|--verbose] [-f|--force] <kitlist>
B<rmkit> [-V|--verbose] [-f|--force] <kitlist>
=head1 DESCRIPTION

View File

@ -163,17 +163,15 @@ EOS1
# extract the summary for each cmd from its man page
foreach my $manpage (@_) {
my ($sectionnum) = $manpage =~ /\.(\d+)\.pod$/;
my ($cmd, $sectionnum) = $manpage =~ /([^\/]+)\.(\d+)\.pod$/;
# Suck in the whole file, then we will parse it.
open(MANPAGE, "$manpage") or die "Error: could not open $manpage for reading.\n";
my @contents = <MANPAGE>;
my $wholemanpage = join('', @contents);
close(MANPAGE);
# This regex matches: optional space, =head1, space, title, space, cmd, space, description, newline
my ($cmd, $description) = $wholemanpage =~ /^\s*=head1\s+\S+\s+(\S+)\s+(.+?)\n/si;
if (!defined($cmd)) { print "Warning: $manpage is not in a recognized structure. It will be ignored.\n"; next; }
my ($description) = $wholemanpage =~ /^\s*=head1\s+\S+\s+\S+\s+(.+?)\n/si;
if (!defined($description)) { print "Warning: $manpage does not have a description for $cmd. It will be ignored.\n"; next; }
$cmd =~ s/^.<(.+)>$/$1/; # if the cmd name has pod formatting around it, strip it off
$description =~ s/^-\s*//; # if the description has a leading hypen, strip it off
print FILE "\n=item L<$cmd($sectionnum)|$cmd.$sectionnum>\n\n".$description."\n";
}