Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use IO::Socket;
- use POSIX;
- $port=5000;
- $socket = new IO::Socket::INET (
- # LocalHost => '127.0.0.1',
- LocalPort => $port,
- Proto => 'tcp',
- Listen => 10,
- Reuse => 1
- ) or die "Coudn't open tcp port $port";
- print"Waiting for client on tcp port=$port\n";
- $/=undef; $data=<DATA>; $len=length($data);
- $text=<<"TEXT";
- HTTP/1.1 403 Forbidden
- Content-Type: text/html; charset=utf-8
- Content-Length: $len
- Connection: close
- $data
- TEXT
- while(1) {
- $client_socket = $socket->accept();
- $peer_address = $client_socket->peerhost();
- $peer_port = $client_socket->peerport();
- print strftime("%F %T",localtime) ."\t$peer_address:$peer_port\n";
- $client_socket->send($text);
- $client_socket->close();
- }
- __DATA__
- <!doctype html><html lang="ru"><head><meta charset="utf-8">
- <meta http-equiv="X-UA-Compatible" content="IE=edge">
- <meta http-equiv="content-type" charset="utf-8">
- <meta name="viewport" content="width=device-width, initial-scale=1">
- <title>Доступ запрещен</title>
- <style>
- .board h1 {font-size:8vw;padding:0 5%}
- .board p {font-size: 4vw;text-indent:0.5em;text-align:justify;padding:0 5%}
- </style></head><body>
- <div class="board"><h1>Доступ запрещен</h1>
- <p>Доступ к информационному ресурсу ограничен на основании Федерального закона
- от 27 июля 2006 года № 149-ФЗ «Об информации, информационных технологиях и о
- защите информации»</p>
- <a href="https://eais.rkn.gov.ru/faq/">Если есть вопросы.</a>
- <a href="https://eais.rkn.gov.ru/docs/requirements.pdf">Приказ 249 от 14.12.2017</a>
- </div>
- <!-- operator id1 id2 id3 -->
- </body></html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement