Navigation

Changeset 2623

Timestamp:

06/26/08 11:45:47 (2 months ago)

Author:

kmaclean

Message:

removed some code dealing with updatewebguiforum in ReadME class; and added some chaged processing with respect to beamWidth in UserSubmission? class

Files:

r2578	r2623
164	164	}
165	165	# Print Summary
	166	print "\nSummary:\n";
	167	print "--------\n";
166	168	foreach my $audio_dir_name (sort keys(%directorynames)) {
167	169	my $pointer = $directorynames{$audio_dir_name};
168		my($samplingrate, $samplingrateformat, $filetype) = @$pointer;
169		print "***moved to 'ToBeProcessed' directory: $audio_dir_name:$samplingrate:$samplingrateformat:$filetype\n";
	170	my($samplingrate, $samplingrateformat, $filetype, $audio) = @$pointer;
	171	print "$audio_dir_name moved to 'ToBeProcessed' directory ($samplingrate:$samplingrateformat:$filetype)\n";
	172	# !!!!!!
	173	foreach my $line (@{$audio->getTokensWithIssues()}) {
	174	my $audioSubmission = $$line[0];
	175	my $mfcFile = $$line[1];
	176	my $beamWidth = $$line[2];
	177	if ($audio_dir_name eq $audioSubmission) {
	178	if ($beamWidth <= 250) {
	179	print " *check that audio corresponds to prompt in file: $mfcFile; beam width:$beamWidth\n";
	180	} else {
	181	print " $beamWidth\n";
	182	}
	183	} else {
	184	confess "error:$audio_dir_name not equal $audioSubmission\n";
	185	}
	186	}
	187	# !!!!!!
170	188	}
171	189	return \%userSubmission;

r2619	r2623
144	144	# !!!!!!
145	145	}
	146	# !!!!!! need unit tests to figure this out ....
	147	# trying to rewrite README file without the "Update WebGUI Forum:" line
146	148	if ( (!defined($readmecontents{'updatewebguiforum'})) or (($readmecontents{'updatewebguiforum'}) eq "") ){
147	149	$readmecontents{'updatewebguiforum'} = 'n'
148		} elsif ($readmecontents{'updatewebguiforum'} eq "yes") {
149		open(README, "<$ReadmeWithPath") \|\| confess ("Unable to open file for reading: $ReadmeWithPath");
150		my @readme = <README>;
151		close README;
152		open(README, ">$ReadmeWithPath") \|\| confess ("Unable to open file for writing: $ReadmeWithPath");
153		foreach my $line (@readme) {
154		print $line unless ($line =~ /Update WebGUI Forum: /i);
155		}
156		close README;
157		} else {
158		$readmecontents{'updatewebguiforum'} = 'n'
159		}
	150	}
	151	#elsif ($readmecontents{'updatewebguiforum'} eq "yes") {
	152	# open(README, "<$ReadmeWithPath") \|\| confess ("Unable to open file for reading: $ReadmeWithPath");
	153	# my @readme = <README>;
	154	# close README;
	155	# open(README, ">$ReadmeWithPath") \|\| confess ("Unable to open file for writing: $ReadmeWithPath");
	156	# foreach my $line (@readme) {
	157	# print $line unless ($line =~ /Update WebGUI Forum: /i);
	158	# }
	159	# close README;
	160	#} else {
	161	# $readmecontents{'updatewebguiforum'} = 'n'
	162	#}
	163	# !!!!!!
160	164	return \%readmecontents;
161	165	}