r1669@llin: dpavlin | 2007-11-27 23:42:31 +0100

 don't process output modules which init returned false

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1067 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/run.pl b/run.pl
index 0d96403..141e262 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -331,9 +331,11 @@ foreach my $database ( sort keys %{ $config->databases } ) {
 
                $log->debug("calling $module->new(",dump( $output ),")");
                my $out = new $module->new( $output );
-               $out->init;
-
-               push @output_modules, $out;
+               if ( $out->init ) {
+                       push @output_modules, $out;
+               } else {
+                       $log->warn("SKIPPED $module");
+               }
        }