|
|
|
@ -68,7 +68,9 @@ sub save { |
|
|
|
die "file too large\n" if ($upload->size > $conf->{file_maxsize}); |
|
|
|
die "file too large\n" if ($upload->size > $conf->{file_maxsize}); |
|
|
|
|
|
|
|
|
|
|
|
unless ($upload->asset->is_file) { |
|
|
|
unless ($upload->asset->is_file) { |
|
|
|
$upload->asset->to_file; |
|
|
|
my $file = $upload->asset->to_file; |
|
|
|
|
|
|
|
$file->cleanup(1); |
|
|
|
|
|
|
|
$upload->asset($file); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
my $file = { |
|
|
|
my $file = { |
|
|
|
|
