ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Igor Nikolaev                        2:5030/266     07 Aug 2006  18:40:36
 To : All
 Subject : /etc/X11/fs/config
 -------------------------------------------------------------------------------- 
 

 Скрипт для наведения порядка с фонтами для xfs.
 Перебирает каталоги фонтов, указанные в $xfs_config и
 смотрит "чего там есть". Hичего в системе не меняет.
 
 #!/usr/bin/perl -w
 # Test xfs config for strange entries, by igor@spb.edu
 # afm, gsf, ttf, pfa, pfb, pfm, pcf - it is normal
 
 use strict;
 my $xfs_config = "/etc/X11/fs/config";
 
 open X, $xfs_config or die "Can't found $xfs_config $!";
 my $dirs;
 while (<X>) { chomp; s/[ \t]//g; last if /catalogue=(.*)/; }
 $dirs = $1;
 while (<X>) { chomp; s/[ \t]//g; next if /^$/; $dirs .= $_; last unless /,$/; }
 close X;
 
 foreach my $dir (split ',', $dirs) {
   opendir D, $dir or print "### $_: not found\n" and next;
   my @list = readdir D or print "### $_: can't read\n" and next;
   my (%t, %f);
   foreach my $n (@list) {
     next if $n =~ /^\./ or -d "$dir/$n";
     $n =~ /^fonts\.(.*)$/ and $f{$1} = 1, next;
     $n =~ /\.([\w\.]*)$/ and $t{$1}++, next;
     print "??? $dir/$n\n"
   }
   closedir D;
   my $s = sprintf "%3s", join '', map {substr $_, 0, 1} sort keys %f;
   print "$s $dir".(join '', map $t{$_}? " $_:$t{$_}":'', sort keys %t)."\n";
 }
 
 После чего mkfontdir или rm -rf делать самостоятельно.
 Пиво и комментарии принимаются с благодарностью :-)
 
 -- 
 И
 --- ifmail v.2.12.os.sensi
  * Origin: Скажем дружно: выпить нужно! (2:5030/266@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор