ROX-Filer/src/makedist

   1 #!/usr/bin/env perl
   2
   3 chdir "..";
   4
   5 system "cvs rel .";
   6
   7 open(VER, "./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 Release-$a-$b-$c";
  21
  22 chdir;
  23
  24 mkdir "roxfiler-$a.$b.$c", 0777;
  25 chdir "roxfiler-$a.$b.$c";
  26
  27 system "cvs export -r Release-$a-$b-$c ROX-Filer";
  28 system "cd ROX-Filer/src; autoconf";
  29 system "cp ~/Apps/ROX-Filer/Help/Manual.ps ROX-Filer/Help";
  30 system "cp -r ~/Projects/roxfiler-template/* .";
  31 system "cp -r ~/Apps/ROX-Filer/Messages/*.gmo ROX-Filer/Messages";
  32 chdir;
  33 system "tar czf roxfiler-$a.$b.$c.tgz roxfiler-$a-$b-$c";
  34 system "rm -r roxfiler-$a.$b.$c";
  35
  36 print "OK, done\n";