351 |
$dbh->do( qq{ |
$dbh->do( qq{ |
352 |
create table archive_backup |
create table archive_backup |
353 |
( |
( |
354 |
archive_id int not null references archive(id), |
archive_id int not null references archive(id) on delete cascade, |
355 |
backup_id int not null references backups(id), |
backup_id int not null references backups(id), |
356 |
primary key(archive_id, backup_id) |
primary key(archive_id, backup_id) |
357 |
); |
); |
358 |
}); |
}); |
359 |
|
|
360 |
print "creating indexes:"; |
print "creating indexes: "; |
361 |
|
|
362 |
foreach my $index (qw( |
foreach my $index (qw( |
363 |
hosts:name |
hosts:name |
375 |
)) { |
)) { |
376 |
do_index($index); |
do_index($index); |
377 |
} |
} |
378 |
|
|
379 |
|
print " creating sequence: "; |
380 |
|
foreach my $seq (qw/dvd_nr/) { |
381 |
|
print "$seq "; |
382 |
|
$dbh->do( qq{ CREATE SEQUENCE $seq } ); |
383 |
|
} |
384 |
|
|
385 |
|
|
386 |
print "...\n"; |
print "...\n"; |
387 |
|
|
388 |
$dbh->commit; |
$dbh->commit; |