mktar.pl

   1 #! /usr/bin/perl -w
   2 #
   3 # create a tar ball snapshot from cvs repository.
   4 #
   5 # 2005-12-15, jw
   6 #
   7
   8 use Data::Dumper;
   9
  10 my $srcdir = 'src';
  11 my $version_file = "$srcdir/configure.ac";
  12 my %symlinks =
  13 (
  14   'FAQ' => 'doc/FAQ',
  15   'doc/install.sh' => '../install.sh'
  16 );
  17
  18 for my $l (keys %symlinks)
  19   {
  20     my $ll = "$srcdir/$l";
  21     next if -l $ll;
  22     print "replacing $ll with a symlink to $symlinks{$l}\n";
  23     unlink $ll;
  24     symlink $symlinks{$l}, $ll;
  25   }
  26
  27 my %version;
  28 open IN, "<", $version_file or die "unable to read $version_file: $!";
  29 $version = $1 if <IN> =~ /AC_INIT\(\[[^\]]+\],\[(\d+\.\d+\.\d+)\]/;
  30 close IN;
  31
  32 my $tmpdir = "/tmp/mktar-$^T";
  33 mkdir $tmpdir or die "cannot mkdir $tmpdir: $!";
  34 system "cp -a $srcdir $tmpdir" and die "'cp -a $srcdir $tmpdir' failed: $!";
  35 rename "$tmpdir/$srcdir", "$tmpdir/screen-$version" or die "rename to screen-$version failed: $!";
  36
  37 system "tar zcf - -C $tmpdir > screen-$version.tar.gz screen-$version";
  38 system "rm -rf $tmpdir";
  39
  40 print "screen-$version.tar.gz written.\n";