Revision 00cfe3f2
Von Sven Schöling vor etwa 12 Jahren hinzugefügt
| scripts/dbupgrade2_tool.pl | ||
|---|---|---|
| 43 | 43 |
|
| 44 | 44 |
my ($opt_list, $opt_tree, $opt_rtree, $opt_nodeps, $opt_graphviz, $opt_help); |
| 45 | 45 |
my ($opt_user, $opt_apply, $opt_applied, $opt_unapplied, $opt_format, $opt_test_utf8); |
| 46 |
my ($opt_dbhost, $opt_dbport, $opt_dbname, $opt_dbuser, $opt_dbpassword); |
|
| 46 |
my ($opt_dbhost, $opt_dbport, $opt_dbname, $opt_dbuser, $opt_dbpassword, $opt_create, $opt_type); |
|
| 47 |
my ($opt_description, $opt_encoding, @opt_depends); |
|
| 47 | 48 |
|
| 48 | 49 |
our (%myconfig, $form, $user, $auth, $locale, $controls, $dbupgrader); |
| 49 | 50 |
|
| ... | ... | |
| 231 | 232 |
"\n\n"; |
| 232 | 233 |
} |
| 233 | 234 |
|
| 235 |
sub create_upgrade {
|
|
| 236 |
my (%params) = @_; |
|
| 237 |
|
|
| 238 |
my $filename = $params{filename};
|
|
| 239 |
my $dbupgrader = $params{dbupgrader};
|
|
| 240 |
my $type = $params{type} || '';
|
|
| 241 |
my $description = $params{description} || '';
|
|
| 242 |
my $encoding = $params{encoding} || 'utf-8';
|
|
| 243 |
my @depends = @{ $params{depends} };
|
|
| 244 |
|
|
| 245 |
if (!@depends) {
|
|
| 246 |
my @releases = grep { /^release_/ } keys %$controls;
|
|
| 247 |
@depends = ((sort @releases)[-1]); |
|
| 248 |
} |
|
| 249 |
|
|
| 250 |
my $comment; |
|
| 251 |
if ($type eq 'sql') {
|
|
| 252 |
$comment = '--'; |
|
| 253 |
} elsif ($type eq 'pl') {
|
|
| 254 |
$comment = '#'; |
|
| 255 |
} elsif (!$type) {
|
|
| 256 |
die 'Error: No --type was given but is required for --create.'; |
|
| 257 |
} else {
|
|
| 258 |
die 'Error: Unknown --type. Try "sql" or "pl".'; |
|
| 259 |
} |
|
| 260 |
|
|
| 261 |
my $full_filename = $dbupgrader->path . '/' . $filename . '.' . $type; |
|
| 262 |
|
|
| 263 |
die "file '$full_filename' already exists, aborting" if -f $full_filename; |
|
| 264 |
|
|
| 265 |
|
|
| 266 |
open my $fh, ">:utf8", $full_filename or die "can't open $full_filename"; |
|
| 267 |
print $fh "$comment \@tag: $filename\n"; |
|
| 268 |
print $fh "$comment \@description: $description\n"; |
|
| 269 |
print $fh "$comment \@depends: @depends\n"; |
|
| 270 |
print $fh "$comment \@encoding: $encoding\n"; |
|
| 271 |
close $fh; |
|
| 272 |
|
|
| 273 |
system("\$EDITOR $full_filename");
|
|
| 274 |
exit 0; |
|
| 275 |
} |
|
| 276 |
|
|
| 234 | 277 |
sub apply_upgrade {
|
| 235 | 278 |
my $name = shift; |
| 236 | 279 |
|
| ... | ... | |
| 399 | 442 |
"user=s" => \$opt_user, |
| 400 | 443 |
"apply=s" => \$opt_apply, |
| 401 | 444 |
"applied" => \$opt_applied, |
| 445 |
"create=s" => \$opt_create, |
|
| 446 |
"type=s" => \$opt_type, |
|
| 447 |
"encoding=s" => \$opt_encoding, |
|
| 448 |
"description=s" => \$opt_description, |
|
| 449 |
"depends=s" => \@opt_depends, |
|
| 402 | 450 |
"unapplied" => \$opt_unapplied, |
| 403 | 451 |
"test-utf8" => \$opt_test_utf8, |
| 404 | 452 |
"dbhost:s" => \$opt_dbhost, |
| ... | ... | |
| 420 | 468 |
dump_graphviz('file_name' => $opt_graphviz,
|
| 421 | 469 |
'format' => $opt_format) if (defined $opt_graphviz); |
| 422 | 470 |
dump_nodeps() if ($opt_nodeps); |
| 471 |
create_upgrade(filename => $opt_create, |
|
| 472 |
dbupgrader => $dbupgrader, |
|
| 473 |
type => $opt_type, |
|
| 474 |
description => $opt_description, |
|
| 475 |
encoding => $opt_encoding, |
|
| 476 |
depends => \@opt_depends) if ($opt_create); |
|
| 423 | 477 |
|
| 424 | 478 |
if ($opt_user) {
|
| 425 | 479 |
$auth = SL::Auth->new(); |
| ... | ... | |
| 456 | 510 |
dump_unapplied(); |
| 457 | 511 |
} |
| 458 | 512 |
|
| 513 |
|
|
| 459 | 514 |
if ($opt_test_utf8) {
|
| 460 | 515 |
$form->error("--test-utf8 used but no database name given with --dbname.") if (!$opt_dbname);
|
| 461 | 516 |
|
Auch abrufbar als: Unified diff
dbupgrade script kann jetzt auch upgrade scripte erzeugen.
scripts/dbupgrade2_tool.pl --create=<tag> --type=<sql|pl>
speichert die Datei unter dem richtigen Namen, und öffnet sie in $EDITOR