ROX-Filer/src/makedist

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