ROX-Filer/src/makedist

   1 #!/usr/bin/env perl
   2
   3 chdir "../..";
   4
   5 system "cvs rel .";
   6
   7 open(VER, "ROX-Filer/AppRun --version 2>&1 |") or die "open(): $!";
   8 $line = <VER>;
   9 close(VER);
  10
  11 $line =~ /(\d+)\.(\d+)\.(\d+)$/;
  12
  13 ($a, $b, $c) = ($1, $2, $3);
  14
  15 print "Check the manual is up-to-date!\n";
  16 print "Version $a.$b.$c --- OK?\n";
  17
  18 <STDIN> =~ /^[yY]/ or die "OK, fix the version number!\n";
  19
  20 system "cvs tag -F Release-$a-$b-$c";
  21
  22 chdir;
  23
  24 mkdir "rox-$a.$b.$c", 0777;
  25 chdir "rox-$a.$b.$c";
  26
  27 system "cvs export -r Release-$a-$b-$c rox";
  28 system "cd rox/ROX-Filer/src; autoconf";
  29 system "cp ~/Apps/ROX-Filer/Help/Manual.ps rox/ROX-Filer/Help";
  30 system "cp -r ~/Apps/ROX-Filer/Messages/*.gmo rox/ROX-Filer/Messages";
  31 system "tar czf rox-$a.$b.$c.tgz rox-$a.$b.$c";
  32 system "rm -r rox-$a.$b.$c";
  33
  34 print "OK, done\n";