# open configuration file my $cfg = new Config::Simple($config_file) or die "Can't open configuration file: $config_file\n"; $server = $cfg->param('server'); $database = $cfg->param('database'); $user = $cfg->param('user'); $password = $cfg->param('password'); $logdir = $cfg->param('logdir'); $basedir = $cfg->param('basedir'); $inputdir = $cfg->param('inputdir'); $inputextension = $cfg->param('inputextension'); $cleanupdays = $cfg->param('cleanupdays'); $countyid = $cfg->param('countyid'); $unzipdir = $cfg->param('unzipdir'); $sleeptime = $cfg->param('sleeptime'); $mail_host = $cfg->param('mail_host') || 'mail@xxx.org'; $support_addr = $cfg->param('support_addr') || 'support@xxx.org'; $support_cc = $cfg->param('support_cc') || q{}; $ar_court_text = $cfg->param('ar_court_text'); $ar_court_ori = $cfg->param('ar_court_ori'); $debug_print = $cfg->param('debug_print'); $delete_txt_file = $cfg->param('delete_txt_file'); $from_email_address = $cfg->param('from_email_address'); $to_email_address = $cfg->param('to_email_address'); $cc_email_address = $cfg->param('cc_email_address'); $send_email = $cfg->param('send_email'); $init_version = $cfg->param('init_version'); &help() if ( $server eq q{} || $database eq q{} || $user eq q{} || $password eq q{} || $logdir eq q{} || $basedir eq q{} || $inputdir eq q{} || $inputextension eq q{} || $cleanupdays eq q{} || $countyid eq q{} || $sleeptime eq q{} || $unzipdir eq q{} || $mail_host eq q{} || $support_addr eq q{} || $ar_court_text eq q{} || $ar_court_ori eq q{} || $debug_print eq q{} || $delete_txt_file eq q{} || $from_email_address eq q{} || $to_email_address eq q{} || $send_email eq q{} || $init_version eq q{} );