HandyCache форум

--[[ <HCExtension>
@name          Example
@author        alex208210
@version       0.01
@description   Проба
@event         RequestHeaderReceived/request
</HCExtension> ]]

function GetRelPath(s)
  _,_,x = string.find(s, "^http://[^/]+/(.*)")
  x,_ = string.gsub(x, "/", "\\")
  return x
end

function request()
  hc.answer_header=
  'HTTP/1.1 200 OK\r\n'..
  'Server: HandyCache\r\n'..
  'Content-Type: text/html\r\n'..
  'Pragma: no-cache\r\n'..
  'Cache-control: no-cache, must-revalidate, no-store\r\n'..
  'Connection: close\r\n\r\n'

  catalog = "C:\\Downloads\\"
  rel_path = GetRelPath(hc.url)
  hc.answer_body = "file="..catalog..rel_path
end

@rule          http://stat\.local

function GetContentLength(s)
  _,_,x= string.find(s, "[cC]ontent%-[lL]ength: (%d*)")
  if x==nil then return 0 else return tonumber(x) end
end

function main()
  x= GetContentLength(hc_header)
  if x>999 then os.execute([["d:\Program\HandyCache\lua\invmp3.exe d:\Program\HandyCache\lua\beep.mp3"]]) end
end

--[[ <HCExtension>
@name          Beeper
@author        ____
@version       0.02
@description   ____
@event         AnswerHeaderReceived/answer
</HCExtension> ]]

function GetContentLength(s)
  _,_,x= string.find(s, "[cC]ontent%-[lL]ength: (%d*)")
  if x==nil then return 0 else return tonumber(x) end
end

function answer()
  x= GetContentLength(hc.answer_header)
  if x>999 then os.execute([["d:\Program\HandyCache\lua\invmp3.exe d:\Program\HandyCache\lua\beep.mp3"]]) end
end

function main() 

 if hc_user_name == 'user_name' and hc_user_from_internet > 26214400 then
  hc_action = 'only_from_cache'
 end

end

--[[ <HCExtension>
@name          For_hc_user
@author        ___
@version       0.01
@description   Блокирует пользователя при переборе трафика
@event         RequestHeaderReceived/request
</HCExtension> ]]
function request() 

 if hc.user_name == 'user_name' and hc.user_from_internet > 26214400 then
  hc.action = 'only_from_cache'
 end

end

!divinets.ru
#.* <script=lua\block_long_file_by_time.lua>
<new_block>

--*****************************************************************
-- Скрипт для HandyCache v 1.00 RC1 (1.0.0.11) и выше
-- Автор: DenZzz
-- Назначение: Блокировать загрузку больших файлов в зависимости
--             от системного времени
--*****************************************************************

function GetContentLength(s)
  _,_,x = string.find(s, "[cC]ontent%-[lL]ength: *(%d+)")
  if x==nil then return -1 else return tonumber(x) end
end


function main()
 
 -- Узнаем текущее системное время
  time = os.date("*t")

 if time.hour >= 18 then
 -- забираем размер файла из заголовка "Content-Length" 
  len = GetContentLength(hc_header)
   -- если размер файла есть в заголовке и он больше 512 KБайт
      if len > 1048576 then
     -- и действие HC еще не присвоено или присвоено "Сохранять", то блокировать загрузку
      if hc_action=="" or hc_action==nil or hc_action=="save" then
        hc_action = "stop"
      end
    end
 end

 if time.hour >= 0 and time.hour < 3 then
 -- забираем размер файла из заголовка "Content-Length" 
  len = GetContentLength(hc_header)
   -- если размер файла есть в заголовке и он больше 10 МБайт
      if len > 52428800 then
     -- и действие HC еще не присвоено или присвоено "Сохранять", то блокировать загрузку
      if hc_action=="" or hc_action==nil or hc_action=="save" then
        hc_action = "stop"
      end
    end
 end

 if time.hour >= 3 and time.hour < 6 then
 -- забираем размер файла из заголовка "Content-Length" 
  len = GetContentLength(hc_header)
   -- если размер файла есть в заголовке и он больше 10 МБайт
      if len > 252428800 then
     -- и действие HC еще не присвоено или присвоено "Сохранять", то блокировать загрузку
      if hc_action=="" or hc_action==nil or hc_action=="save" then
        hc_action = "stop"
      end
    end
 end
 
 if time.hour >= 6 and time.hour < 20 then
 -- забираем размер файла из заголовка "Content-Length" 
  len = GetContentLength(hc_header)
   -- если размер файла есть в заголовке и он больше 10 МБайт
      if len > 8388608 then
     -- и действие HC еще не присвоено или присвоено "Сохранять", то блокировать загрузку
      if hc_action=="" or hc_action==nil or hc_action=="save" then
        hc_action = "stop"
      end
    end
 end

end

; Файл-список скриптов LUA для обработки заголовков запросов клиентов
;--------------------------------------------------------------------

#.  <script=lua\_dont_update_image_by_type_in_cache.lua>

# !#\b(imageshack\.us|photofile\.ru|radikal\.ru)/
#.  <script=lua\_block_external_links.lua>

; Файл-список скриптов LUA для обработки заголовков ответов серверов
;-------------------------------------------------------------------

#.  <script=lua\save_or_block_403_and_404.lua>
#/favicon\.ico$  <script=lua\save_404.lua>
#.  <script=lua\dont_update_image_by_type.lua>
#.  <script=lua\dont_update_file_by_size.lua>
;#.  <script=lua\block_long_file.lua>

--[[ <HCExtension>
@name          BlockLongFiles
@author        DenZzz
@version       0.02
@description   Блокировать загрузку больших файлов в зависимости от системного времени
@exception     divinets.ru
@event         AnswerHeaderReceived/answer
</HCExtension> ]]

function GetContentLength(s)
  _,_,x = string.find(s, "[cC]ontent%-[lL]ength: *(%d+)")
  if x==nil then return -1 else return tonumber(x) end
end


