home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 May / PCWorld_2008-05_cd.bin / komunikace / bitcomet / bitcomet_setup.exe / scripts / soft_pchome.lua < prev    next >
Encoding:
Text File  |  2007-07-06  |  825 b   |  31 lines
  1. ∩╗┐function url_process(linkurl, fileurl, str)
  2.     --local pattern_name = "<[Tt][Ii][Tt][Ll][Ee]>%s*(.-)%s*</[Tt][Ii][Tt][Ll][Ee]>"
  3.     local pattern_name = "<[Hh]1><[Aa].->(.-)</[aA]>"
  4.     local pattern_ext  = "url=.*(%..-)&svr"
  5.     local start, _, tmp
  6.  
  7.     local base_name, ext
  8.  
  9.     start, _, tmp = string.find(str, pattern_name)
  10.     if start == nil then return ""  else base_name = tmp end
  11.  
  12.     start, _, tmp = string.find(linkurl, pattern_ext)
  13.     if start == nil then return "" else ext = tmp end 
  14.  
  15.     return base_name .. ext
  16. end
  17.  
  18. function url_query(str)
  19.     local start
  20.  
  21.     start = string.find(str, "http://download%.pchome%.net/")
  22.     if start ~= nil then return true end
  23.  
  24.     return false
  25. end
  26.  
  27. f = {}
  28. f.process = url_process
  29. f.accept = url_query
  30. inteligent_name_table["soft_pchome.lua"] = f
  31.