Changeset 2619

Timestamp:

06/24/08 21:11:08 (2 months ago)

Author:

kmaclean

Message:

Updates to UserSubmission? scripts

Files:

• Trunk/Scripts/Audio_scripts/UserSubmission/AUDIO.pm (modified) (5 diffs)
• Trunk/Scripts/Audio_scripts/UserSubmission/README.pm (modified) (2 diffs)

Trunk/Scripts/Audio_scripts/UserSubmission/AUDIO.pm

@@ -230 +230 @@
-
-sub Audio2PromptsValidation { # public
-        # !!!!!!
-        #my ($self, $parms, $audio_dir_name, $numberofPrompts ) = @_;
-        my ($self,$prompts) = @_;
-
@@ -237 +235 @@
-        my $audio_dir_name = $self->{'audio_dir_name'};
-        my $numberofPrompts = $prompts->getPromptCount;
-        # !!!!!!        
-                my $debug = $$parms{"debug"};
-                my $QuarantineDir = $$parms{"QuarantineDir"};
@@ -244 +241 @@
-                my $AudioScripts_dir = $$parms{"AudioScripts_dir"};     
-                my $AMCreate_scripts_dir = $$parms{"HTK_dir"};          
+
+        # !!!!!!
+        my @tokensWithIssues;
+        # !!!!!!
-
-        print "!!!!!!Audio2PromptsValidation:$audio_dir_name\n" if $debug;
@@ -256 +257 @@
-        $command = ("rm -f $QuarantineDir/$audio_dir_name/dict $QuarantineDir/$audio_dir_name/wlist $QuarantineDir/$audio_dir_name/VALIDATION-PROMPTS"); print "$command\n" if $debug; system($command);if ($?) {_a2PVError($self,$command)};   
-        open (HVite_Log, "$QuarantineDir/$audio_dir_name/HVite_log") || confess ("Unable to open file: $QuarantineDir/$audio_dir_name/HVite_log"); 
-        # !!!!!!
-        my $count = 0;
-# !!!!!!
+my $mfcFile;   
-        while (my $line = <HVite_Log>) {
-                chomp $line;
-
-
-
-
-
+
+
+
+
+
+
-                        my @line=split(/ /, $line);
-                        my $beam = pop (@line);
-                        $beam =~ s/ //g;
-
-
-
-
+
+
+
+
+
+
-                                confess "audio not corresponding to prompt file, check HVite_Log; error code: $?" ;
-                        }       
-                # !!!!!!        
-                } elsif ($line =~ /Created lattice with/) {
-                        $count++;
-                # !!!!!!        
-                }
-        }
-        # !!!!!!
-        #if (!$count >=10) {
-        #       confess "HVite not able to process all $numberofPrompts audio files set out in Prompts file, only $count processed" ;
-        print "!!!!!!count: $count ;getPromptCount:" . $prompts->getPromptCount . "\n";
-        if (!($count == $prompts->getPromptCount)) {
-                confess "\n\n\nError:HVite not able to process all " . $prompts->getPromptCount . " audio files set out in Prompts file, only $count processed\n\n\n" ;
-        }
+        close (HVite_Log);
+        # !!!!!!
+        $self->{'tokensWithIssues'} = \@tokensWithIssues;
-        # !!!!!!
-        close (HVite_Log);
-        return 1;
-}
@@ -397 +397 @@
-}               
-
+sub getTokensWithIssues {
+        my $self = shift;
+        return $self->{'tokensWithIssues'};
+}
+
-1;

Trunk/Scripts/Audio_scripts/UserSubmission/README.pm

@@ -136 +136 @@
-                } 
-        }
+        close README;
-        if ( (($readmecontents{'language'}) eq "") or (!defined($readmecontents{'language'})) ){
-                confess "no language defined\n";
@@ -143 +144 @@
-                # !!!!!!
-        }
-($readmecontents{'updatewebguiforum'}) eq "") or (!defined($readmecontents{'updatewebguiforum'})
+!defined($readmecontents{'updatewebguiforum'})) or (($readmecontents{'updatewebguiforum'}) eq ""
-                $readmecontents{'updatewebguiforum'} = 'n'
+        } elsif ($readmecontents{'updatewebguiforum'} eq "yes") {
+                open(README, "<$ReadmeWithPath") || confess ("Unable to open file for reading: $ReadmeWithPath");       
+                my @readme = <README>;
+                close README;
+                open(README, ">$ReadmeWithPath") || confess ("Unable to open file for writing: $ReadmeWithPath");
+                foreach my $line (@readme) {
+                        print $line unless ($line =~ /Update WebGUI Forum: /i);
+                }       
+                close README;                           
+        } else {
+                $readmecontents{'updatewebguiforum'} = 'n'              
-        }
-        return \%readmecontents;