function answer()
 
 -- Узнаем текущее системное время
  time = os.date("*t")

 if time.hour >= 18 then
 -- забираем размер файла из заголовка "Content-Length" 
  len = GetContentLength(hc.answer_header)
   -- если размер файла есть в заголовке и он больше 512 KБайт
      if len > 1048576 then
     -- и действие HC еще не присвоено или присвоено "Сохранять", то блокировать загрузку
      if hc.action=="" or hc.action==nil or hc.action=="save" then
        hc.action = "stop"
      end
    end
 end

 if time.hour >= 0 and time.hour < 3 then
 -- забираем размер файла из заголовка "Content-Length" 
  len = GetContentLength(hc.answer_header)
   -- если размер файла есть в заголовке и он больше 10 МБайт
      if len > 52428800 then
     -- и действие HC еще не присвоено или присвоено "Сохранять", то блокировать загрузку
      if hc.action=="" or hc.action==nil or hc.action=="save" then
        hc.action = "stop"
      end
    end
 end

 if time.hour >= 3 and time.hour < 6 then
 -- забираем размер файла из заголовка "Content-Length" 
  len = GetContentLength(hc.answer_header)
   -- если размер файла есть в заголовке и он больше 10 МБайт
      if len > 252428800 then
     -- и действие HC еще не присвоено или присвоено "Сохранять", то блокировать загрузку
      if hc.action=="" or hc.action==nil or hc.action=="save" then
        hc.action = "stop"
      end
    end
 end
 
 if time.hour >= 6 and time.hour < 20 then
 -- забираем размер файла из заголовка "Content-Length" 
  len = GetContentLength(hc.answer_header)
   -- если размер файла есть в заголовке и он больше 10 МБайт
      if len > 8388608 then
     -- и действие HC еще не присвоено или присвоено "Сохранять", то блокировать загрузку
      if hc.action=="" or hc.action==nil or hc.action=="save" then
        hc.action = "stop"
      end
    end
 end

end

--[[ <HCExtension>
@name          block
@author        alex208210
@version       0.01
@description   Блокировка определенных url определенным пользователям
@event         RequestHeaderReceived/block
</HCExtension> ]]

function FindUrl(s)
  x,_ = string.find(hc.url, s)
  return x
end

function block()
 if (hc.user_name == "Alex" or hc.user_name == "user") and 
   FindUrl("sex%.ru") or
   FindUrl("mail%.ru") then
  hc.action = "stop"
 end

end

--[[ <HCExtension>
@name          allow
@author        DenZzz
@version       0.01
@description   Разрешение определенных url определенным пользователям
@event         RequestHeaderReceived/allow
</HCExtension> ]]


function FindUrl(s)
  x,_ = string.find(hc.url, s)
  return x
end

function allow()

 if (hc.user_name == "xarakor") and 
   FindUrl("net.kanal7%.ru")==nil and
   FindUrl("forum.kanal7%.ru")==nil and
   FindUrl("love.kanal7%.ru")==nil and
   FindUrl("news.kanal7%.ru")==nil and
   FindUrl("games.kanal7%.ru")==nil and
   FindUrl("video.kanal7%.ru")==nil and
 FindUrl("job.kanal7%.ru")==nil and
   FindUrl("foto.kanal7%.ru")==nil and
   FindUrl("job.kanal7%.ru")==nil and
   FindUrl("192.168.66.129")==nil and
   FindUrl("http://radio.kanal7.ru")==nil and
   FindUrl("http://wsus.kanal7.ru/nod2/")==nil and
   FindUrl("cinema.kanal7%.ru")==nil and
    FindUrl("https://webim.qip.ru:5222")==nil and
   FindUrl("https://login.icq.com:443")==nil then
  hc.action = "stop"
 end
end

--[[ <HCExtension>
@name          Не сохранять видео по типу с сервера (A-vid Dont_save )
@author        DenZzz
@version       0.1 для HC v1.00 RC2 (1.0.0.180) и возможно выше
@description   Не сохранять видео по типу файла в заголовке ответа сервера
@event         AnswerHeaderReceived/Answer
</HCExtension> ]]


function GetContentType(s)
  _,_,x = string.find(s, '[cC]ontent%-[tT]ype: *([^;\r\n]+)')
  if x~=nil then x = string.lower(x) end
  return x
end


function Answer()

 -- Только для GET-запросов
  if hc.method == 'GET' then

   -- забираем тип файла из заголовка 'Content-Type'
    type = GetContentType(hc.answer_header)
   -- есть ли в поле заголовка 'Content-Type' слово 'video'
    if type~=nil then vid = string.find(type,'video',1,true) 
    else vid = nil  end

      if vid~=nil then
            hc.action = 'dont_save'
            hc.monitor_string = hc.monitor_string..'A-vid Dont_save '
      end
  end

end  -- Конец функции Answer

--[[ <HCExtension>
@name          block with sound
@author        mai62
@version       0.01
@description   Блокирует загрузку и выдает звуковой сигнал
@rule            sex
@event         RequestHeaderReceived/request
</HCExtension> ]]


function request()
  hc.action = "stop"
  hc.play_sound('Windows Critical Stop.wav')
  hc.monitor_string = hc.monitor_string.."block with sound "
end

--[[ <HCExtension>
@name          For_hc_user
@author        ___
@version       0.01
@description   Блокирует пользователя при переборе трафика
@exception    webim\.qip\.ru:5222
@exception    login\.icq\.com:443
@event         RequestHeaderReceived/request
</HCExtension> ]]


function request() 

 if hc.user_name == 'ww' and hc.user_from_internet > 30*1024*1024 then
  hc.action = 'stop'
 end

 if hc.user_name == 'pecherer' and hc.user_from_internet > 20*1024*1024 then
  hc.action = 'stop'
 end

 if hc.user_name == 'taxist' and hc.user_from_internet > 20*1024*1024 then
  hc.action = 'stop'
 end
 
 if hc.user_name == 'puto' and hc.user_from_internet > 15*1024*1024 then
  hc.action = 'stop'
 end

end

if ref_host~='yandex' and ref_host~='google' and ref_host~='ru-board' then

--[[ <HCExtension>
@name          Разные внешние прокси для разных браузеров (R-Proxy)
@author        DenZzz
@version       0.1 для HC v1.00 RC2 (1.0.0.180) и возможно выше
@description   Переключает внешние прокси в зависимости от браузеров
@event         RequestHeaderReceived/Request
</HCExtension> ]]


