7 open(VER
, "./AppRun --version 2>&1 |") or die "open(): $!";
11 $line =~ /(\d+)\.(\d+)\.(\d+)$/;
13 ($a, $b, $c) = ($1, $2, $3);
15 print "Check the manual is up-to-date!\n";
16 print "Version $a.$b.$c --- OK?\n";
18 <STDIN
> =~ /^[yY]/ or die "OK, fix the version number!\n";
20 system "cvs tag -f Release-$a-$b-$c";
24 mkdir "roxfiler-$a.$b.$c", 0777;
25 chdir "roxfiler-$a.$b.$c";
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";
33 system "tar czf roxfiler-$a.$b.$c.tgz roxfiler-$a.$b.$c";
34 system "rm -r roxfiler-$a.$b.$c";