1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5
6my $CACERT_PEM_FILE = "lib/Mozilla/CA/cacert.pem";
7my $GIT_AUTHOR = 'Mozilla <mozilla@mozilla.org>';
8
9run ("./mk-ca-bundle.pl", $CACERT_PEM_FILE);
10
11system("git", "diff", "--exit-code", $CACERT_PEM_FILE) or exit;
12
13run("git", "add", $CACERT_PEM_FILE);
14
15my($y,$m,$d) = (gmtime)[5,4,3]; $y += 1900; $m++;
16my $ver = sprintf "%04d%02d%02d", $y, $m, $d;
17run("perl", "-pi", "-e", "s/(^our .VERSION = )'\\d+(.\\d+)?'/\$1'$ver'/", "lib/Mozilla/CA.pm");
18run("git", "add", "lib/Mozilla/CA.pm");
19
20run("git", "commit", "-m", "Update from Mozilla repository", "--author", $GIT_AUTHOR);
21
22run("perl", "Makefile.PL");
23print "Don't forget to update the Changes file";
24
25exit;
26
27sub run {
28    my @argv = @_;
29    for (@argv) {
30	$_ = qq("$_") if /\s/;
31    }
32    print ">>> @argv\n";
33    system(@_);
34    die if $? != 0;
35}
36