Скрипт ограничение доступа по IP

[Merlin Cori]

кто пишет? перл?

[Kapa6ac]

блин ) чвото путти тормозил.. щас сделал. .скину!

проверяй пм

непонял, как понимать подобные IP..
80.67.210.144/29
может наоборот надо 29/144 ?

[Merlin Cori]

это он на пустые строки ругался...
а зачем ты оттуда Deny from all убрал?

#!/usr/bin/perl -w
$input_file="rus_networks_secret_file.txt";
$out_file=".htaccess";
$text="Allow from ";
open(HANDLE_IN, $input_file) or die ("Error open file", $input_file);
open(HANDLE_OUT, "> $out_file") or die ("Error open file");

print HANDLE_OUT "Options -Indexes\nOrder Deny,Allow\nDeny from all\n";

while(!eof(HANDLE_IN) )
{
$input=readline(HANDLE_IN);
$output= $text.$input;
print HANDLE_OUT $output;
}

[Kapa6ac]

Merlin Cori
пасиб. скомпилил. пробелы убрались.
добавил свой IP . доступ есть..
остаеться думать если доступ с других iP.
и как всеже понимать ипишку записанную в виде 80.67.210.144/29

[Merlin Cori]

Address: 80.67.210.144 01010000.01000011.11010010.10010 000
Netmask: 255.255.255.248 = 29 11111111.11111111.11111111.11111 000
Wildcard: 0.0.0.7 00000000.00000000.00000000.00000 111
=>
Network: 80.67.210.144/29 01010000.01000011.11010010.10010 000 (Class A)
Broadcast: 80.67.210.151 01010000.01000011.11010010.10010 111
HostMin: 80.67.210.145 01010000.01000011.11010010.10010 001
HostMax: 80.67.210.150 01010000.01000011.11010010.10010 110
Hosts/Net: 6