home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-2 / Inter.Net 55-2.iso / Mandrake / mdkinst / usr / bin / perl-install / ForMakefile.pm < prev    next >
Encoding:
Text File  |  2000-01-12  |  922 b   |  39 lines
  1. use lib qw(. c c/blib/arch);
  2.  
  3. use lang;
  4. use keyboard;
  5.  
  6. my $prefix = $ENV{DEST};
  7.  
  8. sub md { if (-d $_[0]) { `install -d $prefix/$_[0]`; 1 } else { 0 } }
  9. sub install { `cp -f $_[0] $prefix/$_[0]`; die if $? }
  10.  
  11. sub locale {
  12.     foreach (map { lang::text2lang($_) } lang::list()) {
  13.     md(my $d = "/usr/share/locale/$_") or next;
  14.     foreach (<$d/*>) {
  15.         install $_ if -f $_;
  16.     }
  17.     {
  18.         md(my $lc = "$d/LC_MESSAGES") or next;
  19.         $lc = "$lc/SYS_LC_MESSAGES";
  20.         install $lc if -f $lc;
  21.     }
  22.     }
  23.     my $Xlocale = "/usr/X11R6/lib/X11/locale";
  24.     foreach ('C', 'iso8859-1', 'koi8-r', 'iso8859-9', map { lang::text2lang($_) } lang::list()) {
  25.     md(my $d = "$Xlocale/$_") or next;
  26.     $d = "$d/XLC_LOCALE";
  27.     install $d if -f $d;
  28.     }
  29.     install "$Xlocale/locale.alias";
  30.     install "$Xlocale/locale.dir";
  31. }
  32.  
  33. sub xmodmap {
  34.     md(my $d = "/usr/share/xmodmap") or return;
  35.     install "$d/xmodmap.$_" foreach keyboard::xmodmaps();
  36. }
  37.  
  38. 1;
  39.