bin/mksplitdist.perl

   1 #!/usr/bin/perl
   2 #
   3 # mksplitdist.perl:
   4 #   $DISTROOT を見て package 毎に分割された tar ball を作成する
   5 #   スクリプト。
   6 #   $DISTROOT は MKDIST, MKSO された後の directory を想定している
   7 #
   8 # 起動例
   9 #   mksplitdist.perl /var/tmp/JM/man-pages-ja-19991123
  10 #
  11
  12 # get arg
  13 #
  14 if (@ARGV < 1) {die "$0 distroot\n"};
  15
  16 $DISTROOT = $ARGV[0];
  17 unless (-d $DISTROOT) {die "$DISTROOT does not exist\n"};
  18
  19 unless($DISTROOT=~/^(.*)\/man-pages-ja-([0-9]+)$/){
  20         die "$DISTROOT don't have date field.\n";
  21 }
  22 $dir=$1;
  23 $date=$2;
  24
  25 chdir($dir);
  26
  27 open(FL,"ls $DISTROOT/manual|");
  28 while($tmp=<FL>){
  29         $tmp=~s/[\r\n]//g;
  30         $dist="man-pages-ja-$tmp-$date";
  31         system("rm -rf $dist");
  32         system("mkdir $dist");
  33         system("cp -pr $DISTROOT/manual/$tmp/* $dist");
  34         system("cp -pr $DISTROOT/README $dist");
  35         system("tar czf $dist.tar.gz $dist");
  36 }
  37 close(FL);