Changeset 2420

Timestamp:

01/23/08 23:33:53 (1 year ago)

Author:

kmaclean

Message:

changes to automate a portion of the processing of mojomove411 submissions

Files:

• Trunk/Scripts/Audio_scripts/UserSubmission/README.pm (modified) (5 diffs)
• Trunk/Scripts/Mirroring_scripts/RunDaily.pl (modified) (2 diffs)
• Trunk/Scripts/Mirroring_scripts/WebGUIForumUpdate.pm (modified) (5 diffs)

Trunk/Scripts/Audio_scripts/UserSubmission/README.pm

@@ -29 +29 @@
-### Constructor
-####################################################################
-
+
-sub new {
-        my ($class, $parms, $ReadmeWithPath) = @_;
-        #my $self = _Process($parms, $AudioDirName, $SubDirectory);
-        my $self = _ValidateREADME($parms, $ReadmeWithPath);
-        bless($self,$class);
-        return $self;
-}
-
+
-####################################################################
-### Class Methods
-####################################################################
-sub ValidateFileName { 
-        # !!!!!!
-        #my ($parms, $AudioDirParms) = @_;
-        my ($parms, $AudioDirName) = @_;                
-                my $debug = $$parms{"debug"};
-                my $QuarantineDir = $$parms{"QuarantineDir"};           
-
-
+
-        my $readmePath = "$QuarantineDir/$AudioDirName";                
-        opendir(DIR, "$readmePath") || die ("Unable to open file: $readmePath");
@@ -71 +67 @@
-        }
-}
-####################################################################
-### Instance Methods
-####################################################################
-# !!!!!!no longer required ... not sure why I did this this way
-#sub _Process {  
-#       my ($parms, $AudioDirName, $SubDirectory) = @_;
-#               my $debug = $$parms{"debug"};
-#               my $QuarantineDir = $$parms{"QuarantineDir"};   
-#               my $ToBeProcessedDir = $$parms{"ToBeProcessedDir"};     
-#       # !!!!!!                
-#       my $readme;     
-#       #my $AudioDirName =  $$AudioDirParms{"audio_dir_name"};         
-#       #my ($samplingrate, $samplingrateformat, $filetype, $dialect, $language, $audiorecordingsoftware);
-#       # !!!!!!                
-#       if (!defined($SubDirectory)) {$SubDirectory=""};        
-#       if ($SubDirectory) { # call from Repository.pm
-#               print  "processing $ToBeProcessedDir/$AudioDirName/$SubDirectory/README\n" if $debug;   
-#               # !!!!!!
-#               $readme = _ValidateREADME($parms, "$ToBeProcessedDir/$AudioDirName/$SubDirectory/README");
-#               # !!!!!!
-#       } else { # call from UserSubmission.pm
-#               print  "processing $QuarantineDir/$AudioDirName/README\n" if $debug;
-#               # !!!!!!
-#               $readme = _ValidateREADME($parms,"$QuarantineDir/$AudioDirName/README" );
-#               # !!!!!!
-#       }
-#       close (README);
-#       # !!!!!!
-#       #return $samplingrate, $samplingrateformat, $filetype, $dialect, $language, $audiorecordingsoftware;
-#       return $readme;
-#       # !!!!!!        
-#}
-# !!!!!!
-
-sub _ValidateREADME {
-        my ($parms, $ReadmeWithPath) = @_;      
-                my $debug = $$parms{"debug"};
-        # !!!!!!
-        my (%readmecontents, $title);   
-
@@ -114 +76 @@
-        $readmecontents{'audiorecordingsoftware'}="";
-        
-        #my ($title, $samplingrate, $samplingrateformat,$dialect,$filetype, $language, $audiorecordingsoftware);
-        # !!!!!!
-        open(README, "$ReadmeWithPath") || die ("Unable to open file: $ReadmeWithPath");                
-        while (my $line = <README>) {
@@ -156 +116 @@
-                        ($title, $readmecontents{'audiorecordingsoftware'}) =split(/\:/, $line);
-                        #print "Audio Recording Software:$readmecontents{'audiorecordingsoftware'}\n" if $debug;                                        
+                } elsif ($line =~ /Update WebGUI Forum: /i) {
+                        # $line =~ s/ //g; # not required
+                        ($title, $readmecontents{'updatewebguiforum'}) =split(/\:/, $line);
-                } 
-        }
-        # !!!!!!        
-        #if ($debug) {
-        #       print "_ValidateREADME:\n";
-        #       print "samplingrate:$readmecontents{'samplingrate'} ;\n";
-        #       print "samplingrateformat:$readmecontents{'samplingrateformat'} ;\n";
-        #       print "filetype:$readmecontents{'filetype'} ;\n";       
-        #       print "dialect:$readmecontents{'dialect'} ;\n" ;
-        #       print "language:$readmecontents{'language'} ;\n";       
-        #       print "audiorecordingsoftware:$readmecontents{'audiorecordingsoftware'}:\n" ;
-        #}
-        #return $samplingrate, $samplingrateformat, $filetype, $dialect, $language, $audiorecordingsoftware;
-        return \%readmecontents;
-        # !!!!!!
-}
-
+
-sub getSamplingrate {
-        my $self = shift;
@@ -202 +153 @@
-        return $self->{'audiorecordingsoftware'};
-}
-
+
+
+
+
+
-1;

