Changeset 16994
- Timestamp:
- 2008-08-25T14:45:14+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/RealMediaPlugin.pm
r16956 r16994 91 91 my $text = ""; 92 92 my $real_media = rm::Header::PurePerl->new($filename_full_path); 93 if (!defined $real_media || !defined $real_media->info) { 94 my $outhandle = $self->{'outhandle'}; 95 print $outhandle "RealMediaPlugin: $filename_no_path is not a real media file\n"; 96 return undef; 97 } 93 98 foreach my $key (keys %{$real_media->info}) 94 99 { … … 97 102 $text .= "$key: $value\n"; 98 103 } 99 104 100 105 $doc_obj->add_utf8_text($top_section, "<pre>\n$text\n</pre>"); 101 106 $doc_obj->add_metadata($top_section, "FileFormat", "RealMedia");
Note:
See TracChangeset
for help on using the changeset viewer.