home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 May / PCWorld_2008-05_cd.bin / komunikace / bitcomet / bitcomet_setup.exe / scripts / soft_sina.lua < prev    next >
Encoding:
Text File  |  2007-07-06  |  853 b   |  36 lines
  1. ∩╗┐function url_process(linkurl, fileurl, str)
  2.     if fileurl == "" or fileurl == nil then
  3.         return ""
  4.     end
  5.  
  6.     local pattern_name = "mainleft_titlesoft.-<.->(.-)</"
  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 pattern_url = "http://down%d%.tech.sina.com.cn/download/"
  24.  
  25.     start = string.find(str, pattern_url)
  26.     if start == nil then return false end
  27.  
  28.     return true
  29. end
  30.  
  31.  
  32. f = {}
  33. f.process = url_process
  34. f.accept = url_query
  35. inteligent_name_table["soft_sina.lua"] = f
  36.