Changeset 2354
- Timestamp:
- 11/16/07 22:04:16 (1 year ago)
- Files:
-
- Trunk/Scripts/Audio_scripts/Repository/Main.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/Repository/Main.pm
r2265 r2354 46 46 47 47 # copy audio files from Original directory to Main directory 48 $command = ("svn copy $path_original/$audio_dir_name $path_main/$audio_dir_name"); print "$command\n" if $debug; system($command) == 0 or confess "system $command failed: $?"; 48 $command = ("svn copy $path_original/$audio_dir_name $path_main/$audio_dir_name"); print "$command\n" if $debug; system($command) == 0 or confess "system $command failed: $?"; 49 # !!!!!! 50 sleep(60); # to try to address a problem (when there are multiple submissions) where there are two copies of the new Main subdirectory ... one inside the other (usually Main/8kHz) 51 # need to check to see which one got downsampled (both or the inside directory one ... if the latter, then it's problem with Downsample script) 49 52 # !!!!!! 50 53 # run downsample script #./downsample.pl will downsample files and keep original file suffix - will not rename 'raw' to 'wav' file suffix 51 54 #$command = ("cd $AudioScripts_dir/Repository && ./Main/downsample.pl $path_main/$audio_dir_name/$audio_subdirectory $OriginalSamplingRate $downsample_rate $debug");print "$command\n" if $debug; system($command) == 0 or confess "system $command failed: $?"; 52 55 UserSubmission::AUDIO::Downsample($parms, $AudioDirParms) || confess "UserSubmission::AUDIO::Downsample error"; 53 # !!!!!!54 56 # update properties 55 57 $command = ("svn propset -R sampling_rate_Hz $downsample_rate $path_main/$audio_dir_name"); print "$command\n" if $debug; system($command) == 0 or confess "system $command failed: $?";