50 lines
1.2 KiB
Perl
50 lines
1.2 KiB
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my $ver = shift or usage();
|
||
|
|
my $newver = shift or usage();
|
||
|
|
|
||
|
|
my @files = `find patches -name '*.patch'`;
|
||
|
|
for my $file (@files) {
|
||
|
|
chomp $file;
|
||
|
|
next unless $file =~ m{^patches/nginx-(?:$ver|$newver)-};
|
||
|
|
(my $newfile = $file) =~ s/nginx-$ver-/nginx-$newver-/g;
|
||
|
|
if ($newfile ne $file && !-f $newfile) {
|
||
|
|
my $cmd = "cp $file $newfile";
|
||
|
|
system($cmd) == 0
|
||
|
|
or die "failed run command $cmd.\n";
|
||
|
|
|
||
|
|
$cmd = "git add $newfile";
|
||
|
|
system($cmd) == 0
|
||
|
|
or die "failed run command $cmd.\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
my $cmd = "sed -i 's/1\.0\.5/1.0.6/g' $newfile";
|
||
|
|
system($cmd) == 0
|
||
|
|
or die "failed to run command $cmd.\n";
|
||
|
|
|
||
|
|
my $oldver_int = version_to_int($ver);
|
||
|
|
my $newver_int = version_to_int($newver);
|
||
|
|
|
||
|
|
warn "$oldver_int => $newver_int\n";
|
||
|
|
|
||
|
|
$cmd = "sed -i 's/$oldver_int/$newver_int/g' $newfile";
|
||
|
|
system($cmd) == 0
|
||
|
|
or die "failed to run command $cmd.\n";
|
||
|
|
|
||
|
|
print "$file => $newfile\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub usage {
|
||
|
|
die "Usage: $0 <old-version> <new-version>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub version_to_int {
|
||
|
|
my $ver = shift;
|
||
|
|
$ver =~ s/\.(\d+)/sprintf("%03d", $1)/eg;
|
||
|
|
$ver
|
||
|
|
}
|
||
|
|
|