Added support for MySQL. This has the side effect of making database:format a required config value.

This commit is contained in:
Elijah Perrault committed 2011-02-13 21:25:29 -07:00
1 parent 27e242bbef
commit fe57f6df3e
3 files changed
+58 -14

No files matched your search

+12 -8
View File
@@ -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/;