git.gag.com Git - debian/sudo/blob - sudo.man.pl

   1 #!/usr/bin/perl -p
   2
   3 BEGIN {
   4     %tags = ( 'a', '@BAMAN@', 'c', '@LCMAN@', 'r', '@SEMAN@', 't', '@SEMAN@');
   5     $t = undef;
   6 }
   7 if (/^\.IP(.*-([acrt]))?/) {
   8     $t = $1 ? $tags{$2} : undef;
   9 } elsif (/-a.*auth_type/) {
  10     $_ = $tags{'a'} . $_;
  11 } elsif (/(-c.*class.*\||login_cap)/) {
  12     $_ = $tags{'c'} . $_;
  13 } elsif (/-r.*role.*-t.*type/) {
  14     $_ = $tags{'r'} . $_;
  15 }
  16
  17 # Fix up broken pod2man formatting of F<@foo@/bar>
  18 s/\\fI\\f(\(C)?I\@([^\@]*)\\fI\@/\\fI\@$2\@/g;
  19
  20 # comment out Compile-time-specific lines in DESCRIPTION
  21 if ($t) {
  22     $_ = $t . $_;
  23 }