Вход на хостинг
IT-новости
20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла
Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......
30.07.2015 Ищем уникальный контент для сайта
Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......
}elsif($DATA !~/ 12Authorization/){
Log(Response401());
print CLIENT Response401();
}else{
Log(Response200());
print CLIENT Response200();
}
print "Connection closed. ";
close CLIENT;
# Закрытие текущего соединения
}
# Закрытие сокета сервера
close SERVER;
# Составление ответов сервера для удобства вынесено в отдельные функции
sub Response401{
return "HTTP/1.1 401 Unauthorized$CR".
"Server: squid/2.5.STABLE3$CR".
"Mime-Version: 1.0$CR".
"Content-Type: text/html$CR".
"Content-Length: 20$CR".
"Expires: Wed, 26 Nov 2001 10:01:53 GMT$CR".
"WWW-Authenticate: Basic realm=" --== Protected web-Area ==--"$CR".
"Connection: close$CR$CR <h1>401 Unauth</h1>";
}
sub Response407{
return "HTTP/1.1 407 Proxy Authentication Required$CR".
"Server: squid/2.5.STABLE3$CR".
"Mime-Version: 1.0$CR".
"Content-Type: text/html$CR".
"Content-Length: 20$CR".