- sub get_data { my @names = ( 'confTO_STARTTLS' ,'confCACERT' ,'confCACERT_PATH' ,'confCRL' ,'confCLIENT_CERT' ,'confCLIENT_KEY' ,'confSERVER_CERT' ,'confSERVER_KEY' ,'confDH_PARAMETERS' ,'confTLS_SRV_OPTIONS' ); foreach my $entry (@names) { my ($class, $flags, $files, $options) = &Parse_mc::entry_dbs($entry); my $file = @{$files}[0]; $Def_Map{$entry} = ''; $Def_Map{$entry} = $file if ($file ne '-'); #$Def_Map{$entry} = &Parse_mc::format_dbs($entry); }; }; #