Trunk/Scripts/Mirroring_scripts/RunDaily.pl

@@ -29 +29 @@
-### 0.1.6 - 2007.4.18 - accomodate svn repository changes
-### 0.1.7 - 2007.8.22 - add Flac audio processing
-O
+o
-####################################################################
-package RunDaily;
@@ -80 +80 @@
-####################################################################
-UserSubmission::Main(\%parms) || confess "UserSubmissions error: $?";
-
-
-
-
+
+
-AcousticModel::Create(\%parms) || confess "UserSubmissions error: $?";
-
-NightlyTest::Process(\%parms) || confess "UserSubmissions error: $?";
-TarFiles::Create($parms) || confess "UserSubmissions error: $?";
-UserMetrics::Process(\%parms) || confess "UserSubmissions error: $?";
-Rsync() || confess "UserSubmissions error: $?";
-# !!!!!!
-WebGUIForumUpdate::Main(\%parms, $ProcessedUserSubmissions, 'speechsubmission', 'xxxxx') || confess "UserSubmissions error: $?";
-
+
-print STDOUT "!!!!!!run_daily completed\n";
-####################################################################

Trunk/Scripts/Mirroring_scripts/WebGUIForumUpdate.pm

@@ -9 +9 @@
-### Command: perl ./WebGUIForumUpdate.pm ($parms, $ProcessedUserSubmissions)
-###    
-7
+8
-###
-### This program is free software; you can redistribute it and/or
@@ -47 +47 @@
-                my $path_original = $$ProcessedUserSubmissions{$AudioDirName}{"path_original"};
-                my $readme = $$ProcessedUserSubmissions{$AudioDirName}{"readme"};
- ($readme->getAudiorecordingsoftware() =~ /VoxForge Speech Submission Application/) 
+(($readme->getAudiorecordingsoftware() =~ /VoxForge Speech Submission Application/) or ($readme->getUpdatewebguiforum() =~ /y/i))
-                        print STDERR "Update Forum with AudioDirName:$path_original/$AudioDirName\n" if $debug;
-                        my ($content,$title)= getSubmissionContents($parms,$path_original,$AudioDirName,$readme);
@@ -63 +63 @@
-####################################################################
-sub getUploadURL {
-        #my ($parms,$language) = @_;
-        my ($parms,$readme) = @_;       
-                my $debug = $$parms{"debug"};
@@ -106 +105 @@
-        $content .= join(" ",  @license);
-        $content =~ s/\n/<br>\n/g;      
-
-
-
-
+
-        $content .= "<br><img src=\"http://www.repository.voxforge1.org/spicons/compressed.gif\">";
-        $content .= "<a href=\"$RepositoryURL/$title.tgz\">$title.tgz</a><br>";
-        # !!!!!!
-        $content =~ s/;/,/g; # CURL submission options are separated by a semi-colon, therefore no semi-colons allowed in content submitted to WebGUI 
-        # !!!!!!        
-        #return (\$content,\$title,\$language,$AudioRecordingSoftware);
-        return (\$content,\$title);
-}
-
-sub getRepositoryURL {
-        #my ($parms,language) = @_;
-        my ($parms,$readme) = @_;       
-                my $debug = $$parms{"debug"};
@@ -182 +174 @@
-
-sub Upload {
-        #my ($parms,$content,$title,$language) = @_;
-        my ($parms,$content,$title,$readme) = @_;
-                my $debug = $$parms{"debug"};
-        my ($result, $err);
-        my $post = "func=editSave;assetId=new;class=WebGUI::Asset::Post::Thread;proceed=showConfirmation;title=$$title;content=$$content;contentType=text,subscribe=1;submit=save";
-        #my $UploadURL = getUploadURL($parms,$language);
-        my $UploadURL = getUploadURL($parms,$readme);   
-