Changeset 2587 for Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook.pm

Timestamp:

05/16/08 14:03:32 (8 months ago)

Author:

kmaclean

Message:

AudioSegmentation scripts -snapshot

Files:

• Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook.pm (modified) (4 diffs)

Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook.pm

@@ -30 +30 @@
-use Getopt::Std;
-use File::Basename;
+use lib '/home/kmaclean/VoxForge-dev/Main/Scripts/Audio_scripts/AudioSegmentation';
-use AudioBook::Audio;
-use AudioBook::Text;
@@ -118 +119 @@
-        my $username = $self->{"username"};
-        my $tarSuffix = $self->{"tarSuffix"};
+        my $readme = $self->{"README"};
+        my $license = $self->{"LICENSE"};
-        
-        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@@ -124 +127 @@
-        $mday = sprintf("%02d", $mday);
-        print "creating gzipped tar file:$username\-$year$mon$mday\-$tarSuffix\.tgz \n";
+        $command = ("cp $readme AudioBook/output_files/README"); print "cmd:$command\n" if $debug; system($command);    
+        $command = ("cp $license AudioBook/output_files/LICENSE"); print "cmd:$command\n" if $debug; system($command);  
-        if ($debug) {
-                $command = ("tar -zcvf $username\-$year$mon$mday\-$tarSuffix\.tgz AudioBook/output_files --exclude \"\.svn\" "); print "cmd:$command\n" if $debug; system($command);
@@ -205 +210 @@
-                        if ($opt_l) {
-                                if (-r $opt_l) {
-C
+S
-                                } else {
-C
+S
-                                }
-                        } else {
-CE"}="AudioBook/input_files/LICENC
+SE"}="AudioBook/input_files/LICENS
-                        }
-                }