Revision 7c931a23
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
scripts/rose_auto_create_model.pl | ||
---|---|---|
162 | 162 |
GetOptions( |
163 | 163 |
'login|user=s' => \ my $login, |
164 | 164 |
all => \ my $all, |
165 |
sugar => \ my $sugar, |
|
166 | 165 |
'no-commit|dry-run' => \ my $nocommit, |
167 | 166 |
help => sub { pod2usage(verbose => 99, sections => 'NAME|SYNOPSIS|OPTIONS') }, |
168 | 167 |
verbose => \ my $verbose, |
... | ... | |
170 | 169 |
); |
171 | 170 |
|
172 | 171 |
$options->{login} = $login if $login; |
173 |
$options->{sugar} = $sugar; |
|
174 | 172 |
$options->{all} = $all; |
175 | 173 |
$options->{nocommit} = $nocommit; |
176 | 174 |
$options->{verbose} = $verbose; |
... | ... | |
205 | 203 |
|
206 | 204 |
sub make_tables { |
207 | 205 |
my @tables; |
208 |
if ($config{all} || $config{sugar}) { |
|
209 |
my ($type, $prefix) = $config{sugar} ? ('SUGAR', 'sugar_') : ('LXOFFICE', ''); |
|
210 |
my $db = SL::DB::create(undef, $type); |
|
211 |
@tables = |
|
212 |
map { $package_names{$type}->{$_} ? "$_=" . $package_names{$type}->{$_} : $prefix ? "$_=$prefix$_" : $_ } |
|
213 |
grep { my $table = $_; !any { $_ eq $table } @{ $blacklist{$type} } } |
|
206 |
if ($config{all}) { |
|
207 |
my $db = SL::DB::create(undef, 'LXOFFICE'); |
|
208 |
@tables = |
|
209 |
map { $package_names{LXOFFICE}->{$_} ? "$_=" . $package_names{LXOFFICE}->{$_} : $_ } |
|
210 |
grep { my $table = $_; !any { $_ eq $table } @{ $blacklist{LXOFFICE} } } |
|
214 | 211 |
$db->list_tables; |
215 | 212 |
} elsif (@ARGV) { |
216 | 213 |
@tables = @ARGV; |
217 | 214 |
} else { |
218 |
error("You specified neither --sugar nor --all nor any specific tables.");
|
|
215 |
error("You specified neither --all nor any specific tables."); |
|
219 | 216 |
usage(); |
220 | 217 |
} |
221 | 218 |
|
... | ... | |
254 | 251 |
=head1 SYNOPSIS |
255 | 252 |
|
256 | 253 |
scripts/rose_create_model.pl --login login table1[=package1] [table2[=package2] ...] |
257 |
scripts/rose_create_model.pl --login login [--all|-a] [--sugar|-s]
|
|
254 |
scripts/rose_create_model.pl --login login [--all|-a] |
|
258 | 255 |
|
259 | 256 |
# updates all models |
260 | 257 |
scripts/rose_create_model.pl --login login --all |
... | ... | |
324 | 321 |
Process all tables from the database. Only those that are blacklistes in |
325 | 322 |
L<SL::DB::Helper::Mappings> are excluded. |
326 | 323 |
|
327 |
=item C<--sugar, -s> |
|
328 |
|
|
329 |
Process tables in sugar schema instead of standard schema. Rarely useful unless |
|
330 |
you debug schema awareness of the RDBO layer. |
|
331 |
|
|
332 | 324 |
=item C<--no-commit, -n> |
325 |
|
|
333 | 326 |
=item C<--dry-run> |
334 | 327 |
|
335 | 328 |
Do not write back generated files. This will do everything as usual but not |
Auch abrufbar als: Unified diff
SugarCRM-Unterstützt aus rose_auto_create_model.pl entfernt