pk2002
Мой дом здесь!
- Регистрация
- 14 Ноя 2006
- Сообщения
- 380
- Реакции
- 399
В Перле я не супер копенгаген, но по ощущениям надо файл *** скрытое содержание *** переложить куда хочется, а в *** скрытое содержание *** поменять *** скрытое содержание *** на *** скрытое содержание ***
Сам не проверял, но по ощущениям должно работать
Поделюсь некоторыми соображениями, мож пригодится кому
С выносом чекинга на другой сервак есть один небольшой момент: так как HTTP_X_FORWARDED_FOR и REMOTE_ADDR всегда отличаются от айпи сервера, то проверка на трансперент прокси идет лесом. Т.е. в этом случае у вас все проксики будут определяться или анонимными или элитными.
Предлагаю такое решение:
в check.pl в начале перед определением функций добавляем
Код:
use Sys::HostIP;
my $myip = Sys::HostIP->ip;
Код:
my $get_string = "GET $sansaraurl HTTP/1.0\nHost: ...
Код:
my $get_string = "GET $sansaraurl?ip=$myip HTTP/1.0\nHost: ...
Код:
my $ip = Sys::HostIP->ip;
Код:
my $ip = CGI::param("ip");
P.S. Если у вас статический адрес локального хоста, то можно упростить и не передавайть ip
P.P.S. Можно прикрутить еще шифрование $myip, чтоб айпишник не светить в адресной строчке