# This script expects the directory ~/samba-rsync-ftp to exist and to be a
# copy of the /home/ftp/pub/rsync dir on samba.org. It also requires a
-# pristine CVS checkout of rsync (don't use your normal rsync build dir
-# unless you're 100% sure that there are not unchecked-in changes).
+# git checkout of rsync (feel free to use your normal rsync build dir as
+# long as it doesn't have any uncommitted changes).
#
# If this is run with -ctu, it will make an updated "nightly" tar file in
# the nightly dir. It will also remove any old tar files, regenerate the
use Getopt::Long;
use Date::Format;
-# Choose any dir where a pristine rsync has been checked out of CVS.
-our $unpacked = $ENV{HOME} . '/release/nightly';
-# Where the local copy of /home/ftp/pub/rsync/nightly should be updated.
-our $nightly = $ENV{HOME} . '/samba-rsync-ftp/nightly';
+# Where the local copy of /home/ftp/pub/rsync/dev/nightly should be updated.
+our $dest = $ENV{HOME} . '/samba-rsync-ftp/dev/nightly';
+our $nightly_symlink = "$dest/rsync-HEAD.tar.gz";
-our($cvs_update, $make_tar, $upload, $help_opt);
+our($make_tar, $upload, $help_opt);
&Getopt::Long::Configure('bundling');
&usage if !&GetOptions(
- 'cvs-update|c' => \$cvs_update,
'make-tar|t' => \$make_tar,
'upload|u' => \$upload,
'help|h' => \$help_opt,
our $name = time2str('rsync-HEAD-%Y%m%d-%H%M%Z', time, 'GMT');
our $ztoday = time2str('%d %b %Y', time);
our $today = $ztoday;
+our $gen_target = $upload ? 'gensend' : 'gen';
-chdir($unpacked) or die $!;
-
-if ($cvs_update) {
- print "Updating from cvs...\n";
- system 'cvs -q up' and die $!;
-}
+die "$dest does not exist\n" unless -d $dest;
+die "There is no .git dir in the current directory.\n" unless -d '.git';
+die "There is no rsync checkout in the current directory.\n" unless -f 'rsyncd.conf.yo';
if ($make_tar) {
- print "Generating list of active CVS files...\n";
- my($dir, @files);
- open(CVS, '-|', 'cvs status 2>&1') or die $!;
- while (<CVS>) {
- if (/^cvs status: Examining (.*)/) {
- if ($1 eq '.') {
- $dir = '';
- } else {
- push(@files, $1);
- $dir = $1 . '/';
- }
- } elsif (/^File: (.*?)\s+Status: (.*)/ && $1 ne '.cvsignore') {
- push(@files, $dir . $1);
- if ($2 ne 'Up-to-date') {
- print "*** Not up-to-date: $dir$1\n";
+ open(IN, '-|', 'git status') or die $!;
+ my $status = join('', <IN>);
+ close IN;
+ die "The checkout is not clean:\n", $status unless $status =~ /\nnothing to commit \(working directory clean\)/;
+ die "The checkout is not on the master branch.\n" unless $status =~ /^# On branch master\n/;
+ system "make $gen_target" and die "make $gen_target failed!\n";
+
+ my @extra_files;
+ open(IN, '<', 'Makefile.in') or die "Couldn't open Makefile.in: $!\n";
+ while (<IN>) {
+ if (s/^GENFILES=//) {
+ while (s/\\$//) {
+ $_ .= <IN>;
}
+ @extra_files = split(' ', $_);
+ last;
+ }
+ }
+ close IN;
+
+ my $confversion;
+ open(IN, '<', 'configure.in') or die "Unable to open configure.in: $!\n";
+ while (<IN>) {
+ if (/^RSYNC_VERSION=(.*)/) {
+ $confversion = $1;
+ last;
}
}
- close CVS;
-
- print "Creating $unpacked/$name.tar.gz\n";
- chdir('..') or die $!;
- rename($unpacked, $name) or die $!;
- open(TAR, '|-', "fakeroot tar --files-from=- --no-recursion --mode=g-w -czf $nightly/$name.tar.gz $name") or die $!;
- foreach (@files) {
- print TAR "$name/$_\n";
+ close IN;
+ die "Unable to find RSYNC_VERSION in configure.in\n" unless defined $confversion;
+
+ open(IN, '<', 'OLDNEWS') or die "Unable to open OLDNEWS: $!\n";
+ $_ = <IN>;
+ my($lastversion) = /(\d+\.\d+\.\d+)/;
+ my $last_protocol_version;
+ while (<IN>) {
+ if (my($ver,$pdate,$pver) = /^\s+\S\S\s\S\S\S\s\d\d\d\d\s+(\d+\.\d+\.\d+)\s+(\d\d \w\w\w \d\d\d\d\s+)?(\d+)$/) {
+ $last_protocol_version = $pver if $ver eq $lastversion;
+ }
+ }
+ close IN;
+ die "Unable to determine protocol_version for $lastversion.\n" unless defined $last_protocol_version;
+
+ my($protocol_version,$subprotocol_version);
+ open(IN, '<', 'rsync.h') or die "Unable to open rsync.h: $!\n";
+ while (<IN>) {
+ if (/^#define\s+PROTOCOL_VERSION\s+(\d+)/) {
+ $protocol_version = $1;
+ } elsif (/^#define\s+SUBPROTOCOL_VERSION\s+(\d+)/) {
+ $subprotocol_version = $1;
+ }
+ }
+ close IN;
+ die "Unable to determine the current PROTOCOL_VERSION.\n" unless defined $protocol_version;
+ die "Unable to determine the current SUBPROTOCOL_VERSION.\n" unless defined $subprotocol_version;
+
+ if ($confversion =~ /dev|pre/) {
+ if ($last_protocol_version ne $protocol_version) {
+ if ($subprotocol_version == 0) {
+ die "SUBPROTOCOL_VERSION must not be 0 for a non-final release with a changed PROTOCOL_VERSION.\n";
+ }
+ } else {
+ if ($subprotocol_version != 0) {
+ die "SUBPROTOCOL_VERSION must be 0 when the PROTOCOL_VERSION hasn't changed from the last release.\n";
+ }
+ }
+ } else {
+ if ($subprotocol_version != 0) {
+ die "SUBPROTOCOL_VERSION must be 0 for a final release.\n";
+ }
}
- close TAR;
- rename($name, $unpacked) or die $!;
-}
-chdir($nightly) or die $!;
+ print "Creating $name.tar.gz\n";
+ system "rsync -a @extra_files $name/";
+ system "git archive --format=tar --prefix=$name/ HEAD | tar xf -";
+ system "support/git-set-file-times --prefix=$name/";
+ system "fakeroot tar czf $dest/$name.tar.gz $name; rm -rf $name";
+
+ unlink($nightly_symlink);
+ symlink("$name.tar.gz", $nightly_symlink);
+}
foreach my $fn (qw( rsync.yo rsyncd.conf.yo )) {
- my $html_fn = $fn;
- $html_fn =~ s/\.yo/.html/;
+ my $yo_tmp = "$dest/$fn";
+ (my $html_fn = "$dest/$fn") =~ s/\.yo/.html/;
- open(IN, '<', "$unpacked/$fn") or die $!;
+ open(IN, '<', $fn) or die $!;
undef $/; $_ = <IN>; $/ = "\n";
close IN;
s/^(manpage\([^)]+\)\(\d+\)\()[^)]+(\).*)/$1$today$2/m;
#s/^(This man ?page is current for version) \S+ (of rsync)/$1 $version $2/m;
- open(OUT, '>', $fn) or die $!;
+ open(OUT, '>', $yo_tmp) or die $!;
print OUT $_;
close OUT;
- system "yodl2html -o $html_fn $fn";
+ system 'yodl2html', '-o', $html_fn, $yo_tmp;
+
+ unlink($yo_tmp);
+}
+
+chdir($dest) or die $!;
- unlink($fn);
+my $cnt = 0;
+open(PIPE, '-|', 'ls -1t rsync-HEAD-*') or die $!;
+while (<PIPE>) {
+ chomp;
+ next if $cnt++ < 10;
+ unlink($_);
}
+close PIPE;
-system "find . -name 'rsync-HEAD-*' -daystart -mtime +14 | xargs rm -f";
system 'ls -ltr';
if ($upload) {
- $ENV{RSYNC_PARTIAL_DIR} = ''; # The rsync on samba.org is OLD.
- system "rsync -aviHP --delete-after . samba.org:/home/ftp/pub/rsync/nightly";
+ my $opt = '';
+ if (defined $ENV{RSYNC_PARTIAL_DIR}) {
+ $opt = " -f 'R $ENV{RSYNC_PARTIAL_DIR}'";
+ }
+ system "rsync$opt -aviHP --delete-after . samba.org:/home/ftp/pub/rsync/dev/nightly";
}
exit;
die <<EOT;
Usage: nightly-rsync [OPTIONS]
- -c, --cvs-update update $unpacked via CVS.
- -t, --make-tar create a new tar file in $nightly
+ -t, --make-tar create a new tar file in $dest
-u, --upload upload the revised nightly dir to samba.org
-h, --help display this help
EOT