Changeset 24432 for gs2-extensions
- Timestamp:
- 2011-08-19T17:58:42+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/music-ir-src/trunk/perllib/plugins/jSongMinerExtractor.pm
r22468 r24432 88 88 # ARG 1: $to_decode is the string to URL decode 89 89 my ($to_decode) = @_; 90 return uri_unescape($to_decode); 90 my $decoded= uri_unescape($to_decode); 91 92 return $decoded; 91 93 } 92 94 … … 108 110 109 111 $md_name =~ s/\+//g; 110 $md_value =~ s/\+/ /g;112 $md_value =~ s/\+/ /g; 111 113 112 114 $md_name = urlDecode($md_name); 113 115 $md_value = urlDecode($md_value); 114 116 115 # $md_name =~ s/\s+/ /g;116 $md_name =~ s/\(.*?\)$// ;117 # $md_name =~ s/\s+/ /sg; 118 $md_name =~ s/\(.*?\)$//s; # can stretch over multiple lines 117 119 $md_name =~ s/Last\.FM/LastFM/g; 118 120 $md_name =~ s/:/^/g; 119 121 $md_name =~ s/(API)?\^/./; 120 122 121 $doc_obj->add_ metadata($top_section,$md_name,$md_value);123 $doc_obj->add_utf8_metadata($top_section,$md_name,$md_value); 122 124 } 123 125 … … 179 181 $jsongminer_cmd .= " -artist \"$id3_artist\""; 180 182 $jsongminer_cmd .= " -audio \"$source_file_path\""; 181 $jsongminer_cmd .= " -save file \"$target_txt_file_path\"";182 ## $jsongminer_cmd .= " -saveacefile \"$target_acexml_file_path\"";183 $jsongminer_cmd .= " -savetxtfile \"$target_txt_file_path\""; 184 $jsongminer_cmd .= " -saveacexmlfile \"$target_acexml_file_path\""; 183 185 184 186 if ($verbosity>2) {
Note:
See TracChangeset
for help on using the changeset viewer.