--[[ <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

--[[ <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

--[[ <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