home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 April / PCWorld_2008-04_cd.bin / komunikace / bitcomet / bitcomet_setup.exe / scripts / soft_newhua.lua < prev    next >
Encoding:
Text File  |  2007-08-29  |  1008 b   |  40 lines
  1. ∩╗┐function url_process(linkurl, fileurl, str)
  2.     local pattern_name = "<[Tt][Ii][Tt][Ll][Ee]>(.-)%s*%- σìÄσå¢Φ╜»Σ╗╢σ¢¡.*</[Tt][Ii][Tt][Ll][Ee]>"
  3.     local pattern_ext  = ".*(%..*)$"
  4.     local start, _, tmp
  5.  
  6.     local base_name, ext
  7.  
  8.     start, _, tmp = string.find(str, pattern_name)
  9.     if start == nil then return ""  else base_name = tmp end
  10.  
  11.     start, _, tmp = string.find(linkurl, pattern_ext)
  12.     if start == nil then return "" else ext = tmp end 
  13.  
  14.     return base_name .. ext
  15. end
  16.  
  17. function url_query(str)
  18.     local start
  19.     local url_table = {}
  20.     local i
  21.  
  22.     url_table[0] = "%.onlinedown.net/soft/"
  23.     url_table[1] = "http://www.newhua.com/soft/"
  24.     url_table[2] = "http://js.newhua.com/soft/"
  25.     url_table[3] = "http://flashget.newhua.com/soft/"
  26.  
  27.     for i = 0,3 do
  28.         start = string.find(str, url_table[i])
  29.         if start ~= nil then return true end
  30.     end
  31.  
  32.     return false
  33. end
  34.  
  35.  
  36. f = {}
  37. f.process = url_process
  38. f.accept = url_query
  39. inteligent_name_table["soft_newhua.lua"] = f
  40.