blob: 285ff7a0e16b3efc864db6958d7930210b7fd511 (
plain)
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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/usr/bin/perl -w
use strict;
use vars qw($DEBUG $DRY_RUN);
use Term::ReadKey;
use DBIx::DBSchema 0.27;
use FS::UID qw(adminsuidsetup checkeuid datasrc ); #getsecrets);
use FS::Schema qw( dbdef dbdef_dist reload_dbdef );
$DEBUG = 1;
$DRY_RUN = 0;
die "Not running uid freeside!" unless checkeuid();
my $user = shift or die &usage;
my $dbh = adminsuidsetup($user);
#needs to match FS::Schema...
my $dbdef_file = "/usr/local/etc/freeside/dbdef.". datasrc;
dbdef_create($dbh, $dbdef_file);
reload_dbdef($dbdef_file);
foreach my $table ( dbdef_dist->tables ) {
if ( dbdef->table($table) ) {
warn "$table exists\n" if $DEBUG > 1;
foreach my $column ( dbdef_dist->table($table)->columns ) {
if ( dbdef->table($table)->column($column) ) {
warn " $table.$column exists\n" if $DEBUG > 2;
} else {
if ( $DEBUG ) {
print STDERR "column $table.$column does not exist. create?";
next unless yesno();
}
foreach my $statement (
dbdef_dist->table($table)->column($column)->sql_add_column( $dbh )
) {
warn "$statement\n" if $DEBUG || $DRY_RUN;
unless ( $DRY_RUN ) {
$dbh->do( $statement)
or die "CREATE error: ". $dbh->errstr. "\nexecuting: $statement";
}
}
}
}
#should eventually check & create missing indices
#should eventually drop columns not in dbdef_dist...
} else {
if ( $DEBUG ) {
print STDERR "table $table does not exist. create?";
next unless yesno();
}
foreach my $statement (
dbdef_dist->table($table)->sql_create_table( $dbh )
) {
warn "$statement\n" if $DEBUG || $DRY_RUN;
unless ( $DRY_RUN ) {
$dbh->do( $statement)
or die "CREATE error: ". $dbh->errstr. "\nexecuting: $statement";
}
}
}
}
# should eventually drop tables not in dbdef_dist too i guess...
$dbh->commit or die $dbh->errstr;
dbdef_create($dbh, $dbdef_file);
$dbh->disconnect or die $dbh->errstr;
###
my $all = 0;
sub yesno {
print STDERR ' [yes/no/all] ';
if ( $all ) {
warn "yes\n";
return 1;
} else {
while ( 1 ) {
ReadMode 4;
my $x = lc(ReadKey);
ReadMode 0;
if ( $x eq 'n' ) {
warn "no\n";
return 0;
} elsif ( $x eq 'y' ) {
warn "yes\n";
return 1;
} elsif ( $x eq 'a' ) {
warn "yes\n";
$all = 1;
return 1;
}
}
}
}
sub dbdef_create { # reverse engineer the schema from the DB and save to file
my( $dbh, $file ) = @_;
my $dbdef = new_native DBIx::DBSchema $dbh;
$dbdef->save($file);
}
sub usage {
die "Usage:\n freeside-upgrade user\n";
}
1;
|
