- Timestamp:
- 2009-07-31T17:08:27+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/gsdl-video/trunk/perllib/plugins/VideoPlugin.pm
r20003 r20111 163 163 # Generate the thumbnail with convert, a la ImagePlug 164 164 165 my $thumbnailfile = &util::filename_cat($output_dir,"$ivideo_root .$thumbnailtype");165 my $thumbnailfile = &util::filename_cat($output_dir,"$ivideo_root-thumbnail.$thumbnailtype"); 166 166 167 167 … … 172 172 } 173 173 174 ### print STDERR "**** creating thumbnail: $thumbnail_width x $thumbnail_height\n"; 175 174 176 my ($thumb_cmd ,$othumb_filename) 175 177 = $self->keyframe_thumbnail_cmd($filename,$thumbnailfile,$thumbnail_width,$thumbnail_height); … … 265 267 # make the screenview image 266 268 267 my $screenviewfilename = &util::filename_cat($output_dir,"$ivideo_root .$screenviewtype");269 my $screenviewfilename = &util::filename_cat($output_dir,"$ivideo_root-screenview.$screenviewtype"); 268 270 269 271 … … 452 454 453 455 # split filename on char if specified 454 if ($file_unicode =~ m/\-/) { 456 if (0) { 457 # don't do any more 458 # if ($file_unicode =~ m/\-/) { 455 459 456 460 my @file_split = split(/\s*\-\s*/,$file_unicode); … … 610 614 } 611 615 612 613 616 if (($self->{'enablestreaming'}) && ($self->{'extractkeyframes'})) { 614 617 my $section = $doc_obj->get_top_section(); … … 625 628 $self->run_general_cmd($streamkeyframes_cmd,$streamkeyframes_options); 626 629 } 630 631 my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file); 632 my $section = $doc_obj->get_top_section(); 633 634 $self->title_fallback($doc_obj,$section,$filename_no_path); 627 635 628 636 $self->{'media_type'} = undef;
Note:
See TracChangeset
for help on using the changeset viewer.