function Request()

 if re.match(hc.request_header, [[User-Agent:[^\r\n]*Opera]]) then
  hc.use_proxy = '192.168.55.2:8080'
 end

 if re.match(hc.request_header, [[User-Agent:[^\r\n]*Firefox]]) then
  hc.use_proxy = '10.0.0.1:8080'
 end

end  -- Конец функции Request

@exception     http://distrib\.khv\.data\.cod\.ru/

--[[ <HCExtension>
@name          Внешний прокси в зависимости от пользователя и сайта (R-Proxy)
@author        DenZzz
@version       0.1 для HC v1.00 RC2 (1.0.0.193) и возможно выше
@description   Включает внешний прокси в зависимости от пользователя и сайта
@event         BeforeRequestHeaderSend/Request
</HCExtension> ]]

function Request()
 if hc.user_name == 'Vasay' and re.match(hc.url, [[site\.ru]]) then
  hc.use_proxy = '192.168.55.2:8080'
 end
end

--[[ <HCExtension>
@name          Proxy (R-prx)
@author        igorek
@version       0.1
@description   Dinamic Proxy
@rule          test1.ru
@event         BeforeRequestHeaderSend/Request
</HCExtension> ]]

function Request()
      hc.put_to_log('Proxy='..hc.use_proxy) -- почему пустая строка,хотя включена прокси через toonel в безусловных прокси
      hc.use_proxy='localhost:80' --Server Apache
      if hc.offline_on then 
         -- hc.execute_cmd('LoadURL') Не срабатывает
	        hc.execute_cmd('OffLine off') -- тоже не срабатывает
	     end	
      hc.action='dont_save'      
      hc.monitor_string = hc.monitor_string..'R-Prx'
      end
end  -- Конец функции Request

  hc.use_proxy='localhost:80' --Server Apache
  if hc.offline_on then 
    hc.execute_cmd('OffLine off') --эффекта нет
    --hc.execute_cmd('OffLine off') -эффекта нет
    hc.execute_cmd('LoadURL'..hc.url)	   
  end

  hc.use_proxy='localhost:80' --Server Apache
  if not hc.offline_on then     
    hc.execute_cmd('LoadURL'..hc.url)
    hc.execute_cmd('OffLine on') --переключается
    --hc.execute_cmd('OffLine switch') --переключается
  end

  if not hc.offline_on then 
   hc.execute_cmd('OffLine switch') -- OffLine on
  else 
    if hc.offline_on then 
      hc.execute_cmd('OffLine switch') --Offline off
    end
  end

--[[ <HCExtension>
@name          Proxy (R-prx)
@author        igorek
@version       0.1
@description   Dinamic Proxy
@rule          test1.ru
@event         RequestHeaderReceived/Online
@event         BeforeRequestHeaderSend/Request
</HCExtension> ]]

function Online()
	if hc.offline_on then hc.execute_cmd('OffLine Off')  end	
end

function Request()
  hc.use_proxy='localhost:80' --Server Apache
	-- hc.execute_cmd('LoadURL '..hc.url) --вылетает в цикл
  hc.action='dont_save'      
  hc.monitor_string = hc.monitor_string..'R-Prx'

end  -- Конец функции Request

http://v5.lscache7.c.youtube.com/videoplayback?ip=0.0.0.0&sparams=id%2Cexpire%2Cip%2Cipbits
2Citag%2Cburst%2Cfactor&fexp=903204&itag=34&ipbits=0&signature=A8892B8F8616DDBD5028BDB0C0CA61871E69EC94.9C30AE82B8CFE9DDF6FEB54407FF1F968D85E986&sver=3&expire=1254042000&key=yt1&factor=1.25&burst=40&id=0440ef006ab67440

--[[ <HCExtension>
@name          Transform File
@author        igorek
@version       0.1
@description   Преобразовать имена файлов(и переместить) в связи с обновлением списка Преобразование URL
@event         Init/init
@event         Options/options
</HCExtension> ]]
function CacheToURL(str)
  local url=str
  url=string.gsub(url,hc.cache_path, "");
  --url=string.gsub(url,[[\|.*]], ""); -- удаляем имя файла внутри архива gzip
  url=string.gsub(url,"#_", ""); -- удаляем #_ в конце
  url=string.gsub(url,"^\\", "?",1); -- ^\ -> ?
  url=string.gsub(url,"!", ":",1); -- ! -> :
  url=string.gsub(url,"\\", "/"); -- \ -> /
  url='http://'..url;
  return url
end

--[[ <HCExtension>
@name          Разные внешние прокси для разных браузеров (RS-Proxy)
@author        DenZzz
@version       0.3 для HC v1.00 RC2 (1.0.0.184) и выше
@description   Переключает внешние прокси в зависимости от браузеров
@event         BeforeRequestHeaderSend/RequestSend
</HCExtension> ]]


function RequestSend()
	if re.match(hc.request_header, [[^User-Agent:[^\r\n]*Opera/9\.8]]) then
		hc.use_proxy = '127.0.0.1:8081'
		hc.monitor_string = hc.monitor_string..'RS-Proxy-1 '
	elseif re.match(hc.request_header, [[^User-Agent:[^\r\n]*MSIE]]) then
		hc.use_proxy = '10.0.0.1:8080'
		hc.monitor_string = hc.monitor_string..'RS-Proxy-2 '
	end
end

метка_А: 
Ждать n сек.
Начало цикла
  Если траффик клиента за последние n сек. >a КБ 
     то        запустить bat1.bat 
                переход на метка_Б 
     иначе  ждать n сек.
                переход в начало цикла  
Конец цикла

метка_Б:
Ждать m сек. 
Начало цикла
  Если траффик клиента за последние m сек. <b КБ 
      то        запустить bat2.bat
                 переход на метка_А   
      иначе  ждать m сек.
                 переход в начало цикла  
Конец цикла

   last_traffic=hc_user_to_internet+hc_user_from_cache+hc_user_from_internet

