bin/mksplitdist.perl

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