Navigation

Changeset 2389

Timestamp:

01/07/08 00:27:20 (1 year ago)

Author:

kmaclean

Message:

snapshot - automated submission of SpeechSubmission zip file to WebGUI Forum

Files:

r2388	r2389
37	37	####################################################################
38	38	sub Main {
39		my ($parms,%ProcessedUserSubmissions) = @_;
	39	my ($parms,$ProcessedUserSubmissions) = @_;
40	40	my $debug = $$parms{"debug"};
41	41
…	…
43	43
44	44	Login($parms);
45		foreach my $AudioDirName (keys %ProcessedUserSubmissions) {
	45	foreach my $AudioDirName (keys %$ProcessedUserSubmissions) {
46	46	$counter++;
47		print "$counter. $AudioDirName ==============================================\n";
48		my $path_original = $ProcessedUserSubmissions{$AudioDirName};
	47	print "=== $counter. $AudioDirName ==============================================\n";
	48	my $path_original = $$ProcessedUserSubmissions{$AudioDirName};
49	49	print STDERR "Update Forum with AudioDirName:$path_original/$AudioDirName\n" if $debug;
50	50	my ($content,$title,$language,$AudioRecordingSoftware)= getContentsofZipFile($parms,$path_original, $AudioDirName);