Changeset 2269
- Timestamp:
- 08/24/07 13:42:32 (1 year ago)
- Files:
-
- Trunk/Scripts/Mirroring_scripts/TarFiles/Audio.pm (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Mirroring_scripts/TarFiles/Audio.pm
r2206 r2269 26 26 package TarFiles::Audio; 27 27 use strict; 28 use diagnostics; 29 use Carp; 28 30 use File::Spec; 31 #use File::Basename; 29 32 my $command; 30 33 #################################################################### … … 43 46 chomp ($line); 44 47 @line=split(/\s+/, $line); 45 ($AudioDirParms{'source '}, $AudioDirParms{'target'}) = @line;48 ($AudioDirParms{'source_path'}, $AudioDirParms{'target'}) = @line; 46 49 ($sourcevolume,$sourcepath,$AudioDirParms{'sourcedirname'}) = File::Spec->splitpath( $AudioDirParms{'source'} ); 47 50 @sourcepath=split(/\//, $sourcepath); … … 56 59 my ($parms,$AudioDirParms ) = @_; 57 60 my $debug = $$parms{"debug"}; 58 my $source = $$AudioDirParms{'source'};59 opendir(DIR, $source ) || die ("Unable to open file: $source");61 my $source_path = $$AudioDirParms{'source_path'}; 62 opendir(DIR, $source_path) || die ("Unable to open file: $source_path"); 60 63 my @dirlist; 61 64 my @tarlist; … … 77 80 my $debug = $$parms{"debug"}; 78 81 79 my $source = $$AudioDirParms{'source'};82 my $source_path = $$AudioDirParms{'source_path'}; 80 83 my $target = $$AudioDirParms{'target'}; 81 84 my $audiodir = $$AudioDirParms{'audiodir'}; … … 84 87 my $filename = $audiodir . "_" . $sourcedirname . "_dyn_makefile"; 85 88 open(FILEOUT, ">$filename"); 86 print (FILEOUT "SOURCE = $source \n");89 print (FILEOUT "SOURCE = $source_path\n"); 87 90 print (FILEOUT "TARGET = $target\n"); 88 91 print (FILEOUT "VPATH = \$(SOURCE) \$(TARGET)\n\n"); … … 90 93 foreach my $dir (@$dirlist) { 91 94 print (FILEOUT "dir = $dir\n"); 92 # print ":",$audiodir,":"\n; 93 if ($sourcedirname =~ /MFCC/) { 94 print (FILEOUT "\$(dir).tgz : \$(dir) \$(dir)/mfc \$(dir)/etc\n"); 95 } else { 96 print (FILEOUT "\$(dir).tgz : \$(dir) \$(dir)/wav \$(dir)/etc\n"); 97 } 95 # !!!!!! 96 my $tarline = "\$(dir).tgz : \$(dir) "; 97 while (my $sub_directory = <$source_path/$dir/*/>) { # get list of sub-directories in audio directory (using glob operator internally) 98 $sub_directory =~ s|$source_path/||; # remove source path 99 $sub_directory =~ s|/$||; # remove trailing slash 100 $tarline .= "\$(dir)/$sub_directory "; 101 } 102 print (FILEOUT "$tarline\n"); 103 # if ($sourcedirname =~ /MFCC/) { 104 # print (FILEOUT "\$(dir).tgz : \$(dir) \$(dir)/mfc \$(dir)/etc\n"); 105 # } else { 106 # print (FILEOUT "\$(dir).tgz : \$(dir) \$(dir)/wav \$(dir)/etc\n"); 107 # } 108 # !!!!!! 98 109 print (FILEOUT "\tcd \$(SOURCE) && tar --exclude=.svn -zcvf \$(TARGET)\/\$\@ \$(<F)\n\n"); 99 110 }