my $type = lc($input->{type});
- die "I know only how to handle input types ", join(",", $config->webpac('inputs') ), " not '$type'!\n" unless (grep(/$type/, $config->webpac('inputs')));
+ # FIXME check if input module exists
+ my $input_module = $input->{module};
- my $input_module = $config->webpac('inputs')->{$type};
+ if ( ! $input_module ) {
+ if ( grep(/$type/, $config->webpac('inputs')) ) {
+ $input_module = $config->webpac('inputs')->{$type};
+ } else {
+ $log->logdie("I know only how to handle input types ", join(",", $config->webpac('inputs') ), " not '$type'!" );
+ }
+ }
my @lookups = $parser->have_lookup_create($database, $input);