68 |
use File::Path; |
use File::Path; |
69 |
use FIG; |
use FIG; |
70 |
use ERDB; |
use ERDB; |
71 |
use DatabaseGenerator; |
use PPOGenerator; |
72 |
|
|
73 |
# Get the command-line options and parameters. |
# Get the command-line options and parameters. |
74 |
my ($options, @parameters) = StandardSetup([qw(ERDB) ], |
my ($options, @parameters) = StandardSetup([qw(ERDB) ], |
101 |
if ($options->{ppogen}) { |
if ($options->{ppogen}) { |
102 |
# We're deploying, so do it. |
# We're deploying, so do it. |
103 |
Trace("Deploying PPO database as $options->{ppogen}.") if T(2); |
Trace("Deploying PPO database as $options->{ppogen}.") if T(2); |
104 |
DatabaseGenerator->deploy($targetXmlFile, $targetDirectory, $options->{ppogen}); |
PPOGenerator->deploy($targetXmlFile, $targetDirectory, $options->{ppogen}); |
105 |
} |
} |
106 |
Trace("Conversion complete.") if T(2); |
Trace("Conversion complete.") if T(2); |
107 |
}; |
}; |