Return to sudoers.man.pl CVS log

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

sudo

    1: #!/usr/bin/perl -p
    2: 
    3: BEGIN {
    4:     $cond = -1;
    5: }
    6: 
    7: # Initialize the numeric register we use for conditionals
    8: if ($cond == -1) {
    9:     $_ = ".nr SL \@SEMAN\@\n.nr BA \@BAMAN\@\n.nr LC \@LCMAN\@\n.\\\"\n$_";
   10:     $cond = 0;
   11: }
   12: 
   13: # Make SELinux_Spec conditional
   14: if (/(.*)SELinux_Spec\? (.*)$/) {
   15:     $_ = ".ie \\n(SL $_.el $1$2\n";
   16: } elsif (/^(.*SELinux_Spec ::=)/) {
   17:     $_ = ".if \\n(SL \\{\\\n$_";
   18: } elsif (/^(.*Tag_Spec ::=)/) {
   19:     $_ = "\\}\n$_";
   20: }
   21: 
   22: if (/^\.S[Sh] "SELinux_Spec"/) {
   23:     $_ = ".if \\n(SL \\{\\\n$_";
   24:     $cond = 1;
   25: } elsif (/^\.IP "(role|type)"/) {
   26:     $_ = ".if \\n(SL \\{\\\n$_";
   27:     $cond = 1;
   28: } elsif (/^\.IP "use_loginclass"/) {
   29:     $_ = ".if \\n(LC \\{\\\n$_";
   30:     $cond = 1;
   31: } elsif ($cond && /^\.(Sh|SS|IP|PP)/) {
   32:     $_ = "\\}\n$_";
   33:     $cond = 0;
   34: }
   35: 
   36: # Fix up broken pod2man formatting of F<@foo@/bar>
   37: s/\\fI\\f(\(C)?I\@([^\@]*)\\fI\@/\\fI\@$2\@/g;
   38: s/\\f\(\CW\@([^\@]*)\\fR\@/\@$1\@/g;
   39: #\f(CW@secure_path\fR@
   40: