#! /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__
Mini Shell