Changeset 17247

Show
Ignore:
Timestamp:
11.09.2008 13:09:20 (11 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/downloaders/WebDownload.pm

    r17207 r17247  
    196196    } 
    197197 
    198     while ($strIdentifyText =~ m/^(.*)<title>(.*?)<\/title>(.*)$/s) 
     198    while ($strIdentifyText =~ m/^(.*)<title>(.*?)<\/title>(.*)$/si) 
    199199    { 
    200200    $strIdentifyText = $1.$3; 
     
    202202    } 
    203203   
    204     while ($strIdentifyText =~ m/^(.*)<meta (.*?)>(.*)$/s) 
     204    while ($strIdentifyText =~ m/^(.*)<meta (.*?)>(.*)$/si) 
    205205    { 
    206206    $strIdentifyText = $1.$3; 
     
    208208    print STDERR "\n"; 
    209209 
    210     while($strTempString =~ m/(.*?)=[\"|\'](.*?)[\"|\'](.*?)$/s) 
     210    while($strTempString =~ m/(.*?)=[\"|\'](.*?)[\"|\'](.*?)$/si) 
    211211    { 
    212212        # Store the infromation in to variable, since next time when we do