Changeset 8166 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2004-09-28T13:42:16+12:00 (20 years ago)

Author:

mdewsnip

Message:

Added FileSize metadata in most plugins.

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -437 +437 @@
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding);
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}");
+    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "FileSize", (-s $filename));
+
     my ($filemeta) = $file =~ /([^\\\/]+)$/;
     # how do we know what encoding the filename is in?