--[[ <HCExtension>
@name          Сторож сетевой активности клиентов
@author        k_ok_o_s
@version       1.0 
@description   Автоматическое изменения скорости работы FDM в зависимости от сетевой активности клиентов HC
@event         Init/Main
</HCExtension> ]]


function Main()
--если за n сек. траффик >a Кб., то скорость FDM снижается
n=3
a=10
--если за m сек. траффик <b Кб., то скорость FDM повышается
m=60
b=300

 while n~=nil do 
  repeat 
   last_traffic=hc_user_to_internet+hc_user_from_cache+hc_user_from_internet
   sleep(n)
   --print(last_traffic)
  until ((hc_user_to_internet+hc_user_from_cache+hc_user_from_internet-last_traffic)>a*1024)
  --hc.shell_execute('fdm_speed_down.exe', nil, nil, 'SW_HIDE')
  hc.put_msg(2, 'Скорость FDM снижена')
 
  repeat 
   last_traffic=hc_user_to_internet+hc_user_from_cache+hc_user_from_internet
   sleep(m)
   --print(last_traffic)
  until ((hc_user_to_internet+hc_user_from_cache+hc_user_from_internet-last_traffic)<b*1024)
  --hc.shell_execute('fdm_speed_up.exe', nil, nil, 'SW_HIDE')
  hc.put_msg(2, 'Скорость FDM повышена')
 end
end

; Файл-список скриптов LUA для обработки заголовков ответов серверов
;-------------------------------------------------------------------

#.  <script=lua\save_or_block_403_and_404.lua>
#/favicon\.ico$  <script=lua\save_404.lua>
#.  <script=lua\dont_update_image_by_type.lua>
#.  <script=lua\dont_update_file_by_size.lua>
#.  <script=lua\block_long_file.lua>

; Файл-список скриптов LUA для обработки заголовков запросов клиентов
;--------------------------------------------------------------------

#.  <script=lua\_dont_update_image_by_type_in_cache.lua>

!#\b(imageshack\.us|photofile\.ru|radikal\.ru)/
#.  <script=lua\_block_external_links.lua>

--[[ <HCExtension>
@name          Сторож сетевой активности клиентов
@author        k_ok_o_s
@version       1.0 
@description   Автоматическое изменения скорости работы FDM в зависимости от сетевой активности клиентов HC
@event         Init/Main
</HCExtension> ]]


function Main()
--если за n сек. траффик >a Кб., то скорость FDM снижается
n=3
a=10
--если за m сек. траффик <b Кб., то скорость FDM повышается
m=60
b=300

 while n~=nil do 
  repeat 
   last_traffic=hc.user_to_internet+hc.user_from_cache+hc.user_from_internet
   hc.sleep(n)
   delta_traffic=hc.user_to_internet+hc.user_from_cache+hc.user_from_internet-last_traffic
   hc.put_msg(2, "За последние "..n.." сек. траффик составил "..delta_traffic.." Кб.")
  until ((hc.user_to_internet+hc.user_from_cache+hc.user_from_internet-last_traffic)>a*1024)
  --hc.shell_execute('fdm_speed_down.exe', nil, nil, 'SW_HIDE')
  hc.put_msg(2, 'Скорость FDM снижена')
 
  repeat 
   last_traffic=hc.user_to_internet+hc.user_from_cache+hc.user_from_internet
   hc.sleep(m)
   hc.put_msg(2, "За последние "..m.." сек. траффик составил "..(hc.user_to_internet+hc.user_from_cache+hc.user_from_internet-last_traffic).." Кб.")
  until ((hc.user_to_internet+hc.user_from_cache+hc.user_from_internet-last_traffic)<b*1024)
  --hc.shell_execute('fdm_speed_up.exe', nil, nil, 'SW_HIDE')
  hc.put_msg(2, 'Скорость FDM повышена')
 end
end

--[[ <HCExtension>
@name          Сторож сетевой активности клиентов
@author        k_ok_o_s
@version       1.0 
@description   Автоматическое изменения скорости работы FDM в зависимости от сетевой активности:
               1)клиентов HC (на локальном ПК)
			   2)пользователя из локальной сети, совместно с кот. используется интернет-канал
@event		   Init/Init
@event         BeforeAnswerBodySend/BeforeAnswerBodySend
</HCExtension> ]]

function Init()
   dir="C:\\Soft\\AU3_Client-Server_speed\\"              --папка со скриптами:
   
   n=3                                                    --если за n сек. траффик >a Кб. , то скорость FDM снижается
   a=10
   m=60                                                   --если за m сек. траффик <b Кб. , то скорость FDM повышается
   b=300
   
   last_traffic=0
   hc.set_global('current_traffic', 0)
    
   while 1 do
      repeat
         hc.sleep(n*1000)       
         traffic=hc.get_global('current_traffic')
         delta_traffic=traffic-last_traffic
         last_traffic=traffic
         hc.put_msg(2, "За последние "..n.." сек. траффик составил "..(delta_traffic/1024).." Кб.")
      until delta_traffic>(a*1024)
     
      --hc.shell_execute(dir..'FdmSpeedToMin.exe', nil, nil, 'SW_HIDE')
      hc.put_msg(2, 'Скорость FDM снижена')
   
      repeat 
         hc.sleep(m*1000)
         traffic=hc.get_global('current_traffic')
         delta_traffic=traffic-last_traffic
         last_traffic=traffic
         hc.put_msg(2, "За последние "..m.." сек. траффик составил "..(delta_traffic/1024).." Кб.")
      until delta_traffic<(b*1024)
   	
      ClientLowState = io.open(dir.."SpeedOfClientIsLow.tmp")     --Эта функция открывает файл в режиме, указанном в строке mode. Возвращает хендлер файла, или, в случае ошибок, nil и сообщение об ошибке.
      if not ClientLowState then
         --hc.shell_execute(dir..'FdmSpeedToMax.exe', nil, nil, 'SW_HIDE')
         hc.put_msg(2, 'Скорость FDM повышена')	
      end
   end
end

function BeforeAnswerBodySend()
   hc.set_global('current_traffic', (hc.user_to_internet+hc.user_from_cache+hc.user_from_internet))
