Mercurial > hg > Members > anatofuz > slides

comparison lib/Slideshow/Util.pm @ 8:0b502eb897cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add message
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Thu, 25 Jan 2018 17:11:08 +0900
parents 7d3faa099bc6
children 967fe50f1ef4
comparison
equal deleted inserted replaced
7:7d3faa099bc6 8:0b502eb897cc
94 my ($dir,$target) = @_; 94 my ($dir,$target) = @_;
95 use Capture::Tiny; 95 use Capture::Tiny;
96 96
97 $target //= 'slide.md'; 97 $target //= 'slide.md';
98 98
99 say "[AUTO] BUILD at $dir/$target";
99 100
100 local $CWD = $dir; 101 local $CWD = $dir;
101 102
102 my ($stdout,$stderr,$exit) = capture { 103 my ($stdout,$stderr,$exit) = capture {
103 system(" slideshow build ${target} -t s6cr"); 104 system(" slideshow build ${target} -t s6cr");
109 } 110 }
110 111
111 112
112 sub upload { 113 sub upload {
113 114
115 say "[AUTO]hg addremove";
114 my ($stdout,$stderr,$exit) = capture { 116 my ($stdout,$stderr,$exit) = capture {
115 system("hg addremove"); 117 system("hg addremove");
116 system("hg add"); 118 system("hg add");
117 }; 119 };
118 120
119 unless($stderr){ 121 if ($stderr) {
120 say $stdout; 122 croak "didn't add";
121 } else {
122 croak "didn't commit";
123 } 123 }
124
125 say "[AUTO]hg commit -m auto-Update generated slides by script";
124 126
125 ($stdout,$stderr,$exit) = capture { 127 ($stdout,$stderr,$exit) = capture {
126 system('hg commit -m "auto-Update generated slides by script"'); 128 system('hg commit -m "auto-Update generated slides by script"');
127 }; 129 };
128 130
129 unless($stderr){ 131 if ($stderr) {
130 say "$stdout"; 132 say $stderr;
133 croak "didn't commit";
134 }
135
136 say "[AUTO]hg push";
137
138 ($stdout,$stderr,$exit) = capture {
131 system('hg push'); 139 system('hg push');
140 };
141
142 if ( $stderr ) {
143 say $stderr;
144 croak "didn't commit";
132 } else { 145 } else {
133 say $stderr; 146 say $stdout;
134 croak "didn't push";
135 } 147 }
136 } 148 }
137 149
138 1; 150 1;