home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 May / PCWorld_2007-05_cd.bin / komunikace / bitcomet / bitcomet_setup.exe / scripts / soft_tom.lua < prev    next >
Encoding:
Text File  |  2007-01-11  |  829 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_ext  = ".*(%..-)$"
  4.     local start, _, tmp
  5.  
  6.     local base_name, ext
  7.  
  8.     start, _, tmp = string.find(str, pattern_name)
  9.     if start == nil then return ""  else base_name = tmp end
  10.  
  11.     start, _, tmp = string.find(linkurl, pattern_ext)
  12.     if start == nil then return "" else ext = tmp end 
  13.  
  14.     return base_name .. ext
  15. end
  16.  
  17. function url_query(str)
  18.     local start
  19.     local pattern_url = "http://software.tech.tom.com/%d%d/%d%d%d%d/%d%d%d%d%d/"
  20.  
  21.     start = string.find(str, pattern_url)
  22.     if start == nil then return false end
  23.  
  24.     return true
  25. end
  26.  
  27. f = {}
  28. f.process = url_process
  29. f.accept = url_query
  30. inteligent_name_table["soft_tom.lua"] = f
  31.