https://www.opennet.dev/openforum/vsluhforumID12/5364.html Доброго времени суток!<br>Захотелось написать свой редиректор на perl'е. Вкратце суть такова:<br>Есть в mysql базе табличка, в которой указаны ip-адреса, c которых можно использвоать инет. Сквид в числе параметров передает редиректору ip-адрес клиента, откоторого пришел запрос. Хочу, чтобы редиректор проверял если есть адрес клиента в базе, то ходи в нет, иначе ходи на другой адрес, где написано типа доступ запрещен.<br>Строго прошу не судить, т.к. с перлом до этого работать не приодилось, а с редиректорами темболее. Вот код:<br><br>#!/usr/bin/perl<br>use DBI;<br>use DBI::DBD;<br>require "/etc/squid/logger.cfg";<br>$dbh = DBI-&gt;connect("DBI:mysql:$dbname:$dbhost:$dbport", $dbuser, $dbpass) or die "Cannot connect to DataBase";<br>my $ips = $dbh-&gt;selectall_hashref("SELECT cl_ip FROM auth;",1);<br>$&#124;=1;<br>while (&lt;&gt;) {<br>($url, $cl_ip, $ident, $method) = split;<br>if (exists $ips-&gt;{$cl_ip})<br> {<br> print "$url $cl_ip $ident $method\n" ;<br> }<br> else<br> {<br> print "$red_url $cl_ip $ident $method\n" ;<br> }<br>}<br>$dbh-&gt;disconnect;<br><br><br>По итогу https://www.opennet.dev/openforum/vsluhforumID12/5364.html#4 Wed, 30 May 2012 12:54:44 GMT &gt; Вот кусок из squid.conf <br>&gt; ....<br>&gt; acl privnet src 172.16.22.0/255.255.255.0 <br>&gt; .....<br>&gt; http_access allow privnet <br>&gt; А страница, на которую делается редирект - на самом шлюзе лежит.<br>&gt; про отладочные print'ы сегодня попробую... посмотрю, что пишет...<br><br>Интересно узнать, получилось у вас допилить скрипт до работоспособного или нет?<br> https://www.opennet.dev/openforum/vsluhforumID12/5364.html#3 Tue, 29 Jan 2008 23:43:03 GMT Вот кусок из squid.conf<br><br>....<br>acl privnet src 172.16.22.0/255.255.255.0<br>.....<br>http_access allow privnet<br><br>А страница, на которую делается редирект - на самом шлюзе лежит.<br><br>про отладочные print'ы сегодня попробую... посмотрю, что пишет...<br> https://www.opennet.dev/openforum/vsluhforumID12/5364.html#2 Tue, 29 Jan 2008 15:30:01 GMT &gt;Доброго времени суток! <br>&gt;Захотелось написать свой редиректор на perl'е. Вкратце суть такова: <br>&gt;Есть в mysql базе табличка, в которой указаны ip-адреса, c которых можно <br>&gt;использвоать инет. Сквид в числе параметров передает редиректору ip-адрес клиента, откоторого <br>&gt;пришел запрос. Хочу, чтобы редиректор проверял если есть адрес клиента в <br><br>Если ip вбил после запуска редиректора, то все правильно.<br>Редиректор при запуске зачитал список ip и по этому, один раз зачитанному списку и работает.<br><br>&gt;[оверквотинг удален]<br>&gt;$dbh-&gt;disconnect;<br>&gt;<br>&gt;<br>&gt;По итогу не могу понять где что неправильно... Реально добавил руками в <br>&gt;табличку свой ip_адрес и при попытке пойти на какую-нибудь страницу почему-то <br>&gt;срабатывает ветка в условии, которая идёт по else. Хотя (может это <br>&gt;глюк) иногда один раз пропускает по нормальному, а при попытке пойти <br>&gt;дальше происходит редирект на страницу запрещения доступа... <br>&gt;Буду рад, если укажете, в чем моя ошибка и выскажете прежложения по <br>&gt;улучшению. <br><br> https://www.opennet.dev/openforum/vsluhforumID12/5364.html#1 Tue, 29 Jan 2008 14:37:01 GMT &gt;Захотелось написать свой редиректор на perl'е. Вкратце суть такова: <br>&gt;Есть в mysql базе табличка, в которой указаны ip-адреса, c которых можно <br>&gt;использвоать инет. Сквид в числе параметров передает редиректору ip-адрес клиента, откоторого <br>&gt;пришел запрос. Хочу, чтобы редиректор проверял если есть адрес клиента в <br>&gt;базе, то ходи в нет, иначе ходи на другой адрес, где <br>&gt;написано типа доступ запрещен. <br><br>А в .../squid/errors/Russian-koi8-r/ERR_ACCESS_DENIED или около того текст или редирект написать, а адрес проверять "acl ... src"+http_access ?<br><br>&gt;По итогу не могу понять где что неправильно...<br><br>Вставь отладочные print-ы во временный файл и отлаживай.<br>