Return to sudo.man.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sudo / doc

Annotation of embedaddon/sudo/doc/sudo.man.pl, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl -p
        !             2: 
        !             3: BEGIN {
        !             4:     %tags = ( 'a', 'BA', 'c', 'LC', 'r', 'SL', 't', 'SL');
        !             5:     $cond = -1;
        !             6: }
        !             7: 
        !             8: # Initialize the numeric register we use for conditionals
        !             9: if ($cond == -1) {
        !            10:     $_ = ".nr SL \@SEMAN\@\n.nr BA \@BAMAN\@\n.nr LC \@LCMAN\@\n.nr PT \@password_timeout\@\n.\\\"\n$_";
        !            11:     $cond = 0;
        !            12: }
        !            13: 
        !            14: # Add conditionals
        !            15: if (/^\.IP.*-([acrt])/) {
        !            16:     $_ = ".if \\n($tags{$1} \\{\\\n$_";
        !            17:     $cond = 1;
        !            18: } elsif ($cond && /^\.(Sh|SS|IP|PP)/) {
        !            19:     $_ = "\\}\n$_";
        !            20:     $cond = 0;
        !            21: }
        !            22: 
        !            23: if (/-a.*auth_type/) {
        !            24:     $_ = ".if \\n($tags{'a'} $_";
        !            25: } elsif (/(-c.*class.*\||login_cap)/) {
        !            26:     $_ = ".if \\n($tags{'c'} $_";
        !            27: } elsif (/-r.*role.*-t.*type/) {
        !            28:     $_ = ".if \\n($tags{'r'} $_";
        !            29: }
        !            30: 
        !            31: # Fix up broken pod2man formatting of F<@foo@/bar>
        !            32: s/\\fI\\f(\(C)?I\@([^\@]*)\\fI\@/\\fI\@$2\@/g;
        !            33: 
        !            34: # Try to deal sensibly with password_timeout being set to 0 by default
        !            35: s/([^ ]*\@password_timeout\@[^ ]* minutes.$)/\n.ie \\n(PT $1\n.el unlimited./;