sub attach_file {
# --------------------------------------------------------
# Attaches a file to a record.
#
my ($self, $data_id, $field, $in) = @_;
(defined $self->{attach_dir}) or return $self->error('NOATTACHDIR');
(ref $in eq 'CGI') or return $self->error('BADARGS', 'attach_file', $in);
($in->param($field)) or return undef;
$self->connect();
my ($fh, $ft, $fn, $out, $size, $table, $query, $sth, $read, $buffer, $id, $name);
# Let's get the filetype, and filename.
$fh = $in->param($field) or return undef;
$ft = $in->uploadInfo($fh) ? $in->uploadInfo($fh)->{'Content-Type'} : 'application/octet-stream';
$fh =~ s,(.*)([/\\])([^/\\]+)$,defined $2 ? $3 : "$1$2$3",e;
$fn = $fh;
$fh = $in->param($field);
$out = $self->{attach_dir} . "/$data_id.$fn.fil";
open (OUT, "> $out") or return $self->error ('CANTOPEN', $out, $!);
binmode (OUT); # For those O/S that care.
while ($read = read ($fh, $buffer, 1024)) {
print OUT $buffer;
}
close OUT;
$size = -s $out;

# Save the info to the attachment table.
$table = $self->{db_table} . "_Attach";
$name = $fn ? $DBH->quote("$data_id.$fn.fil") : "''";
$fn = $fn ? $DBH->quote($fn) : "''";
$ft = $ft ? $DBH->quote($ft) : "''";
$query = qq~
INSERT INTO $table (ID, DataID, ServerName, FileName, FileType, FileSize)
VALUES (?, $data_id, $name , $fn, $ft, $size)
~;
$sth = $DBH->prepare($query) or return $self->error ('CANTPREPARE', $query, $DBI::errstr);
$id = $self->_pre_get_id ($sth, $table);
$sth->execute($id) or return $self->error ('CANTEXECUTE', $query, $DBI::errstr);
$id | |= $self->_post_get_id ($sth, $table);

# Return the data id.
return $id;
}