{
# Enable transactions and error raising temporarily
local $dbh->{AutoCommit} = 0;
-
local $dbh->{RaiseError} = 1;
+ my $fname;
# Try to insert this new file
eval {
undef, $newid, $event, $user, $takenby, $filename);
# Now save the file to disk
- my $fname = Sesse::pr0n::Common::get_disk_location($r, $newid);
+ $fname = Sesse::pr0n::Common::get_disk_location($r, $newid);
open NEWFILE, ">$fname"
or die "$fname: $!";
# Some error occurred, rollback and bomb out
$dbh->rollback;
dberror($r, "Transaction aborted because $@");
+ unlink($fname);
}
}