home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 April / PCWorld_2008-04_cd.bin / komunikace / bitcomet / bitcomet_setup.exe / scripts / mp3_baidu.lua < prev    next >
Encoding:
Text File  |  2007-08-30  |  1.1 KB  |  44 lines
  1. ∩╗┐function url_process(linkurl, fileurl, str)
  2.     local pattern_name = "µ¡îµ¢▓σÉì∩╝Ü.->(.-)%s*...<"
  3.     local pattern_url  = "µ¡îµ¢▓σÉì∩╝Ü.-href=\"(.-)\""
  4.     local pattern_ext  = ".*(%..-)$"
  5.     local start, _, tmp
  6.  
  7.     local base_name, ext, url
  8.  
  9.     start, _, tmp = string.find(str, pattern_name)
  10.     print(start, tmp)
  11.     if start == nil then return ""  else base_name = tmp end
  12.  
  13.     start, _, tmp = string.find(str, pattern_url)
  14.     print(start, tmp)
  15.     if start == nil then return "" else url = tmp end 
  16.  
  17.     start, _, tmp = string.find(url, pattern_ext)
  18.     print(start, tmp)
  19.     if start == nil then return "" else ext = tmp end 
  20.  
  21.     return base_name .. ext
  22. end
  23.  
  24. function url_query(str)
  25.     local start
  26.     local url_table = {}
  27.     local i
  28.  
  29.     url_table[0] = "202%.108%.23%.172"
  30.     url_table[1] = "220%.181%.38%.82"
  31.  
  32.     for i = 0,1 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["mp3_baidu.lua"] = f
  44.