end

--[[ <HCExtension>
@name          Сторож сетевой активности клиентов
@author        k_ok_o_s
@version       1.0 
@description   Автоматическое изменения скорости работы FDM в зависимости от сетевой активности:
               1)клиентов HC (на локальном ПК)
			   2)пользователя из локальной сети, совместно с кот. используется интернет-канал
@event		   Init/Init
@event         Timer1s/Timer1s 
@event         RequestHeaderReceived/RequestHeaderReceived
</HCExtension> ]]

function Init()
   dir="C:\\Soft\\AU3_Client-Server_speed\\"              --папка со скриптами:
   n=3                                                    --если за n сек. траффик >a Кб. , то скорость FDM снижается
   a=10
   m=60                                                   --если за m сек. траффик <b Кб. , то скорость FDM повышается
   b=300
   hc.set_global('last_traffic', 0)
   hc.set_global('current_traffic', 0)
   hc.set_global('time_counter', 0)
   hc.set_global('job_switch', 'wait_for_high_traffic')
   end

function Timer1s()
hc.set_global('time_counter', (hc.get_global('time_counter')+1))
   if job_switch=="wait_for_high_traffic" and hc.get_global('time_counter')==n then
      hc.put_msg(2, "За последние "..n.." сек. траффик составил "..((hc.get_global('current_traffic')-hc.get_global('last_traffic'))/1024).." Кб.")
	  if (hc.get_global('current_traffic')-hc.get_global('last_traffic'))>(a*1024) then
	     --hc.shell_execute(dir..'FdmSpeedToMin.exe', nil, nil, 'SW_HIDE')
         hc.put_msg(2, 'Скорость FDM снижена')
		 hc.set_global('job_switch', 'wait_for_low_traffic')
	  end
	  hc.set_global('last_traffic', hc.get_global('current_traffic'))
	  
   elseif job_switch=="wait_for_low_traffic" and hc.get_global('time_counter')==m then
      hc.put_msg(2, "За последние "..m.." сек. траффик составил "..((hc.get_global('current_traffic')-hc.get_global('last_traffic'))/1024).." Кб.")
	  if ((hc.get_global('current_traffic')-hc.get_global('last_traffic'))<(b*1024)) and not io.open(dir.."SpeedOfClientIsLow.tmp") then
	     --hc.shell_execute(dir..'FdmSpeedToMax.exe', nil, nil, 'SW_HIDE')
         hc.put_msg(2, 'Скорость FDM повышена')
		 hc.set_global('job_switch', 'wait_for_high_traffic')
	  end
	  hc.set_global('last_traffic', hc.get_global('current_traffic'))
   end	  
end

function RequestHeaderReceived()
   hc.set_global('current_traffic', (hc.user_to_internet+hc.user_from_cache+hc.user_from_internet))
end

--[[ <HCExtension>
@name          block files by time
@author        mai62
@version       0.01
@description   Блокирует некоторые URL по времени
@rule          announce\?info_hash=%
@event         RequestHeaderReceived/request
</HCExtension> ]]

function request()
 -- Узнаем текущее системное время
  time = os.date("*t")
 -- Если системное время с 17:00 до 23:00, то
 if time.hour >= 17 and time.hour <= 23 then
    hc_action = "stop"
 end

end

--[[ <HCExtension>
@name         Менять User-Agent в заголовках запросов на свой
@event        RequestHeaderReceived/Request
</HCExtension> ]]

function Request()
	hc.request_header = re.replace(hc.request_header, [[^User-Agent: \K[^\r\n]+]], 'My_Agent')
end

--[[ <HCExtension>
@name          Блокировать загрузку больших файлов в зависимости от времени (A-long-T)
@author        DenZzz
@version       1.2 для HC v1.00 RC2 (1.0.0.175) и возможно выше
@description   Блокирует загрузку больших файлов в зависимости от системного времени
@event         AnswerHeaderReceived/Answer
</HCExtension> ]]


function GetContentLength(s)
  _,_,x = string.find(s, '[cC]ontent%-[lL]ength: *(%d+)')
  if x==nil then return -1 else return tonumber(x) end
end


function Answer()
 
 -- Узнаем текущее системное время
 local time = os.date("*t")
 -- Если системное время с 20:00 до 24:00, то
 if time.hour >= 10 then

  -- забираем размер файла из заголовка 'Content-Length'
  local len = GetContentLength(hc.answer_header)

   -- если размер файла есть в заголовке и он больше 10 МБайт
    if len > 10485760 then
     -- и действие HC еще не присвоено или присвоено 'Сохранять', то блокировать загрузку
      if hc.action=='' or hc.action==nil or hc.action=='save' or hc.action=='save-' then
        hc.answer_body = "file=c:\\obed.htm"
        hc.action = 'stop'
        hc.put_msg(10, GetContentLength(hc.answer_body))
        hc.monitor_string = hc.monitor_string ..'A-long-T'
      end
    end
 end
end  -- Конец функции Answer

           <html>
             <head>
             </head>

             <body>
<b>xaxax</b>
             </body>

           </html>

function Answer()

 -- Только для GET-запросов
  if hc.method == 'GET' then

   -- забираем тип файла из заголовка 'Content-Type'
    type = GetContentType(hc.answer_header)
   -- есть ли в поле заголовка 'Content-Type' слово 'image'
    if type~=nil then img = string.find(type,'image',1,true) 
    else img = nil  end
   -- забираем размер файла из заголовка 'Content-Length' 
    len = GetContentLength(hc.answer_header)

      if img~=nil then
         -- если это картинка и ее размер больше 100 кбайт
          if len > 100*1024 then
           -- то блокируем загрузку
            hc.action = 'stop-'
            hc.monitor_string = hc.monitor_string..'block-img '
          end  
      end
  end

end  -- Конец функции Answer

--[[ <HCExtension>
@name          Блокировать загрузку больших файлов в зависимости от времени (A-long-T)
@author        DenZzz
@version       1.2 для HC v1.00 RC2 (1.0.0.175) и возможно выше
@description   Блокирует загрузку больших файлов в зависимости от системного времени
@event         AnswerHeaderReceived/Answer
</HCExtension> ]]


