Changeset 26276 for gs2-extensions/music-ir-src/trunk/perllib/plugins/MusicIRPlugin.pm

Timestamp:

2012-10-02T05:43:31+13:00 (12 years ago)

Author:

davidb

Message:

Some mods that resulted from testing under Cygwin

File:

• gs2-extensions/music-ir-src/trunk/perllib/plugins/MusicIRPlugin.pm (modified) (3 diffs)

gs2-extensions/music-ir-src/trunk/perllib/plugins/MusicIRPlugin.pm

@@ -107 +107 @@
 
 
-# do plugin specific processing of doc_obj
-sub process {
+
+sub process_features {
     my $self = shift (@_);
-    my ($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
+    my ($base_dir, $file, $doc_obj) = @_;
 
     my $outhandle = $self->{'outhandle'};
@@ -132 +132 @@
     }
 
+}
+
+# do plugin specific processing of doc_obj
+sub process {
+    my $self = shift (@_);
+    my ($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
+
+    my $top_section = $doc_obj->get_top_section();
+
+    $self->process_features($base_dir,$file,$doc_obj);
     
     #we have no text - adds dummy text and NoText metadata
     $self->add_dummy_text($doc_obj, $doc_obj->get_top_section());
 
+    my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file);
     $doc_obj->associate_file($filename_full_path, "audio.mp3", "audio/mpeg", $top_section);
 
@@ -151 +162 @@
     if ($self->{'retrieve_mir_metadata'} eq "true") {
     my $top_section = $doc_obj->get_top_section();
+
     my $id3_titles = $doc_obj->get_metadata($top_section,"ex.ID3.Title");
-
-    my $id3_title = shift @$id3_titles || "Unknown";
+    # my $id3_title = shift @$id3_titles || "Unknown";
+    my $id3_title = shift @$id3_titles || undef;
 
     my $id3_artists = $doc_obj->get_metadata($top_section,"ex.ID3.Artist");
-    my $id3_artist = shift @$id3_artists || "Unkown";
+    # my $id3_artist = shift @$id3_artists || "Unknown";
+    my $id3_artist = shift @$id3_artists || undef;
 
     my ($metadata_acexml_filename,$metadata_txt_filename)