Changeset 17247 for gsdl/trunk/perllib/downloaders/WebDownload.pm

Timestamp:

2008-09-11T13:09:20+12:00 (16 years ago)

Author:

ak19

Message:

The Server Information button produced nothing for some urls, since WebDownload is doing a pattern match on lowercase html tags whereas some web pages sent by servers contain html tags in caps. Therefore the pattern matching is now set to ignore case.

File:

• gsdl/trunk/perllib/downloaders/WebDownload.pm (modified) (3 diffs)

gsdl/trunk/perllib/downloaders/WebDownload.pm

@@ -196 +196 @@
     }
 
-    while ($strIdentifyText =~ m/^(.*)<title>(.*?)<\/title>(.*)$/s)
+    while ($strIdentifyText =~ m/^(.*)<title>(.*?)<\/title>(.*)$/si)
     {
     $strIdentifyText = $1.$3;
@@ -202 +202 @@
     }
   
-    while ($strIdentifyText =~ m/^(.*)<meta (.*?)>(.*)$/s)
+    while ($strIdentifyText =~ m/^(.*)<meta (.*?)>(.*)$/si)
     {
     $strIdentifyText = $1.$3;
@@ -208 +208 @@
     print STDERR "\n";
 
-    while($strTempString =~ m/(.*?)=[\"|\'](.*?)[\"|\'](.*?)$/s)
+    while($strTempString =~ m/(.*?)=[\"|\'](.*?)[\"|\'](.*?)$/si)
     {
         # Store the infromation in to variable, since next time when we do