Changeset 13543 for trunk/gsdl/perllib/plugins/RealMediaPlug.pm

Timestamp:

2007-01-08T16:44:31+13:00 (17 years ago)

Author:

shaoqun

Message:

fixed the bug that cause the server couldn't locate the file which is stored a subdirectory

File:

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

trunk/gsdl/perllib/plugins/RealMediaPlug.pm

@@ -105 +105 @@
     my $top_section = $doc_obj->get_top_section();
 
-    # replace spaces in filename with %20 in url for metadata entry
+    #if there's a leading directory name, eat it...
+    $file =~ s/^.*[\/\\]//;
+         
     my $url = $file;
-    $url =~ s/ /%20/g;
+  
     # Source (filename) to be consistent with other plugins
     $doc_obj->add_metadata($top_section, "Source", $url);
-
+  
+  
     my $text = "";
     my $real_media = rm::Header::PurePerl->new($filename);