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';
+our $nightly_symlink = "$nightly/rsync-nightly.tar.gz";
our($cvs_update, $make_tar, $upload, $help_opt);
&Getopt::Long::Configure('bundling');
} 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";
+ print "*** Not up-to-date: $dir$1\n";
}
}
}
}
close TAR;
rename($name, $unpacked) or die $!;
+ unlink($nightly_symlink);
+ symlink("$name.tar.gz", $nightly_symlink);
}
chdir($nightly) or die $!;
if ($upload) {
$ENV{RSYNC_PARTIAL_DIR} = ''; # The rsync on samba.org is OLD.
- system "rsync -aviHP --delete . samba.org:/home/ftp/pub/rsync/nightly";
+ system "rsync -aviHP --delete-after . samba.org:/home/ftp/pub/rsync/nightly";
}
exit;