Changeset 16994 for gsdl/trunk/perllib

Timestamp:

2008-08-25T14:45:14+12:00 (16 years ago)

Author:

kjdon

Message:

add a test for invalid real media file

File:

• gsdl/trunk/perllib/plugins/RealMediaPlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/RealMediaPlugin.pm

@@ -91 +91 @@
     my $text = "";
     my $real_media = rm::Header::PurePerl->new($filename_full_path);
+    if (!defined $real_media || !defined $real_media->info) {
+    my $outhandle = $self->{'outhandle'};
+    print $outhandle "RealMediaPlugin: $filename_no_path is not a real media file\n";
+    return undef;
+    }
     foreach my $key (keys %{$real_media->info})
     {
@@ -97 +102 @@
     $text .= "$key: $value\n";
     }
-
+    
     $doc_obj->add_utf8_text($top_section, "<pre>\n$text\n</pre>");
     $doc_obj->add_metadata($top_section, "FileFormat", "RealMedia");