- Timestamp:
- 2012-10-05T04:22:03+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs3-extensions/audioDB/trunk/src/perllib/plugins/AudioDBPlugin.pm
r26275 r26288 144 144 # if filename ext not .wav convert (optionally cached) to wav 145 145 146 my $wav_filename;147 146 148 147 my ($input_ext) = ($filename_full_path =~ m/\.(.*?)$/); … … 150 149 151 150 151 my $wav_filename; 152 152 if ($input_ext ne "wav") { 153 153 $wav_filename = $self->convert_audio_format($filename_full_path,"wav"); … … 157 157 } 158 158 $doc_obj->associate_file($wav_filename, "doc.wav", "audio/wav", $top_section); 159 160 my $ogg_filename; 161 if ($input_ext ne "ogg") { 162 $ogg_filename = $self->convert_audio_format($filename_full_path,"ogg", "-acodec libvorbis"); 163 # $ogg_filename = $self->convert_audio_format($filename_full_path,"ogg", "-acodec libvorbis -ab 160000"); 164 } 165 else { 166 $ogg_filename = $filename_full_path; 167 } 168 $doc_obj->associate_file($ogg_filename, "doc.ogg", "audio/ogg", $top_section); 169 159 170 160 171 if ($self->{'enable_streaming'} ne "disabled") {
Note:
See TracChangeset
for help on using the changeset viewer.