open (CONFILE, "<$db_data_path/$file") or &cgierr ("unable to open: $file.\nReason: $!");

while (<CONFILE>) {
if (/\$html_title/) {
$_=~s/\$html_title//g;
$_=~s/[=';]//g;
$_=~s/\#.*$//g; #3/11/2008 remove comments

$info_name = qq|$_|;
$info_link = qq|<a href="$dbman_script_url?db=$cfgfile&uid=$db_uid">Go to $cfgfile database</a> |;
}
if (/\$db_file_name/) {
$_=~s/\$db_file_name//g;
$_=~s/[=';]//g;
$_=~s/\#.*$//g;
$db_file = $_;
$db_file =~ s/\$db_data_path/$db_data_path/g;
$db_file =~ s/\$db_script_path/$db_script_path/g;
$db_file =~ s/"//g;
$db_file =~ s/ . //g;
$db_file =~ s/ //g;
}
}
close (CONFILE);

# size of the data file

if (-e $db_file) {
open (DBFILE, $db_file) or &cgierr ("unable to open: $db_file.\nReason: $!");
if ($db_use_flock) {
flock(DBFILE, 1) or &cgierr("unable to get exclusive lock on $db_file.\nReason: $!");
}
if ($size = -s $db_file){
blah blah blah