open (DB, ">>$db_file_name") or &cgierr("error in add_record.
unable to open database: $db_file_name.\nReason: $!");
if ($db_use_flock) {
flock(DB, 2) or &cgierr("unable to get exclusive lock on $db_file_name.\nReason: $!");
}
print DB &join_encode(%in);
close DB; # automatically removes file lock

open (EMAIL, ">>$db_script_path/email.db") or &cgierr("error in add_record.
unable to open database: $email.db.\nReason: $!");
if ($db_use_flock) {
flock(EMAIL, 2) or &cgierr("unable to get exclusive lock on $email.db.\nReason: $!");
}
print EMAIL $db_userid . $db_delim . $in{'Email'} . "\n";
close EMAIL; # automatically removes file lock

&auth_logging("modified record: $in{$db_key}") if ($auth_logging);
&html_modify_success;

$found_email=0;
$output_email = '';
open (EMAIL, "<$db_script_path/email.db") or &cgierr("error in modify_records.
unable to open db file: email.db.\nReason: $!");
if ($db_use_flock) { flock(DB, 1); }
@lines = <EMAIL>; # Slurp the database into @lines..
close DB;
LINE: foreach $line (@lines) {
if ($line =~ /^$/) { next LINE; }
if ($line =~ /^#/) { $output .= $line; next LINE; } # Comment Line
chomp ($line);
@data = &split_decode($line);
if ($data[1] eq $in{$db_userid}) {
$output_email .= $in{$db_userid} . $db_delim . $in{'Email'} . "\n";
$found_email=1;
}
else {
$output_email .= $line . "\n";
}
}
unless ($found_email) {
$output_email .= $in{$db_userid} . $db_delim . $in{'Email'} . "\n";
}
open (EMAIL, ">$db_script_path/email.db") or &cgierr("error in modify_records.
unable to open db file: email.db.\nReason: $!");
if ($db_use_flock) {
flock(EMAIL, 2) or &cgierr("unable to get exclusive lock on
$email.db.\nReason: $!");
}
print EMAIL $output_email;
close EMAIL;

$delete_list{$data[$db_key_pos]} ? # if this id is one we want to delete
($delete_list{$data[$db_key_pos]} = 0) : # then mark it deleted and don't print it to the new database.
($output .= $line . "\n"); # otherwise print it.

if $delete_list{$data[$db_key_pos]}) {
$delete_list{$data[$db_key_pos]} = 0;
$email_output = '';
open (EMAIL, "<$db_script_path/email.db") or &cgierr("error in delete_records.
unable to open email file: $email.db.\nReason: $!");
if ($db_use_flock) { flock(DB, 1); }
@email_lines = <EMAIL>;
close EMAIL;
foreach $email (@email_lines) {
unless ($email =~ /^$db_userid/) {
$email_output .= $email . "\n";
}
}
open (EMAIL, ">$db_script_path/email.db") or &cgierr("error in delete_records.
unable to open db file: email.db.\nReason: $!");
if ($db_use_flock) {
flock(EMAIL, 2) or &cgierr("unable to get exclusive lock on email.db.\nReason: $!");
}
print EMAIL $email_output;
close EMAIL;
}
else {
$output .= $line . "\n"
}

print EMAIL $db_userid . $db_delim . $in{'Email'} . "\n";

print EMAIL "$db_userid $in{'Email'}\n";

@data = &split_decode($line);
if ($data[1] eq $in{$db_userid}) {
$output_email .= $in{$db_userid} . $db_delim . $in{'Email'} . "\n";

if ($line =~ /^$db_userid /) {
$output_email .= "$in{$db_userid} $in{'Email'}\n";