function GetContentLength(s)
  _,_,x = string.find(s, '[cC]ontent%-[lL]ength: *(%d+)')
  if x==nil then return -1 else return tonumber(x) end
end


function Answer()
 
 -- Узнаем текущее системное время
 local time = os.date("*t")
 -- Если системное время с 20:00 до 24:00, то
 if time.hour >= 10 then

  -- забираем размер файла из заголовка 'Content-Length'
  local len = GetContentLength(hc.answer_header)

   -- если размер файла есть в заголовке и он больше 10 МБайт
    if len > 10485760 then
     -- и действие HC еще не присвоено или присвоено 'Сохранять', то блокировать загрузку
      if hc.action=='' or hc.action==nil or hc.action=='save' or hc.action=='save-' then
        hc.answer_body = "file=c:\\obed.htm"
        hc.action = 'stop'
        hc.put_msg(10, GetContentLength(hc.answer_body))
        hc.monitor_string = hc.monitor_string ..'A-long-T'
      end
    end
 end
end  -- Конец функции Answer

--[[ <HCExtension>
@name          Блокировать загрузку больших файлов в зависимости от времени (A-long-T)
@author        DenZzz
@version       1.2 для HC v1.00 RC2 (1.0.0.175) и возможно выше
@description   Блокирует загрузку больших файлов в зависимости от системного времени
@event         AnswerHeaderReceived/Answer
</HCExtension> ]]


function GetContentLength(s)
  _,_,x = string.find(s, '[cC]ontent%-[lL]ength: *(%d+)')
  if x==nil then return -1 else return tonumber(x) end
end


function Answer()
 
 -- Узнаем текущее системное время
 
 -- Если системное время с 20:00 до 24:00, то
 

  -- забираем размер файла из заголовка 'Content-Length'
  local len = GetContentLength(hc.answer_header)

   -- если размер файла есть в заголовке и он больше 10 МБайт
    if len > 3000000 then
     -- и действие HC еще не присвоено или присвоено 'Сохранять', то блокировать загрузку
      if hc.action=='' or hc.action==nil or hc.action=='save' or hc.action=='save-' then
        hc.answer_body = "file=D:\\HandyCache\Extensions\obed.htm"
		hc.answer_header = 'stop'
                
        hc.put_msg(10, GetContentLength(hc.answer_body))
        hc.monitor_string = hc.monitor_string ..'A-long-T'
      end
    end
 end
end  -- Конец функции Answer

--[[ <HCExtension>
@name          Ignore no-store
@rule          finam\.ru/sp/=.*=42.jpg
@event         AnswerHeaderReceived/Answer
</HCExtension> ]]

function Answer()
  hc.action = 'save'
  hc.monitor_string = hc.monitor_string ..'Ignore no-store'
end

--[[ <HCExtension>
@name          Игнорировать no-store (A-Ignore no-store)
@author        mai62
@version       0.1 для HC v1.00 RC3 (1.0.0.303)
@rule          finam\.ru/sp/=.*=42.jpg
@description   Принудительно записывает в кэш файлы (при выключенной опции "Ignore no-store")
@event         AnswerHeaderReceived/Answer
</HCExtension> ]]

function Answer()
  hc.action = 'save'
  hc.monitor_string = hc.monitor_string..'A-Ignore no-store '
end  -- Конец функции Answer

hc.put_to_log('hc.url='..hc.url)
urlname = string.match( hc.url, '([^/:]+)$' )
hc.put_to_log('urlname='..urlname)

function Request()
	hc.request_header = re.replace(hc.request_header, [[^Referer: \K[^\r\n]+]], '\n')
end

--[[ <HCExtension>
@name          Дневной лимит трафика (RS-lim)
@author        DenZzz
@version       1.2 для HC v1.00 RC2 (1.0.0.184) и выше
@description   Устанавливает лимит дневного трафика для пользователя Vasya на 20 Мб в день
@event         BeforeRequestHeaderSend/RequestSend
</HCExtension> ]]

function RequestSend()
 if hc.user_name == 'Vasya' and hc.user_from_internet > 20*1024*1024 then
  hc.action = 'stop'
  hc.monitor_string = hc.monitor_string..'RS-lim '
 end
end

--[[ <HCExtension>
@name BlackListDisabler
@author mai62
@version 0.01
@description Отключает Черный список для заданных пользователей
@event RequestHeaderReceived/request
</HCExtension> ]]

function request()
if hc.user_name == 'user1'
 and not re.find(hc.url, [[vcontacte\.ru|twitter\.ru]], 0) then
 hc.white_mask="Ч"
 end
end

steamcommunity\.com/trade/\d++/#~#(?-x)(<h2>Предложение [^:]++:</h2>)(.*?)UserThem\.SetProfileURL\( "http:\\/\\/steamcommunity\.com\\/profiles\\(/\d++)" \);#~#<a  href="http://steamcommunity.com/profiles\3">\1</a>\2http://steamcommunity.com/profiles\3

steamcommunity\.com/trade/\d++#~#(?-x)(<h2>Предложение [^:]++:</h2>)(.*?)UserThem\.SetProfileURL\( "http:\\/\\/steamcommunity\.com\\/profiles\\(/\d++)" \);#~#<a  href="http://steamcommunity.com/profiles\3">\1</a>\2http://steamcommunity.com/profiles\3

steamcommunity\.com/trade/\d++#~#(?-x)(<h2>Предложение [^:]++:</h2>)(?=.*?UserThem\.SetProfileURL\( "http:\\/\\/steamcommunity\.com\\/profiles\\(/\d++)" \);)#~#<a  href="http://steamcommunity.com/profiles\2">\1</a>

steamcommunity\.com/trade/\d++#~#(?-x)(<h2>[^:]++:</h2>)(?=.*?UserThem\.SetProfileURL\( "http:\\/\\/steamcommunity\.com\\/profiles\\(/\d++)" \);)#~#<a  href="http://steamcommunity.com/profiles\2">\1</a>

