# (note: 0 means EOF, "0" will give a byte (ascii "0")
# to the reading program)
my ($file) = filename_fixup(shift);
# (note: 0 means EOF, "0" will give a byte (ascii "0")
# to the reading program)
my ($file) = filename_fixup(shift);
if (!$sth_update->execute($files{$file}{cont},$files{$file}{id})) {
print "update problem: ",$sth_update->errstr;
clear_cont;
if (!$sth_update->execute($files{$file}{cont},$files{$file}{id})) {
print "update problem: ",$sth_update->errstr;
clear_cont;