Commit | Line | Data |
---|---|---|
920071e2 WD |
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 | |
34c3ca8f WD |
6 | # git checkout of rsync (feel free to use your normal rsync build dir as |
7 | # long as it doesn't have any uncommitted changes). | |
920071e2 WD |
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 | ||
7c21776e WD |
17 | # Where the local copy of /home/ftp/pub/rsync/dev/nightly should be updated. |
18 | our $dest = $ENV{HOME} . '/samba-rsync-ftp/dev/nightly'; | |
20c7d7fd | 19 | our $nightly_symlink = "$dest/rsync-HEAD.tar.gz"; |
920071e2 | 20 | |
20c7d7fd | 21 | our($make_tar, $upload, $help_opt); |
920071e2 WD |
22 | &Getopt::Long::Configure('bundling'); |
23 | &usage if !&GetOptions( | |
920071e2 WD |
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; | |
9217ce30 | 32 | our $gen_target = $upload ? 'gensend' : 'gen'; |
920071e2 | 33 | |
20c7d7fd WD |
34 | die "$dest does not exist\n" unless -d $dest; |
35 | die "There is no .git dir in the current directory.\n" unless -d '.git'; | |
36 | die "There is no rsync checkout in the current directory.\n" unless -f 'rsyncd.conf.yo'; | |
920071e2 WD |
37 | |
38 | if ($make_tar) { | |
6a2456c5 | 39 | open(IN, '-|', 'git status') or die $!; |
20c7d7fd WD |
40 | my $status = join('', <IN>); |
41 | close IN; | |
42 | die "The checkout is not clean:\n", $status unless $status =~ /\nnothing to commit \(working directory clean\)/; | |
43 | die "The checkout is not on the master branch.\n" unless $status =~ /^# On branch master\n/; | |
555a081f | 44 | system "make $gen_target" and die "make $gen_target failed!\n"; |
20c7d7fd | 45 | |
67b9b26f WD |
46 | my @extra_files; |
47 | open(IN, '<', 'Makefile.in') or die "Couldn't open Makefile.in: $!\n"; | |
48 | while (<IN>) { | |
49 | if (s/^GENFILES=//) { | |
50 | while (s/\\$//) { | |
51 | $_ .= <IN>; | |
52 | } | |
53 | @extra_files = split(' ', $_); | |
54 | last; | |
55 | } | |
56 | } | |
20c7d7fd | 57 | close IN; |
20c7d7fd | 58 | |
34c3ca8f WD |
59 | my $confversion; |
60 | open(IN, '<', 'configure.in') or die "Unable to open configure.in: $!\n"; | |
61 | while (<IN>) { | |
62 | if (/^RSYNC_VERSION=(.*)/) { | |
63 | $confversion = $1; | |
64 | last; | |
65 | } | |
66 | } | |
67 | close IN; | |
68 | die "Unable to find RSYNC_VERSION in configure.in\n" unless defined $confversion; | |
69 | ||
70 | open(IN, '<', 'OLDNEWS') or die "Unable to open OLDNEWS: $!\n"; | |
71 | $_ = <IN>; | |
72 | my($lastversion) = /(\d+\.\d+\.\d+)/; | |
73 | my $last_protocol_version; | |
74 | while (<IN>) { | |
75 | 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+)$/) { | |
76 | $last_protocol_version = $pver if $ver eq $lastversion; | |
77 | } | |
78 | } | |
79 | close IN; | |
80 | die "Unable to determine protocol_version for $lastversion.\n" unless defined $last_protocol_version; | |
81 | ||
82 | my($protocol_version,$subprotocol_version); | |
83 | open(IN, '<', 'rsync.h') or die "Unable to open rsync.h: $!\n"; | |
84 | while (<IN>) { | |
85 | if (/^#define\s+PROTOCOL_VERSION\s+(\d+)/) { | |
86 | $protocol_version = $1; | |
87 | } elsif (/^#define\s+SUBPROTOCOL_VERSION\s+(\d+)/) { | |
88 | $subprotocol_version = $1; | |
89 | } | |
90 | } | |
91 | close IN; | |
92 | die "Unable to determine the current PROTOCOL_VERSION.\n" unless defined $protocol_version; | |
93 | die "Unable to determine the current SUBPROTOCOL_VERSION.\n" unless defined $subprotocol_version; | |
94 | ||
95 | if ($confversion =~ /dev|pre/) { | |
96 | if ($last_protocol_version ne $protocol_version) { | |
97 | if ($subprotocol_version == 0) { | |
98 | die "SUBPROTOCOL_VERSION must not be 0 for a non-final release with a changed PROTOCOL_VERSION.\n"; | |
99 | } | |
100 | } else { | |
101 | if ($subprotocol_version != 0) { | |
102 | die "SUBPROTOCOL_VERSION must be 0 when the PROTOCOL_VERSION hasn't changed from the last release.\n"; | |
103 | } | |
104 | } | |
105 | } else { | |
106 | if ($subprotocol_version != 0) { | |
107 | die "SUBPROTOCOL_VERSION must be 0 for a final release.\n"; | |
108 | } | |
109 | } | |
110 | ||
20c7d7fd | 111 | print "Creating $name.tar.gz\n"; |
555a081f | 112 | system "rsync -a @extra_files $name/"; |
9217ce30 WD |
113 | system "git archive --format=tar --prefix=$name/ HEAD | tar xf -"; |
114 | system "support/git-set-file-times --prefix=$name/"; | |
115 | system "fakeroot tar czf $dest/$name.tar.gz $name; rm -rf $name"; | |
116 | ||
80aff93b WD |
117 | unlink($nightly_symlink); |
118 | symlink("$name.tar.gz", $nightly_symlink); | |
920071e2 WD |
119 | } |
120 | ||
920071e2 | 121 | foreach my $fn (qw( rsync.yo rsyncd.conf.yo )) { |
20c7d7fd WD |
122 | my $yo_tmp = "$dest/$fn"; |
123 | (my $html_fn = "$dest/$fn") =~ s/\.yo/.html/; | |
920071e2 | 124 | |
20c7d7fd | 125 | open(IN, '<', $fn) or die $!; |
920071e2 WD |
126 | undef $/; $_ = <IN>; $/ = "\n"; |
127 | close IN; | |
128 | ||
129 | s/^(manpage\([^)]+\)\(\d+\)\()[^)]+(\).*)/$1$today$2/m; | |
130 | #s/^(This man ?page is current for version) \S+ (of rsync)/$1 $version $2/m; | |
131 | ||
20c7d7fd | 132 | open(OUT, '>', $yo_tmp) or die $!; |
920071e2 WD |
133 | print OUT $_; |
134 | close OUT; | |
135 | ||
20c7d7fd | 136 | system 'yodl2html', '-o', $html_fn, $yo_tmp; |
920071e2 | 137 | |
20c7d7fd | 138 | unlink($yo_tmp); |
920071e2 WD |
139 | } |
140 | ||
20c7d7fd WD |
141 | chdir($dest) or die $!; |
142 | ||
085e2fd5 WD |
143 | my $cnt = 0; |
144 | open(PIPE, '-|', 'ls -1t rsync-HEAD-*') or die $!; | |
145 | while (<PIPE>) { | |
146 | chomp; | |
147 | next if $cnt++ < 10; | |
148 | unlink($_); | |
149 | } | |
150 | close PIPE; | |
151 | ||
920071e2 WD |
152 | system 'ls -ltr'; |
153 | ||
154 | if ($upload) { | |
230328a3 WD |
155 | my $opt = ''; |
156 | if (defined $ENV{RSYNC_PARTIAL_DIR}) { | |
157 | $opt = " -f 'R $ENV{RSYNC_PARTIAL_DIR}'"; | |
158 | } | |
7c21776e | 159 | system "rsync$opt -aviHP --delete-after . samba.org:/home/ftp/pub/rsync/dev/nightly"; |
920071e2 WD |
160 | } |
161 | ||
162 | exit; | |
163 | ||
164 | sub usage | |
165 | { | |
166 | die <<EOT; | |
167 | Usage: nightly-rsync [OPTIONS] | |
168 | ||
20c7d7fd | 169 | -t, --make-tar create a new tar file in $dest |
920071e2 WD |
170 | -u, --upload upload the revised nightly dir to samba.org |
171 | -h, --help display this help | |
172 | EOT | |
173 | } |