Changeset 2634

Timestamp:

07/29/08 17:26:55 (4 months ago)

Author:

kmaclean

Message:

draft ManualWebForum? update script - takes a user submission, and submits it to a WebGUI forum.

Files:

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

Trunk/Scripts/Audio_scripts/UserSubmission/README.pm

@@ -88 +88 @@
-        $readmecontents{'language'}=""; # in case the submission was not from the SpeechSubmission app  
-        $readmecontents{'audiorecordingsoftware'}="";
-
+print "!!!!!!!ReadmeWithPath:$ReadmeWithPath\n";
-        open(README, "$ReadmeWithPath") || die ("Unable to open file: $ReadmeWithPath");                
-        while (my $line = <README>) {
@@ -122 +122 @@
-                        $readmecontents{'filetype'} = lc $readmecontents{'filetype'}; #lower case
-                } elsif ($line =~ /Language: /i) {
-                        # $line =~ s/ //g; # not required
-                        ($title, $readmecontents{'language'}) =split(/\:/, $line);
-#print "Language:$readmecontents{'language'}\n" if $debug;     
-print "linelanguage:$line\n";  
-language:$readmecontents{'language'}\n";                        
+$readmecontents{'language'} =~ s/ //g; # remove spaces
+#chomp $readmecontents{'language'}; # remove any hard returns or newlines
+!!!!!!Language:" . $readmecontents{'language'} . "\n" if $debug;
-                } elsif ($line =~ /Audio Recording Software: /i) {
-                        # $line =~ s/ //g; # not required