ROX-Filer/src/makedist

   1 #!/usr/bin/env perl
   2
   3 chdir "../../../rox-stable";
   4
   5 system "cvs rel .";
   6
   7 open(VER, "ROX-Filer/AppRun --version 2>&1 |") or die "open(): $!";
   8 while (<VER>) {
   9   last if /^ROX-Filer/;
  10 }
  11 close(VER);
  12
  13 /(\d+)\.(\d+)\.(\d+)$/;
  14
  15 ($a, $b, $c) = ($1, $2, $3);
  16
  17 print "Check the manual is up-to-date!\n";
  18 print "Version $a.$b.$c --- OK?\n";
  19
  20 <STDIN> =~ /^[yY]/ or die "OK, fix the version number!\n";
  21
  22 system "cvs tag -F Release-$a-$b-$c";
  23 system "cd ROX-Filer/src/po; ./update-po; ./dist";
  24
  25 chdir;
  26
  27 mkdir "rox-$a.$b.$c", 0775 or warn "mkdir() failed: $!\n";
  28 chdir "rox-$a.$b.$c";
  29
  30 system "cvs -dtal197\@cvs.rox.sourceforge.net:/cvsroot/rox export -r Release-$a-$b-$c rox";
  31 #system "cvs -d:pserver:anonymous\@cvs.rox.sourceforge.net:/cvsroot/rox export -r Release-$a-$b-$c rox";
  32
  33 system "cd rox/ROX-Filer/src; autoconf; cd Docs; make";
  34 system "cp -r ~/Projects/rox-stable/ROX-Filer/Messages/*.gmo rox/ROX-Filer/Messages";
  35
  36 system "mv rox/* .";
  37 rmdir "rox";
  38
  39 system "find -name '.cvsignore' | xargs rm";
  40
  41 chdir "..";
  42 system "tar czf rox-$a.$b.$c.tgz rox-$a.$b.$c";
  43 system "rm -r rox-$a.$b.$c";
  44
  45 print "OK, done\n";