A helper file for cleanup.c.

[rsync/rsync.git] / packaging / nightly-rsync

diff --git a/packaging/nightly-rsync b/packaging/nightly-rsync
index 8e28b5b..58936a6 100755 (executable)
--- a/packaging/nightly-rsync
+++ b/packaging/nightly-rsync
@@ -18,6 +18,7 @@ use Date::Format;
 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-HEAD.tar.gz";
 
 our($cvs_update, $make_tar, $upload, $help_opt);
 &Getopt::Long::Configure('bundling');
@@ -54,7 +55,7 @@ if ($make_tar) {
        } 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";
            }
        }
     }
@@ -69,6 +70,8 @@ if ($make_tar) {
     }
     close TAR;
     rename($name, $unpacked) or die $!;
+    unlink($nightly_symlink);
+    symlink("$name.tar.gz", $nightly_symlink);
 }
 
 chdir($nightly) or die $!;
@@ -98,7 +101,7 @@ system 'ls -ltr';
 
 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;