Changeset 26275 for gs3-extensions/audioDB/trunk/src/perllib/plugins/FFTExtractor.pm

Timestamp:

2012-10-02T05:41:18+13:00 (12 years ago)

Author:

davidb

Message:

Some minor tweaks to allow the plugin to be used under Cygwin

File:

• gs3-extensions/audioDB/trunk/src/perllib/plugins/FFTExtractor.pm (modified) (2 diffs)

gs3-extensions/audioDB/trunk/src/perllib/plugins/FFTExtractor.pm

@@ -94 +94 @@
     }
 
+    my $native_source_file_path = $source_file_path;
+
+    my $native_target_file_path = $target_file_path;
+    if ($^O eq "cygwin") {
+    # Only get ffmpeg as native Windows binary => need to use Windows style path
+    $native_source_file_path=`cygpath -w \"$source_file_path\"`;
+    $native_target_file_path=`cygpath -w \"$target_file_path\"`;
+    $native_source_file_path =~ s/\s+$//;
+    $native_target_file_path =~ s/\s+$//;
+    }
+
     # Setup and run the ffmpeg command
     my $ffmpeg_cmd = "ffmpeg -y $convert_options";
-    $ffmpeg_cmd .= " -i \"$source_file_path\"";
-    $ffmpeg_cmd .= " \"$target_file_path\"";
+    $ffmpeg_cmd .= " -i \"$native_source_file_path\"";
+    $ffmpeg_cmd .= " \"$native_target_file_path\"";
         
 ##    print STDERR "****** cmd = $ffmpeg_cmd\n";
@@ -161 +172 @@
     $fftExtract_cmd .= " \"$source_file_path\" \"$target_file_path\"";
         
+##    $fftExtract_cmd =~ s/\\/\//g; 
+
 ##    print STDERR "**** cmd = $fftExtract_cmd\n";