packaging/nightly-rsync

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 # This script expects the directory ~/samba-rsync-ftp to exist and to be a
   5 # copy of the /home/ftp/pub/rsync dir on samba.org.  It also requires a
   6 # pristine CVS checkout of rsync (don't use your normal rsync build dir
   7 # unless you're 100% sure that there are not unchecked-in changes).
   8 #
   9 # If this is run with -ctu, it will make an updated "nightly" tar file in
  10 # the nightly dir.  It will also remove any old tar files, regenerate the
  11 # HTML man pages in the nightly dir, and then rsync the changes to the
  12 # samba.org server.
  13
  14 use Getopt::Long;
  15 use Date::Format;
  16
  17 # Where the local copy of /home/ftp/pub/rsync/nightly should be updated.
  18 our $dest = $ENV{HOME} . '/samba-rsync-ftp/nightly';
  19 our $nightly_symlink = "$dest/rsync-HEAD.tar.gz";
  20
  21 our($make_tar, $upload, $help_opt);
  22 &Getopt::Long::Configure('bundling');
  23 &usage if !&GetOptions(
  24     'make-tar|t' => \$make_tar,
  25     'upload|u' => \$upload,
  26     'help|h' => \$help_opt,
  27 ) || $help_opt;
  28
  29 our $name = time2str('rsync-HEAD-%Y%m%d-%H%M%Z', time, 'GMT');
  30 our $ztoday = time2str('%d %b %Y', time);
  31 our $today = $ztoday;
  32
  33 die "$dest does not exist\n" unless -d $dest;
  34 die "There is no .git dir in the current directory.\n" unless -d '.git';
  35 die "There is no rsync checkout in the current directory.\n" unless -f 'rsyncd.conf.yo';
  36
  37 if ($make_tar) {
  38     open(IN, '-|', 'git-status') or die $!;
  39     my $status = join('', <IN>);
  40     close IN;
  41     die "The checkout is not clean:\n", $status unless $status =~ /\nnothing to commit \(working directory clean\)/;
  42     die "The checkout is not on the master branch.\n" unless $status =~ /^# On branch master\n/;
  43
  44     my @extra_files;
  45     open(IN, '<', 'Makefile.in') or die "Couldn't open Makefile.in: $!\n";
  46     while (<IN>) {
  47         if (s/^GENFILES=//) {
  48             while (s/\\$//) {
  49                 $_ .= <IN>;
  50             }
  51             @extra_files = split(' ', $_);
  52             last;
  53         }
  54     }
  55     close IN;
  56     map { s#^#$name/# } @extra_files;
  57
  58     print "Creating $name.tar.gz\n";
  59     system "make gen";
  60     symlink('.', $name);
  61     system "git-archive --format=tar --prefix=$name/ HEAD >$dest/$name.tar";
  62     system "fakeroot tar rf $dest/$name.tar @extra_files; gzip -9 $dest/$name.tar";
  63     unlink($name);
  64     unlink($nightly_symlink);
  65     symlink("$name.tar.gz", $nightly_symlink);
  66 }
  67
  68 foreach my $fn (qw( rsync.yo rsyncd.conf.yo )) {
  69     my $yo_tmp = "$dest/$fn";
  70     (my $html_fn = "$dest/$fn") =~ s/\.yo/.html/;
  71
  72     open(IN, '<', $fn) or die $!;
  73     undef $/; $_ = <IN>; $/ = "\n";
  74     close IN;
  75
  76     s/^(manpage\([^)]+\)\(\d+\)\()[^)]+(\).*)/$1$today$2/m;
  77     #s/^(This man ?page is current for version) \S+ (of rsync)/$1 $version $2/m;
  78
  79     open(OUT, '>', $yo_tmp) or die $!;
  80     print OUT $_;
  81     close OUT;
  82
  83     system 'yodl2html', '-o', $html_fn, $yo_tmp;
  84
  85     unlink($yo_tmp);
  86 }
  87
  88 chdir($dest) or die $!;
  89
  90 my $cnt = 0;
  91 open(PIPE, '-|', 'ls -1t rsync-HEAD-*') or die $!;
  92 while (<PIPE>) {
  93     chomp;
  94     next if $cnt++ < 10;
  95     unlink($_);
  96 }
  97 close PIPE;
  98
  99 system 'ls -ltr';
 100
 101 if ($upload) {
 102     my $opt = '';
 103     if (defined $ENV{RSYNC_PARTIAL_DIR}) {
 104         $opt = " -f 'R $ENV{RSYNC_PARTIAL_DIR}'";
 105     }
 106     system "rsync$opt -aviHP --delete-after . samba.org:/home/ftp/pub/rsync/nightly";
 107 }
 108
 109 exit;
 110
 111 sub usage
 112 {
 113     die <<EOT;
 114 Usage: nightly-rsync [OPTIONS]
 115
 116  -t, --make-tar    create a new tar file in $dest
 117  -u, --upload      upload the revised nightly dir to samba.org
 118  -h, --help        display this help
 119 EOT
 120 }