Changeset 2373

Timestamp:

12/26/07 14:32:03 (1 year ago)

Author:

kmaclean

Message:

added code to remove random numbers from SpeechSubmision? app zip filenames

Files:

• Trunk/Scripts/Audio_scripts/UserSubmission.pm (modified) (1 diff)

Trunk/Scripts/Audio_scripts/UserSubmission.pm

@@ -138 +138 @@
-                        my ($filename,$path,$suffix) = fileparse($line,@suffixlist);
-                        if (($suffix eq "zip") or ($suffix  eq "tgz") or ($suffix  eq "tar\.gz") ) {
+# !!!!!!
+                                if ($line =~ /\[.*\]/) {
+                                        my $newDirectoryName = $line;
+                                        $newDirectoryName =~ s/\[.*\]//;
+                                        $command = ("mv $Dir/$line $Dir/$newDirectoryName"); system($command);
+                                        $line = $newDirectoryName;
+                                } 
-                                push @tarlist,$line;
+#                               push @tarlist,$line;
+# !!!!!!                                
-                        } elsif ($suffix eq "" ) { 
-                                print "UserSubValidation:$filename: is likely a directory name ... skipping\n";