my $filename = $in{'FILE_NAME'};
($filename =~ m,[/\\]([^/\\] )$,) and ($filename = $1);

# Save any attachments
if ($in{'FILE_CONTENT'}) {
if (length($in{'FILE_CONTENT'}) > 300000) {
&site_html_request_error ("printenv: Maximum attachment size is 300kb. Please email with attachment.");
return;
}
if ($in{'FILE_NAME'} !~ /\.doc$|\.rtf$|\.txt$/i) {
&site_html_request_error ("printenv: Only files with the following extension(s) are allowed: .doc, .rtf and .txt");
return;
}
my $file_id = $in{$db_key};
my $attachment_name = $in{$db_cols[$db_attachment_name]};

$attachment_name =~ s/ä/ae/g;
$attachment_name =~ s/ö/oe/g;
$attachment_name =~ s/ü/ue/g;
$attachment_name =~ s/ë/e/g;

open (FILE, ">/users/www/data/attachments/$file_id-$attachment_name") or &cgierr ("Can't save attach: $file_id-$attachment_name. Reason: $!");
print FILE $in{'FILE_CONTENT'};
close FILE;

}