URL: http://google.com/downloads?client=navclient-auto-ffox
HTTP/1.1 302 Found
Location: https://deneg.day.ru/overload/?h=google.com&u=/downloads&p=client=navclient-auto-ffox
Content-Type: text/html; charset=utf-8
Content-Length: 380
Connection: keep-alive

--[[ <HCExtension>
@name          antiprovider
@author        mai62
@version       0.1
@description   Correct answer from bad provider
@event         AnswerHeaderReceived/Answer
</HCExtension> ]]


function GetAnswerCode()
  _,_,x = string.find(hc.answer_header, 'HTTP/1%.%d +(%d+)')
  if x==nil then return -1 else return tonumber(x) end
end

function Answer()
  answ_code = GetAnswerCode()
  if answ_code == 302 and re.find(hc.answer_header, [[deneg\.day\.ru]]) then
    hc.put_to_log('Correction')
    hc.answer_header=
    'HTTP/1.1 302\r\n'..
    'Server: HandyCache\r\n'..
    'Location: '..hc.url..'\r\n'..
    'Connection: close\r\n\r\n'
  end
end

--[[ <HCExtension>
@name          Автопереключение на резевный прокси (#2)
@author        Anymore
@version       0.0.001
@description   http://handycache.ru/forum/index.php?topic=1120.msg35365#msg35365
@event         Init/init
@event	       Timer1m/timer
@event         BeforeAnswerHeaderSend/Event
@event         RequestHeaderReceived/Request
</HCExtension> ]]

function init()
  hc_static['count']=0
  hc.set_global('sw2reserve', '')
  hc_static['CheckURL']='http://www.google.de/'
end

function GetAnswerCode()
  _,_,x = string.find(hc.answer_header, 'HTTP/1%.%d +(%d+)')
  if x==nil then return -1 else return tonumber(x) end
end

function Request()
  if hc.url==hc_static['CheckURL'] then 
    hc.monitor_string = '#?'
  else
    if hc_static['count']>1 or hc.get_global('sw2reserve')=='sw' then
      hc.monitor_string = '#2 '..hc.monitor_string
      hc.use_proxy="127.0.0.1:80" --Внешинй прокси
      hc.use_proxy_login="user:password"
    end
  end
end

function timer()
  if not hc.offline_on and hc_static['count']>0 then
    hc_static['count']=hc_static['count']-1	
  end
  if hc.get_global('sw2reserve')=='sw' then
    hc.put_msg(10, 'Резервный прокси')
    hc.set_global('sw2reserve', '')
    hc_static['count']=3
  end
  if hc_static['count']==2 then
    hc.execute_cmd('LoadURL '..hc_static['CheckURL'])
  end
  if hc_static['count']==1 then
    hc.put_msg(10, 'взврат на основной канал')
  end

end

function Event()
  answ_code = GetAnswerCode()
  if answ_code == 502 or answ_code == 504 then
    hc.set_global('sw2reserve', 'sw')
    hc.action='dont_save'
    if hc.url==hc_static['CheckURL'] then
    else
      hc.answer_header=
      'HTTP/1.1 302\r\n'..
      'Server: HandyCache\r\n'..
      'Location: '..hc.url..'\r\n'..
      'Connection: close\r\n\r\n'
    end
  end
end

--[[ <HCExtension>
@name          *
@author        *
@version       *
@description   *
@event         URLToFileNameConverting/URLToFileNameConverting
</HCExtension> ]]

function URLToFileNameConverting()  
  m_path, present = hc.get_cache_file_name(hc.url)
end

--[[ <HCExtension>
@name          Offline Explorer helper
@author        mai62
@version       0.1
@description   Offline Explorer helper
@event         RequestHeaderReceived/request
</HCExtension> ]]

function request()
	local x= hc.request_header
	if re.find(x, [[^User-Agent:.*Offline\sExplorer]], 0) and
  not re.find(x, [[^Connection:]], 0) then
	  local x = re.replace(x, "(.*)(\r\n\r\n)", "\\1\r\nConnection: Close\r\n\r\n")
	  if x then
	    hc.request_header= x
	  end
	  --hc.put_to_log(hc.request_header)
  end
end

--[[ <HCExtension>
@name          ProxHTTPSProxy
@author        
@version       0
@description   fgdrhtrdrssrrrrrrrghdddddddf
@rule          ^https://
@event         RequestHeaderReceived/Online
</HCExtension> ]]

function Online()
	if hc.offline_on then hc.execute_cmd('OffLine Off')  end	
end

--[[ <HCExtension>
@name          Offline/Online
@author        
@version       
@description   
@rule          ^http://
@event         RequestHeaderReceived/request
</HCExtension> ]]

function request()
  hc.action="only_from_cache"
  hc.monitor_string = hc.monitor_string..'R-Offline'
end

local function keysPressed(keys, kbd_state)	-- функция возвращает, нажата ли комбинация клавиш keys (названия клавиш должны быть разделены пробелом) в состоянии клавиатуры kbd_state. Если kbd_state не задано, то функция сама проводит опрос состояния клавиатуры
	if not keys then return end
	kbd_state = ' '.. (kbd_state or hc.get_keyboard_state()) .. ' '
	for key in keys:gmatch('%S+') do
		if not kbd_state:find(' ' .. key .. ' ', 1, true) then return end
	end
	return true
end

--[[ <HCExtension>
@name          Offline2/Online
@author        
@version       0
@description   0
@rule          ^http://
@event         RequestHeaderReceived/request
</HCExtension> ]]

local function keysPressed(keys, kbd_state)	-- функция возвращает, нажата ли комбинация клавиш keys (названия клавиш должны быть разделены пробелом) в состоянии клавиатуры kbd_state. Если kbd_state не задано, то функция сама проводит опрос состояния клавиатуры
	if not keys then return end
	kbd_state = ' '.. (kbd_state or hc.get_keyboard_state()) .. ' '
	for key in keys:gmatch('%S+') do
		if not kbd_state:find(' ' .. key .. ' ', 1, true) then return end
	end
	return true
end

if keysPressed('VK_CONTROL VK_CAPITAL') then
  function request()
    hc.action="only_from_cache"
    hc.monitor_string = hc.monitor_string..'R-Offline'
  end
end

function request()
  if keysPressed('VK_CONTROL VK_CAPITAL') then
    hc.action="only_from_cache"
    hc.monitor_string = hc.monitor_string..'R-Offline'
  end
end

--[[ <HCExtension>
@name          0
@author        mai62
@version       0.01
@description   0
@rule          ^http://
@event         Init/init
@event         RequestHeaderReceived/request
</HCExtension> ]]

function init()
  if x=1 then Caps Lock (20) is On
  x=keyboard.GetKeyState(20)
    hc.put_to_log(x)
end

function request()
    hc.action="only_from_cache"
    hc.monitor_string = hc.monitor_string..'R-Offline'
  end
end

require 'keyboard'

--[[ <HCExtension>
@name          test
@author        mai62
@version       0.01
@description   0
@rule          ^http://
@event         Init/init
@event         RequestHeaderReceived/request
</HCExtension> ]]

--  VK_CAPITAL = 20
--  VK_NUMLOCK = 144
--  VK_SCROLL = 145


function init()
-- If x=1 then Caps Lock (20) is On
  x=keyboard.GetKeyState(20)
end
   function request()
     if x=1 then
    hc.action="only_from_cache"
    hc.monitor_string = hc.monitor_string..'R-Offline'
  end
end

07.08.12 18:36:06,601 # test "init" ERROR:
[string "require 'keyboard'..."]:23: 'then' expected near '='

function request()
  require 'keyboard'
  x=keyboard.GetKeyState(20)
  if x==1 then
    hc.action="only_from_cache"
    hc.monitor_string = hc.monitor_string..'R-Offline'
  end
end

--[[ <HCExtension>
@name         Авторегулировка скорости для клиента "Idle"
@event        BeforeRequestHeaderSend/Request
@event        BeforeAnswerHeaderSend/Answer
</HCExtension> ]]

function Request()
        if hc.user_name ~= 'Idle' then
		hc.set_user_speed('Idle', 2048)
	end
end

function Answer()
	local t = hc.get_users_stat('#active')
	if t and t[hc.user_name] ~= 'Idle' then
		hc.set_user_speed('Idle', 0)
	end
end

--[[ <HCExtension>
@name	Авторегулировка скорости для клиента "Idle"
@event	Timer1s
</HCExtension> ]]

function Timer1s()
	local t = hc.get_users_stat('#active')
	if not t or not t['Idle'] then return end
	if next(t)~='Idle' or next(t, 'Idle') then
		if t['Idle'].speed_limit==0 then hc.set_user_speed('Idle', 2048) end
	elseif t['Idle'].speed_limit~=0 then hc.set_user_speed('Idle', 0)
	end
end

--[[ <HCExtension>
@name          Авторегулировка скорости для клиента "Idle"
@event         Timer1s
</HCExtension> ]]

function Timer1s()
	local t = hc.get_users_stat('#active')
	if not t['local'] then
		hc.set_user_speed('Idle', 0)
		else	hc.set_user_speed('Idle', 2048)
	end
end

function Timer1s()
	local t = hc.get_users_stat('#all')
	local trafic_local = t['local'].from_internet - (hc.get_global('_local_') or 0)
	if trafic_local>0 then
		if t['Idle'].speed_limit==0 then hc.set_user_speed('Idle', 2048) end
	elseif t['Idle'].speed_limit~=0 then hc.set_user_speed('Idle', 0)
	end
	hc.set_global('_local_', t['local'].from_internet)
end

--[[ <HCExtension>
@name          Меняет заголовок ответа
@description   Изменяет заголовок ответа по заданным правилам
@rule          ^http://https\.\.
@event         BeforeAnswerHeaderSend/Answer
</HCExtension> ]]

function Answer()
	hc.answer_header = re.replace(hc.answer_header, [[https\.\.]], '')
        hc.monitor_string = hc.monitor_string..'A-CH '
end

function Answer()
hc.put_to_log('m1='..hc.answer_header)
	hc.answer_header = re.replace(hc.answer_header, [[https\.\.]], '')
hc.put_to_log('m2='..hc.answer_header)
end

--[[ <HCExtension>
@name         Менять User-Agent случайно заголовках запросов на свой
@event        RequestHeaderReceived/Request
</HCExtension> ]]

-- заготавливаем массив агентов
ua={'My_Agent1','My_Agent2','My_Agent3'}

function init()
  rua=math.random(ua)
end

function Request()
	hc.request_header = re.replace(hc.request_header, [[^User-Agent: \K[^\r\n]+]], rua)
end

--[[ <HCExtension>
@name         Менять User-Agent случайно заголовках запросов на свой
@event        RequestHeaderReceived/Request
</HCExtension> ]]

-- заготавливаем массив агентов
ua={'My_Agent1','My_Agent2','My_Agent3'}

function Request()
  hc.request_header = re.replace(
    hc.request_header,
    [[^User-Agent: \K[^\r\n]+]],
    ua[math.random(#ua)]
  )
end

--[[ <HCExtension>
@name         Менять User-Agent случайно заголовках запросов на свой
@event        RequestHeaderReceived/Request
@event        Init/NewFakeUserAgent
</HCExtension> ]]

-- заготавливаем массив агентов
ua={'My_Agent1',
    'My_Agent2',
    'My_Agent3'}

function NewFakeUserAgent()
  hc.set_global('Fake-User-Agent', ua[math.random(#ua)])
end

function Request()
  hc.request_header = re.replace(hc.request_header, [[^User-Agent: \K[^\r\n]+]], hc.get_global('Fake-User-Agent'))
end

LUA_DEV=c:\Lua
LUA_PATH=.\?.lua;.\?\init.lua;%LUA_DEV%\lua\?.lua;%LUA_DEV%\lua\?\init.lua;
LUA_CPATH=.\?.dll;.\?51.dll;%LUA_DEV%\?.dll;%LUA_DEV%\?51.dll;%LUA_DEV%\clibs\?.dll;%LUA_DEV%\clibs\?51.dll;%LUA_DEV%\loadall.dll;%LUA_DEV%\clibs\loadall.dll;

#5#~#True#~#(^.+?)--(/)?$#~#http://c.hc/_\1\2#~#False#~#True