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';
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) {
- open(IN, '-|', 'git-status') or die $!;
+ 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";
}
}
close IN;
- map { s#^#$name/# } @extra_files;
print "Creating $name.tar.gz\n";
- system "make gen";
- symlink('.', $name);
- system "git-archive --format=tar --prefix=$name/ HEAD >$dest/$name.tar";
- system "fakeroot tar rf $dest/$name.tar @extra_files; gzip -9 $dest/$name.tar";
- unlink($name);
+ 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);
}