Navigation

Changeset 2362

Timestamp:

11/27/07 22:20:02 (1 year ago)

Author:

kmaclean

Message:

adding some debug information

Files:

r2354	r2362
48	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	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)
	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 in Main/8kHz)
51	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)
52	52	# !!!!!!

r2361	r2362
123	123	my $debug = $$parms{"debug"};
124	124	my $QuarantineDir = $$parms{"QuarantineDir"};
125		$command = ("flac -d $QuarantineDir/$audio_dir_name/*.flac"); print "$command\n" if $debug; system($command) == 0 or confess "system $command failed: $?";
	125	if ($debug) {
	126	$command = ("flac -d $QuarantineDir/$audio_dir_name/*.flac"); print "$command\n" if $debug; system($command) == 0 or confess "system $command failed: $?";
	127	} else {
	128	$command = ("flac -d -s $QuarantineDir/$audio_dir_name/*.flac"); print "$command\n" if $debug; system($command) == 0 or confess "system $command failed: $?";
	129	}
126	130	$command = ("mkdir $QuarantineDir/$audio_dir_name/flac"); print "$command\n" if $debug; system($command);
127	131	$command = ("mv -f $QuarantineDir/$audio_dir_name/*.flac $QuarantineDir/$audio_dir_name/flac"); print "$command\n" if $debug; system($command) == 0 or confess "system $command failed: $?";