home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 April / PCWorld_2008-04_cd.bin / komunikace / bitcomet / bitcomet_setup.exe / scripts / soft_21cn.lua < prev    next >
Encoding:
Text File  |  2007-01-11  |  884 b   |  32 lines
  1. ∩╗┐function url_process(linkurl, fileurl, str)
  2.     local pattern_name = "σªéµ₧£Σ╕ìΦâ╜Φç¬σè¿Σ╕ïΦ╜╜∩╝îΦ»╖τé╣σç╗Σ╕ïΘ¥óτÜäΘô╛µÄÑΦ┐¢Φíîµëïσè¿Σ╕ïΦ╜╜.-<[Ff][Oo][Nn][Tt].->%s*(.-)%s*Σ╕ïΦ╜╜</[Ff][Oo][Nn][Tt]>"
  3.     local pattern_ext  = ".*(%..-)$"
  4.     local start, _, tmp
  5.  
  6.     local base_name, ext
  7.  
  8.     start, _, tmp = string.find(str, pattern_name)
  9.     --print(start, tmp)
  10.     if start == nil then return ""  else base_name = tmp end
  11.  
  12.     start, _, tmp = string.find(linkurl, pattern_ext)
  13.     --print(start, tmp)
  14.     if start == nil then return "" else ext = tmp end 
  15.  
  16.     return base_name .. ext
  17. end
  18.  
  19. function url_query(str)
  20.     local start
  21.  
  22.     start = string.find(str, "http://dl%.it%.21cn%.com/downit%.php")
  23.     if start ~= nil then return true end
  24.  
  25.     return false
  26. end
  27.  
  28. f = {}
  29. f.process = url_process
  30. f.accept = url_query
  31. inteligent_name_table["soft_21cn.lua"] = f
  32.