ООО «Дельта-Технология»

Вход на хостинг

IT-новости

20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла

Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......

30.07.2015 Ищем уникальный контент для сайта

Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......

11.05.2015 Распространённые ошибки разработчиков сайтов

Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......

sub DOTS {

# расставление точек разрядов

$string1 = shift;

if(not($string1 =~ /D/)){

$string1 =~s/(d{3})$/.$1/;

while ($string1 =~ /^d{3}/){$string1 =~s/(d{3}.d)/.$1/;}

}

$string1 =~s/(^.)(.*)/$2/;

return $string1;

}

print "Content-type:text/html; charset=koi8-r ";

print "<html> <head>";

print "<TITLE>Traffic shower</TITLE> <META NAME="content" CONTENT="text/html; charset=koi8-r"> ";

print "</HEAD><BODY BGCOLOR="white" LINK="red" leftmargin="10" marginwidth="10" topmargin="2" marginheight="2"> ";

$date = localtime time;

$ip=$ENV{"REMOTE_ADDR"};

print $date," <br>";

# Для работы программы придётся отдельно создать файл-копию для iptables c установленным флагом SETUID, иначе работать

# не будет, файл-копию можно поместить куда угодно, скажем, в /dir1. C точки зрения безопасности тут возможны слабые места.

system "/dir1/iptables -L -v -x -n >/temp/traffic-dump";

# Вывод сбрасывается в отдельный файл, чтобы можно было этот файл по нескольку раз просматривать. Если запускать iptables

# несколько раз, то при каждом новом запуске будет новая ситуация (на момент запуска). Открываем файл и "вырезаем" из него

# нужные нам значения, помещая их в нужные нам переменные.

open(TRAFFIC,"/temp/traffic-dump") or die ("Cannot open file trafic-dump");