X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/798a9e4e744b5323a990c4bfbd0e76ba282efdb4..c9604e2115c28e7c0cf649f15f332e2911a47931:/packaging/release-rsync diff --git a/packaging/release-rsync b/packaging/release-rsync index b0c9f456..6fa42137 100755 --- a/packaging/release-rsync +++ b/packaging/release-rsync @@ -7,6 +7,7 @@ use strict; # ~/samba-rsync-ftp dir will be ready to be rsynced to samba.org. use Cwd; +use Getopt::Long; use Term::ReadKey; use Date::Format; @@ -14,6 +15,13 @@ my $dest = $ENV{HOME} . '/samba-rsync-ftp'; my $passfile = $ENV{HOME} . '/.rsyncpass'; my $path = $ENV{PATH}; +&Getopt::Long::Configure('bundling'); +&usage if !&GetOptions( + 'branch|b=s' => \( my $master_branch = 'master' ), + 'help|h' => \( my $help_opt ), +); +&usage if $help_opt; + my $now = time; my $cl_today = time2str('* %a %b %d %Y', $now); my $year = time2str('%Y', $now); @@ -56,7 +64,7 @@ open(IN, '-|', 'git status') or die $!; my $status = join('', ); 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/; +die "The checkout is not on the $master_branch branch.\n" unless $status =~ /^# On branch $master_branch\n/; my $confversion; open(IN, '<', 'configure.in') or die $!; @@ -151,7 +159,8 @@ $_ = ; (my $finalversion = $version) =~ s/pre\d+//; my %specvars = ( 'Version:' => $finalversion, 'Release:' => $release, - '%define fullversion' => "\%{version}$pre", 'Released' => "$version." ); + '%define fullversion' => "\%{version}$pre", 'Released' => "$version.", + '%define srcdir' => $srcdir ); my @tweak_files = ( glob('packaging/*.spec'), glob('packaging/*/*.spec'), glob('*.yo'), qw( configure.in rsync.h NEWS OLDNEWS options.c ) ); @@ -220,7 +229,7 @@ print $break, <; system "git commit -a -m 'Preparing for release of $version'" and exit 1; print "Updating files in \"patches\" dir ...\n"; -system "support/patch-update"; +system "packaging/patch-update --branch=$master_branch"; if ($ans =~ /^y/i) { print "\nVisiting all \"patch/*\" branches ...\n"; - system "support/patch-update --shell"; + system "packaging/patch-update --branch=$master_branch --shell"; } print $break, <