- print $fh $buffer;
- # stash received file name
- if ($first_chunk) {
- $session->param("$fileid.uploaded_filename", $file_name);
- $session->flush();
- $first_chunk = 0;
- }
- my $percentage = int(($bytes_read / $max_size) * 100);
- if ($percentage > $progress) {
- $progress = $percentage;
- $session->param("$fileid.uploadprogress", $progress);
- $session->flush();
+ $uploaded_file->stash(\$buffer, $bytes_read);
+ if ( ! $uploaded_file->name && $file_name ) { # save name on first chunk
+ $uploaded_file->name($file_name);