Changeset 27647
- Timestamp:
- 2013-06-18T10:37:02+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/video-and-audio/trunk/src/perllib/plugins/SimpleVideoPlugin.pm
r27552 r27647 210 210 my $local_ivideo_path = &FileUtils::filenameConcatenate($process_dir, $filename . ".ts"); 211 211 &FileUtils::copyFiles($ivideo_path, $local_ivideo_path); 212 $ivideo_path = $local_ivideo_path; 213 print " - copied! [IOE:" . time() . "]\n"; 212 my $remote_size = &FileUtils::fileSize($ivideo_path); 213 my $local_size = &FileUtils::fileSize($local_ivideo_path); 214 if ($remote_size != $local_size) 215 { 216 die('Error! File copied is not of same size as original: ' . $remote_size . 'b != ' . $local_size . "b\n"); 217 } 218 elsif (&FileUtils::fileExists($local_ivideo_path)) 219 { 220 $ivideo_path = $local_ivideo_path; 221 print ' - copied! [IOE:' . time() . "]\n"; 222 } 223 else 224 { 225 die('Error! Failed to copy file: ' . $ivideo_path . ' => ' . $local_ivideo_path . ' [IOE:' . time() . "]\n"); 226 } 214 227 } 215 228
Note:
See TracChangeset
for help on using the changeset viewer.