| ... | ... |
@@ -183,4 +183,34 @@ EOS |
| 183 | 183 |
my $error = "Can't create pull_request table properly: $@"; |
| 184 | 184 |
die $error; |
| 185 | 185 |
} |
| 186 |
+ |
|
| 187 |
+ # Create pull_request_message table |
|
| 188 |
+ eval {
|
|
| 189 |
+ my $sql = <<"EOS"; |
|
| 190 |
+create table pull_request_message ( |
|
| 191 |
+ row_id integer primary key autoincrement, |
|
| 192 |
+ pull_request integer not null default 0, |
|
| 193 |
+ number integer not null default 0, |
|
| 194 |
+ unique(pull_request, number) |
|
| 195 |
+); |
|
| 196 |
+EOS |
|
| 197 |
+ $dbi->execute($sql); |
|
| 198 |
+ }; |
|
| 199 |
+ |
|
| 200 |
+ # Create pull_request_message columns |
|
| 201 |
+ my @pull_request_message_columns = ( |
|
| 202 |
+ "message not null default ''", |
|
| 203 |
+ "create_time integer default 0", |
|
| 204 |
+ "update_time integer default 0", |
|
| 205 |
+ ); |
|
| 206 |
+ for my $column (@pull_request_message_columns) {
|
|
| 207 |
+ eval { $dbi->execute("alter table pull_request_message add column $column") };
|
|
| 208 |
+ } |
|
| 209 |
+ |
|
| 210 |
+ # Check pull_request_message table |
|
| 211 |
+ eval { $dbi->select([qw/row_id pull_request number message create_time update_time/], table => 'pull_request_message') };
|
|
| 212 |
+ if ($@) {
|
|
| 213 |
+ my $error = "Can't create pull_request_message table properly: $@"; |
|
| 214 |
+ die $error; |
|
| 215 |
+ } |
|
| 186 | 216 |
} |