Исходное сообщение
"Squid и redirector проблемы посли апдейта" Отправлено amadyarov, 11-Дек-07 10:36
После обновления Squid version 2.5.STABLE9 до Squid version 2.6.STABLE5 перестал отрабатывать redirector который позволял пользователю с уч. записью гость посещать сайты только из списка, что то вроде #!/usr/bin/perl $0 = 'redirector' ; $| = 1 ;                                                                         @list1    = qw ( #good domain list ya.ru rambler.ru bash.org.ru ) ; @list2   = qw ( ); @ll1     = qw ( #limit list 1 guest ); while (<>) { $llp1 = "0";$listp1 = "0"; ($url, $who, $ident, $method) = /^(\S+) (\S+) (\S+) (\S+)$/ ; if (grep $ident =~ m%$_%, @ll1) {$llp1 = "1";} if (grep $url =~ m%$_%, @list1) {$listp1 = "1";} if (grep $url =~ m%$_%, @list2) {$listp1 = "2";} $url = "http://192.168.1.1/1x1.gif"; if (($llp1 eq "1")and($listp1 eq "1")) {$url = ""} if ($llp1 eq "0") {$url = "";} if ($listp1 eq "2") {$url = "http://adm"} print "$url $who $ident $method\n" ; } И если есть возможность описать более гибкий вариант гостевой записи =)

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> После обновления Squid version 2.5.STABLE9 до Squid version 2.6.STABLE5 > перестал отрабатывать redirector который позволял пользователю с уч. записью гость > посещать сайты только из списка, что то вроде > #!/usr/bin/perl > $0 = 'redirector' ; > $| = 1 ; > @list1 = qw ( > #good domain list > ya.ru > rambler.ru > bash.org.ru > ) ; > @list2 = qw ( > ); > @ll1 = qw ( > #limit list 1 > guest > ); > while (<>) { > $llp1 = "0";$listp1 = "0"; > ($url, $who, $ident, $method) = /^(\S+) (\S+) (\S+) (\S+)$/ ; > if (grep $ident =~ m%$_%, @ll1) {$llp1 = "1";} > if (grep $url =~ m%$_%, @list1) {$listp1 = "1";} > if (grep $url =~ m%$_%, @list2) {$listp1 = "2";} > $url = "http://192.168.1.1/1x1.gif"; > if (($llp1 eq "1")and($listp1 eq "1")) {$url = ""} > if ($llp1 eq "0") {$url = "";} > if ($listp1 eq "2") {$url = "http://adm"} > print "$url $who $ident $method\n" ; > } > И если есть возможность описать более гибкий вариант гостевой записи =)
	Введите код, изображенный на картинке: