Получится, если к моменту запуска l2tp будет настроен резолвинг на машине. В противном случае надо немного пропатчить l2tp по поводу отложенного резолвинга.Originally Posted by RoloTomasi
Member
Т.е. сделать резолв по имени не получиться?С L2TP всё плохо: он внутри себя хранит сервер в виде IP адреса, и в момент запуска он не может разрешить имя, если обомался DHCP...
Junior Member
Получится, если к моменту запуска l2tp будет настроен резолвинг на машине. В противном случае надо немного пропатчить l2tp по поводу отложенного резолвинга.
Senior Member
Пропатченную прошивку можно скачать?
2 Oleg: может Вам стоит включить этот патч в свою прошивку?
Administrator
Я так понимаю, что патч сначала нужно написать.
Если он есть - с радостью добавлю, только скажите, где его взять.
Senior Member
http://www.wl500g.info/showpost.php?...9&postcount=32
Junior Member
Вот что я там пропатчил http://www.sendspace.com/file/pugvnk
С тех пор как написал вышеупомянутое письмо, так и не дошли руки потестировать- совершенно не хватает времени
Administrator
У меня просьба - сделайте unified diff. (-u) Иначе читать тяжело.
Посмотрел патч - это не совсем то, что требуется. Да, с ним можно указать имя, но резолвится оно в момент запуска, а надо, чтобы резолвилось в момент соединения, т.к. в момент запуска ДНСа может не быть (не получили по DHCP). Можете переделать?
Junior Member
Насколько я понял структуру l2tpd происходит в нем все так:
1. при старте l2tpd составляет список peer'ов (в нашем случае VPN серверов) согласно конфиг файлу, при этом он резолвит имя peer'а и использует его как ключ в массиве этих peer'ов
2. само соединение инициируется путем вызова функии cmd_start_session в handlers/cmd.c, в которую еще раз передается имя peerа с которым надо устанавливать соединение. Оно тут резолвится и по полученному адресу ищется в списке peer'ов, полученных на первом этапе, подходящая запись (см l2tp_peer_find).
Собственно проблема l2tp имеено в первом шаге, когда при старте он читает конфиг, резолвит имена peer'ов и обламывается. Мой патч заключется в том, что на первом этапе он, даже если не удалось срезолвить peer, все равно создает соотв запись с адресом 0xfffffffff. А на втором этапе, если в функции l2tp_peer_find не удалось найти запись на соотв peer, он находит запись с адресом 0xfffffffff и создает на ее основе новую запись с тем адресом, который он срезолвил только что.
Administrator
Теперь понял. Но почему бы не хранить символическое имя вместо ip адреса?
Junior Member
Оно там и так хранится уже, но оно никому не нужно
Senior Member
Уважаемые Oleg и nickk, пришли ли вы едимому мнению как должен выглядить патч для резолвинга l2tp? Может быть есть тестовый вариант прошивки Олега с этим патчем?
Кстати, проблема с невостановлением соединения в l2tp имеет место. Несколько раз заставал роутер с ситуации, когда он потерял соединение и не думает его восстанавливать. На pptp такого не случалась. Может быть параметр maxfail 0 для l2tp автоматически не применяется и его нужно прописать ручками?
Senior Member
Точно, сам не коннектитца. М.б. это связано с DHCP, никто не пробовал с руками прописанным локальным адресом (10.х.х.х)?
Junior Member
Тоже самое - не поднимается. Только ручками.
Administrator
Мне тяжело с этим разбираться, ибо L2TP у меня был только тестовый.Что касается дисконнекта - нужно чтобы кто-то запустил L2TP в отладочном режиме и глянул, в каком он состоянии оказывается. Я, когда-то, нашёл одно место не хорошее, поправил, полсе этого сильно полегчало.
Но для начала нужно при обнаружении такого дисконнекта, зайти на роутер, и сделать ps, чтобы выяснить, жив ли l2tpd в принципе и состояние, в котором находится pppd. И наверное конфиг файлы обоих.
Junior Member
В качестве воркараунда предлагаю попробовать вставить в крон такой перловый скриптец:
Code:#!/opt/bin/microperl -w my $date = localtime; print STDERR "Run on $date\n"; # also may check "l2tp-control dump-sessions" open F, "ifconfig|" or die "Cant query if ppp0 is up"; my $f = 0; while (<F>) { if (/^ppp0\s+Link encap:Point-to-Point Protocol/) { $f = 1; last; } } close F; if ($f) { print STDERR "ppp0 is up\n"; exit(0); } open F, "nvram get wan_heartbeat_x|" or die "Cant query VPN hearbeat server"; my $vpn = <F>; $vpn =~ s/\s+$//; close F; print STDERR "VPN server <$vpn>\n"; system("l2tp-control", "start-session $vpn"); print STDERR "l2tp-control ret $?\n"; exit($?);
Last edited by nickk; 24-03-2007 at 22:55.
