admin/upd_jpman

   1 #!/usr/bin/perl
   2 #
   3 # Synopsis: upd_jpman (JMCVSROOT)
   4 #
   5 # リポジトリのルートを指定して実行すると、FreeBSD jpman の
   6 # アーカイブのルート (man[1-8] が並んでいるディレクトリ)
   7 # から、最新版をコピーするシェルスクリプトを stdout に吐く。
   8 #
   9 require 'jcode.pl';
  10 jcode::euc($_);
  11
  12 #
  13 # speciel rules
  14 #
  15 %rename_table = (
  16      'man1/g77.1' => 'man1/f77.1',
  17      'man1/flex.1' => 'man1/lex.1'
  18 );
  19
  20 unless ( -d $ARGV[0] ) {die "$ARGV[0] does not exist\n"};
  21 open (FD, "cat $ARGV[0]/manual/*/translation_list |");
  22 while (<FD>){
  23         /^ｃ/ || /^Ｃ/ || next;
  24         chomp;
  25         @l = split ":";
  26
  27         $src = "man$l[5]/$l[4].$l[5]";
  28         if ($rename_table{$src} ne undef) {$src = $rename_table{$src}};
  29
  30         $l[1] =~ s/ /_/g;
  31         $dst = "$ARGV[0]/manual/$l[1]/contrib/man$l[5]/$l[4].$l[5]";
  32
  33         print "cp -f $src $dst\n";
  34 }
  35 close(FD);
  36