Added support for MySQL. This has the side effect of making database:format a required config value.
This commit is contained in:
1 parent
27e242bbef
commit
fe57f6df3e
3 files changed
+58
-14
No files matched your search
@@ -17,7 +17,7 @@ our $VERSION = 1.00;
|
||||
our $ERROR = 0;
|
||||
|
||||
# Iterate through the arguments passed to us.
|
||||
my $features = 'base ssl';
|
||||
my $features = 'base ssl sqlite';
|
||||
if (defined $ARGV[0]) {
|
||||
foreach (@ARGV) {
|
||||
if ($_ eq '-h' or $_ eq '--help') {
|
||||
@@ -28,17 +28,20 @@ if (defined $ARGV[0]) {
|
||||
println '*** End of Help ***';
|
||||
exit 1;
|
||||
}
|
||||
elsif ($_ eq "--enable-sasl") {
|
||||
$features .= " sasl";
|
||||
elsif ($_ eq '--enable-sasl') {
|
||||
$features .= ' sasl';
|
||||
}
|
||||
elsif ($_ eq "--disable-ssl") {
|
||||
elsif ($_ eq '--disable-ssl') {
|
||||
$features =~ s/ ssl//g;
|
||||
}
|
||||
elsif ($_ eq "--enable-ipv6") {
|
||||
$features .= " ipv6";
|
||||
elsif ($_ eq '--enable-ipv6') {
|
||||
$features .= ' ipv6';
|
||||
}
|
||||
elsif ($_ eq '--with-mysql') {
|
||||
$features =~ s/sqlite/mysql/;
|
||||
}
|
||||
else {
|
||||
println "Warning: Unknown option '".$_."'";
|
||||
println "Warning: Unknown option '$_'";
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -97,7 +100,8 @@ println 'Checking for required CPAN modules......';
|
||||
println "\0";
|
||||
#modfind("Mouse");
|
||||
modfind('DBI');
|
||||
modfind('DBD::SQLite');
|
||||
modfind('DBD::SQLite') if $features =~ /sqlite/;
|
||||
modfind('DBD::mysql') if $features =~ /mysql/;
|
||||
modfind('Class::Unload');
|
||||
modfind('IO::Socket::INET6') if $features =~ /ipv6/;
|
||||
modfind('IO::Socket::SSL') if $features =~ /ssl/;
|
||||
|
||||
Reference in new issue
Block a user