24 lines
555 B
Perl
24 lines
555 B
Perl
#!/usr/bin/perl -p
|
|
|
|
BEGIN {
|
|
%tags = ( 'a', '@BAMAN@', 'c', '@LCMAN@', 'r', '@SEMAN@', 't', '@SEMAN@');
|
|
$t = undef;
|
|
}
|
|
if (/^\.IP(.*-([acrt]))?/) {
|
|
$t = $1 ? $tags{$2} : undef;
|
|
} elsif (/-a.*auth_type/) {
|
|
$_ = $tags{'a'} . $_;
|
|
} elsif (/(-c.*class.*\||login_cap)/) {
|
|
$_ = $tags{'c'} . $_;
|
|
} elsif (/-r.*role.*-t.*type/) {
|
|
$_ = $tags{'r'} . $_;
|
|
}
|
|
|
|
# Fix up broken pod2man formatting of F<@foo@/bar>
|
|
s/\\fI\\f(\(C)?I\@([^\@]*)\\fI\@/\\fI\@$2\@/g;
|
|
|
|
# comment out Compile-time-specific lines in DESCRIPTION
|
|
if ($t) {
|
|
$_ = $t . $_;
|
|
}
|