|
Packit |
c0e88f |
#!/usr/bin/env perl
|
|
Packit |
c0e88f |
|
|
Packit |
c0e88f |
use strict;
|
|
Packit |
c0e88f |
use warnings;
|
|
Packit |
c0e88f |
|
|
Packit |
c0e88f |
my $CACERT_PEM_FILE = "lib/Mozilla/CA/cacert.pem";
|
|
Packit |
c0e88f |
my $GIT_AUTHOR = 'Mozilla <mozilla@mozilla.org>';
|
|
Packit |
c0e88f |
|
|
Packit |
c0e88f |
run ("./mk-ca-bundle.pl", $CACERT_PEM_FILE);
|
|
Packit |
c0e88f |
|
|
Packit |
c0e88f |
system("git", "diff", "--exit-code", $CACERT_PEM_FILE) or exit;
|
|
Packit |
c0e88f |
|
|
Packit |
c0e88f |
run("git", "add", $CACERT_PEM_FILE);
|
|
Packit |
c0e88f |
|
|
Packit |
c0e88f |
my($y,$m,$d) = (gmtime)[5,4,3]; $y += 1900; $m++;
|
|
Packit |
c0e88f |
my $ver = sprintf "%04d%02d%02d", $y, $m, $d;
|
|
Packit |
c0e88f |
run("perl", "-pi", "-e", "s/(^our .VERSION = )'\\d+(.\\d+)?'/\$1'$ver'/", "lib/Mozilla/CA.pm");
|
|
Packit |
c0e88f |
run("git", "add", "lib/Mozilla/CA.pm");
|
|
Packit |
c0e88f |
|
|
Packit |
c0e88f |
run("git", "commit", "-m", "Update from Mozilla repository", "--author", $GIT_AUTHOR);
|
|
Packit |
c0e88f |
exit;
|
|
Packit |
c0e88f |
|
|
Packit |
c0e88f |
sub run {
|
|
Packit |
c0e88f |
my @argv = @_;
|
|
Packit |
c0e88f |
for (@argv) {
|
|
Packit |
c0e88f |
$_ = qq("$_") if /\s/;
|
|
Packit |
c0e88f |
}
|
|
Packit |
c0e88f |
print ">>> @argv\n";
|
|
Packit |
c0e88f |
system(@_);
|
|
Packit |
c0e88f |
die if $? != 0;
|
|
Packit |
c0e88f |
}
|