Changeset 2484
- Timestamp:
- 03/21/08 21:53:55 (10 months ago)
- Files:
-
- Trunk/Scripts/AcousticModel_scripts/AcousticModel.pm (modified) (1 diff)
- Trunk/Scripts/Metrics_scripts/UserMetrics.pm (modified) (3 diffs)
- Trunk/Scripts/Mirroring_scripts/RunDaily.pl (modified) (1 diff)
- Trunk/Scripts/Mirroring_scripts/WebGUIForum.pm (modified) (1 diff)
- Trunk/Scripts/Testing_scripts/NightlyTest.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/AcousticModel_scripts/AcousticModel.pm
r2270 r2484 34 34 sub Create { 35 35 my ($parms) = @_; 36 # !!!!!! 37 $parms->setSpeechCorpusLanguage('EN'); 38 # !!!!!! 36 39 my $debug = $$parms{"debug"}; 37 40 my $HTKdir = $$parms{"HTK_dir"}; 38 41 my $HTKbin = $$parms{"HTKBin"}; 42 39 43 my $LexiconDirectory = $$parms{"LexiconDirectory"}; 40 44 Trunk/Scripts/Metrics_scripts/UserMetrics.pm
r2277 r2484 42 42 my ($parms ) = @_; 43 43 my $debug = $$parms{"debug"}; 44 # !!!!!! 45 $parms->setSpeechCorpusLanguage('EN'); 46 # !!!!!! 44 47 my ($userlist, $total) = ReadDir($parms) ; 45 48 PrintResults($parms, $userlist, $total) || confess "UserSubmissions error: $?"; … … 50 53 my ($parms ) = @_; 51 54 my $debug = $$parms{"debug"}; 52 my $Dir = $$parms{"Main_8kHz_16bit"}; # assume all submitted audio will be in Main_8kHz_16bit 55 my $Dir = $$parms{"Main_8kHz_16bit"}; # assume all submitted audio will be in Main_8kHz_16bit 56 53 57 opendir(DIR, $Dir) || confess ("Unable to open file: $Dir"); 54 58 my @dirlist = readdir(DIR); … … 74 78 my ($parms, $sub_dir, $user ) = @_; 75 79 my $debug = $$parms{"debug"}; 76 my $Dir = $$parms{"Main_8kHz_16bit"}; # assume all submitted audio will be in Main_8kHz_16bit 80 my $Dir = $$parms{"Main_8kHz_16bit"}; # assume all submitted audio will be in Main_8kHz_16bit 81 77 82 my $total = 0; 78 83 my($f) = File::Util->new(); Trunk/Scripts/Mirroring_scripts/RunDaily.pl
r2472 r2484 94 94 95 95 96 #UserSubmission::Main($parms) || confess "UserSubmissions error: $?";97 #(my $ProcessedUserSubmissions = Repository::Main($parms))98 #|| confess "Repository error: $?"; # watch ""||"" because it changes left-side to scalar context, and only last item in list is transferred!99 #AcousticModel::Create($parms) || confess "UserSubmissions error: $?"; # only processes audio in English Master Prompts files100 #NightlyTest::Process($parms) || confess "UserSubmissions error: $?"; # English only96 UserSubmission::Main($parms) || confess "UserSubmissions error: $?"; 97 (my $ProcessedUserSubmissions = Repository::Main($parms)) 98 || confess "Repository error: $?"; # watch ""||"" because it changes left-side to scalar context, and only last item in list is transferred! 99 AcousticModel::Create($parms) || confess "UserSubmissions error: $?"; # only processes audio in English Master Prompts files 100 NightlyTest::Process($parms) || confess "UserSubmissions error: $?"; # English only 101 101 TarFiles::Create($parms) || confess "UserSubmissions error: $?"; 102 #UserMetrics::Process($parms) || confess "UserSubmissions error: $?"; # English only103 #Rsync() || confess "UserSubmissions error: $?";104 # do not use for German/Dutch already in forum!!WebGUIForum::Update($parms, $ProcessedUserSubmissions, 'speechsubmission', 'xxxxx') || confess "UserSubmissions error: $?";102 UserMetrics::Process($parms) || confess "UserSubmissions error: $?"; # English only 103 Rsync() || confess "UserSubmissions error: $?"; 104 WebGUIForum::Update($parms, $ProcessedUserSubmissions, 'speechsubmission', 'xxxxx') || confess "UserSubmissions error: $?"; 105 105 # !!!!!! 106 106 Trunk/Scripts/Mirroring_scripts/WebGUIForum.pm
r2482 r2484 83 83 my ($parms,$readme) = @_; 84 84 my $debug = $$parms{"debug"}; 85 my $UploadURL;86 # !!!!!!85 # !!!!!! 86 # my $UploadURL; 87 87 # remember to change LoginURL above if changing here: 88 88 #if ($readme->getLanguage() =~ /EN/) { Trunk/Scripts/Testing_scripts/NightlyTest.pm
r2270 r2484 30 30 sub Process { 31 31 my ($parms ) = @_; 32 # !!!!!! 33 $parms->setSpeechCorpusLanguage('EN'); 34 # !!!!!! 32 35 my $debug = $$parms{"debug"}; 33 36 my $HTKbin = $$parms{"HTKBin"};