1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
#!/usr/bin/env perl
use v5.14;
use strict;
use warnings;
use utf8;
use open qw/:std :utf8/;
use Cwd qw/getcwd realpath/;
use File::Temp qw/tempdir/;
use List::Util qw/first/;
use Getopt::Long;
# system() wrapper to die with an error if a command fails.
sub _try_run {
my @command = @_;
say "> Running: @command";
system(@command);
die "Error running '@command" if $?;
}
# Quick replacement for File::pushd; see LocalGuard at end of this file.
sub _pushd {
my $dir = shift;
my $cwd = getcwd();
my $guard = LocalGuard->new( sub { chdir($cwd) or die "$!" } );
chdir($dir) or die $!;
return $guard;
}
sub _hugo_rsync {
my $tmpdir = shift;
_try_run( qw{rsync -Cavz --delete --exclude=/api --exclude=/.git* --exclude=CNAME --exclude=sitemap.xml build/hugo/},
$tmpdir );
}
sub _doxygen_rsync {
my $tmpdir = shift;
my @filters = ( '- /current', '- /mongocxx-v3', '- /legacy-v1' );
_try_run(
qw{rsync -Cavz},
( map { ; '--filter' => $_ } @filters ),
"build/docs/api/", "$tmpdir/api/"
);
$ENV{APIDOCSPATH} = "$tmpdir/api";
_try_run(qw{etc/patch-apidocs-index-pages.py});
_try_run(qw{etc/patch-apidocs-current-redirects.py});
}
sub main {
die "Must run from top of the repo\n" unless -d ".git";
my ( $do_hugo, $do_doxygen );
GetOptions( hugo => \$do_hugo, doxygen => \$do_doxygen );
my $source_repo = shift @ARGV;
die "Usage: $0 <--hugo|--doxygen> <repo source>\n"
unless defined $source_repo && ( $do_hugo || $do_doxygen );
my $orig_dir = getcwd();
# Create tempdir to store copy of repo.
_try_run("mkdir", "-p", "build/tmp-repo");
my $tmp = tempdir( DIR => "build/tmp-repo", CLEANUP => 1 );
my $tmpdir = realpath("$tmp");
# Clone current repo to tempdir and checkout gh-pages branch.
_try_run( qw/git clone --filter=blob:none/, $source_repo, $tmpdir );
{
my $guard = _pushd($tmpdir);
_try_run(qw/git checkout gh-pages/);
}
# rsync files to target repo pages based on command line flags.
$do_hugo ? _hugo_rsync($tmpdir) : _doxygen_rsync($tmpdir);
# Check into git and deploy
COMMIT: {
my $guard = _pushd($tmpdir);
# Check in changes -- wow this is so insanely destructive; good
# thing it's a version control system!
_try_run(qw/git add --all ./);
_try_run(qw/git status/);
# Can exit if no changes were made.
if ( eval { _try_run(qw/git diff-index --quiet --cached HEAD/); 1 } ) {
say "No changes to deploy.";
}
else {
_try_run( qw/git commit -m/,
$do_hugo ? "Update hugo files" : "Update doxygen files" );
_try_run(qw/git push origin gh-pages/);
}
}
}
main();
exit 0;
# Quick replacement for Scope::Guard.
package LocalGuard;
sub new {
my ( $class, $code ) = @_;
return bless { demolish => $code }, $class;
}
sub DESTROY {
my $self = shift;
$self->{demolish}->() if $self->{demolish};
}
|
