Changeset 21600 for gs3-extensions/pharos-videois

Timestamp:

2010-01-25T14:19:15+13:00 (14 years ago)

Author:

davidb

Message:

index each keyframe for each section

File:

• gs3-extensions/pharos-videois/trunk/perllib/plugins/PharosVideoPlugin.pm (modified) (2 diffs)

gs3-extensions/pharos-videois/trunk/perllib/plugins/PharosVideoPlugin.pm

@@ -73 +73 @@
 }
 
-sub removeold {
+sub remove_all {
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
     
-    $self->SUPER::removeold(@_);
-    $self->PharosImageIndexer::removeold(@_);
+    $self->SUPER::remove_all(@_);
+    $self->PharosImageIndexer::remove_all(@_);
    
 }
+
+sub remove_one {
+    my $self = shift (@_);
+    my ($file, $oids, $archivedir) = @_;
+    return undef if (!$self->can_process_this_file($file));
+    
+    $self->PharosImageIndexer::remove_one(@_);
+    return $self->SUPER::remove_one(@_);
+        
+}
+
 
 sub post_process_doc_obj {
@@ -86 +97 @@
     # options??
     my ($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
-    $self->pharos_index_image(&util::filename_cat($base_dir, $file), $doc_obj);
+
+    my $topsection = $doc_obj->get_top_section();
+
+    my $assoc_files = $doc_obj->get_assoc_files();
+
+
+    my $docid = $doc_obj->get_OID();
+
+    foreach my $ar (@$assoc_files) {
+    my ($real_filename,$afile,$mimetype,$section) = @$ar;
+    if ($afile =~ m/^keyframe/) {
+
+        my $secid = $docid;
+        if ($section ne "") {
+        $secid .= ".$section";
+        }
+
+        $self->pharos_index_image($real_filename, $doc_obj, $secid);
+    }
+    }
 }