home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 April / PCWorld_2008-04_cd.bin / komunikace / bitcomet / bitcomet_setup.exe / scripts / soft_zol.lua < prev   
Encoding:
Text File  |  2007-07-06  |  1.1 KB  |  44 lines
  1. ∩╗┐function url_process(linkurl, fileurl, str)
  2.     if fileurl == "" or fileurl == nil then
  3.         return ""
  4.     end
  5.  
  6.     local pattern_name = "var soft_name%s*=%s*'(.-)'"
  7.     local pattern_ext = ".*(%..*)%s*$"
  8.     local start, _, tmp
  9.  
  10.     local base_name, ext
  11.  
  12.     start, _, tmp = string.find(str, pattern_name)
  13.     if start == nil then return ""  else base_name = tmp end
  14.  
  15.     start, _, tmp = string.find(fileurl, pattern_ext)
  16.     if start == nil then return "" else ext = tmp end 
  17.  
  18.     return base_name .. ext
  19. end
  20.  
  21. function url_query(str)
  22.     local start
  23.     local url_table = {}
  24.     local i
  25.  
  26.     url_table[0] = "http://download.www.xiyuit.com/link/"  
  27.     url_table[1] = "http://www.5down.com/detail/"          
  28.     url_table[2] = "http://download.www.ea3w.com/link/"    
  29.     url_table[3] = "http://download.zol.com.cn/"           
  30.     url_table[4] = "http://download.www.fengniao.com/link/"
  31.  
  32.     for i = 0,4 do
  33.         start = string.find(str, url_table[i])
  34.         if start ~= nil then return true end
  35.     end
  36.  
  37.     return false
  38. end
  39.  
  40. f = {}
  41. f.process = url_process
  42. f.accept = url_query
  43. inteligent_name_table["soft_zol.lua"] = f
  44.