Server IP : 85.214.239.14 / Your IP : 3.145.85.123 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/3/root/proc/3/root/proc/2/root/usr/share/man-db/ |
Upload File : |
#! /usr/bin/perl -w # chconfig # Copyright (C) 1999 Fabrizio Polacco <fpolacco@prosa.it> # # This file is part of man-db. # # man-db is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # man-db is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with man-db; if not, write to the Free Software Foundation, # Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # tool to convert the man-db configuration file to the FHS. # it slurps the file in argument (default /etc/manpath.config) and, # unless exists in it a single line containing the keyword # NOFHS # it tries to make the changes to comply with FHS. push @ARGV, "/etc/manpath.config" unless @ARGV; print " Upgrading $ARGV[0]\n"; my $myum = 0; my $myusm = 0; my $mh = 0; my $mhug = 0; my $mhob = 0; my $mhos = 0; my $mbusm = 0; my $mbom = 0; push @IN, " # config file rewritten by tool chconfig\n"; while (<>) { warn " Respecting NOFHS directive.\n" and exit 0 if m,^\s*NOFHS\s*$,i; warn " Configuration file already processed.\n" and exit 0 if m/$IN[0]/; push @IN, $_; # first section $myum = $#IN if m,^MANDATORY_MANPATH\s+/usr/man\s*$, ; $myusm = $#IN if m,^MANDATORY_MANPATH\s+/usr/share/man\s*$, ; # second section $mhug = $#IN if m,^MANPATH_MAP\s+/usr/games\s+, ; $mhob = $#IN if m,^MANPATH_MAP\s+/opt/bin\s+, ; $mhos = $#IN if m,^MANPATH_MAP\s+/opt/sbin\s+, ; $mh = $#IN if m,^MANPATH_MAP\s+, ; # third section if ( m,^MANDB_MAP\s+(/\S+)(?:\s+.*)?$, ) { $w = $1 ; push @IN3, ( $w =~ s,/,,g) . " $_"; $mbusm = $#IN if m,^MANDB_MAP\s+/usr/share/man(?:\s+.*)?$, ; $mbom = $#IN if m,^MANDB_MAP\s+/opt/man(?:\s+.*)?$, ; } } # In the third section, if needed, add the lines # MANDB_MAP /usr/share/man /var/cache/man/share # MANDB_MAP /opt/man /var/cache/man/opt push @IN3, "3 MANDB_MAP\t/usr/share/man\t/var/cache/man/share\n" unless $mbusm; push @IN3, "2 MANDB_MAP\t/opt/man\t/var/cache/man/opt\n" unless $mbom; $saved = $ARGV . ".orig"; rename $ARGV, ( -e $saved ? $ARGV . "~" : $saved ); open OUT, ">$ARGV" or die "Cannot open output file $ARGV: $!\n"; foreach $j (0..$#IN) { $_ = $IN[$j]; # first section # MANDATORY_MANPATH section: # we have to add # MANDATORY_MANPATH /usr/share/man # just after the usual line # MANDATORY_MANPATH /usr/man # which we leave in place. if ( ! $myusm and $j == $myum ) { print OUT ; print OUT "MANDATORY_MANPATH\t\t\t/usr/share/man\n"; next; } # second section # MANPATH_MAP section: # we change all the manpath_elements from /usr/man to /usr/share/man. # we also add the lines # MANPATH_MAP /usr/games /usr/share/man # MANPATH_MAP /opt/bin /opt/man # MANPATH_MAP /opt/sbin /opt/man # if they were missing. if ( m,^MANPATH_MAP\s+, ) { s,(\s+)/usr/man\s*$,$1/usr/share/man\n,; print OUT ; # only after the last entry of the section! if ( $j == $mh ) { print OUT "MANPATH_MAP\t/usr/games\t\t/usr/share/man\n" unless $mhug; print OUT "MANPATH_MAP\t/opt/bin\t\t/opt/man\n" unless $mhob; print OUT "MANPATH_MAP\t/opt/sbin\t\t/opt/man\n" unless $mhos; } next; } # third section # MANDB_MAP section: # in the relative_catpath field, we change all occurrences of # /var/catman with /var/cache/man. # we also reorder the entries to have longer manpath before. if ( m,^MANDB_MAP\s+, ) { if ( @IN3 ) { foreach (reverse sort @IN3) { ($w,$t,$m,$c) = split; $c = "/var/cache/man/$c" if !$c or $c =~ m/^FSSTND$/i; $c =~ s,/var/catman,/var/cache/man,; print OUT $t, "\t", $m, "\t\t", $c, "\n"; } @IN3 = (); } next; } # default print OUT; } __END__